Guck mal hier :
Delphi-Quellcode:
IF NOT ComVar.InitCustom (Com1, 2400, EvenParity, 7, 2, 50,
50, DefPortOptions) THEN;
ComVar.PutString ('XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX');
delay (OeffneSchublade);
ComVar.Done;
Habe gesucht : ein Verrückter 8) hatte tatsächlich schon so eine Schublade. Mit dem Code ging die 3 Jahre auf. Ist AsyncPro.