Hagbard - Di 22.06.04 16:57
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... :-)