Hi,
Ich kopier dir mal ein bisschen aus meinem Code, vieleicht hilft Dir das weiter.....
Also das hier ist mein Code zum öffnen des COM Ports:
Quelltext
1: 2: 3: 4: 5: 6: 7:
| FCOMConnection := TApdComPort.Create(nil); FCOMConnection.ComNumber:=FCOMPort; FCOMConnection.Baud :=FCOMBaud;
FCOMConnection.ForcePortOpen; FCOMConnection.Open := True; if FCOMConnection.Open then FConnected := true; |
Hier setze Ich ein Event, welches ausgeführt werden soll, wenn Daten an den COM Port gesendet wurden:
Quelltext
1: 2:
| // Fire Event, when Data arriving... FComConnection.OnTriggerAvail := TTiOnPortTriggerAvail; |
und hier ist schließlich die Procedure, die bei dem Event aufgerufen wird...
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
| procedure TTiSCSerial.TTiOnPortTriggerAvail(CP: TObject; Count: Word); var i : Word; c : Char; begin for i := 1 to Count do begin c := COMConnection.GetChar; if C in [#32..#126] then begin FBuffer := FBuffer + c; end; end; end; |
Viele Grüße,
Christian
P.S. Falls Du raus bekommst, wie man Daten an ein Gerät sendet (mit ordentlichem Handshake) (z.B. KassenSchublade) wäre es nett, wenn Du mir das verraten würdest...