Einzelnen Beitrag anzeigen

janjan

Registriert seit: 16. Jan 2003
Ort: Bonn ("links über Königswinter ")
240 Beiträge
 
Delphi 4 Standard
 
#12
  Alt 2. Mär 2003, 11:11
benutz doch die Async Kompos, die sind für alles was mit der seriellen Schnittstelle zu tun hat absolut zu empfehlen:
http://sourceforge.net/projects/tpapro/

Da sind zwei Komponenten dabei die dir weiterhelfen sollten, ApdComPort und ApdDataPacket. Das eine ist für die Initialisierung des Com-Ports verantwortlich, das andere lauscht nach bestimmten Paketen.
In deinem Fall bräuchtest du einmal den Comport und zwei Pakete. Bei dem einen Paket stellst du als Anfangsbuchstabe #0 ein und eine Länge von 2 Zeichen, das andere hat den Anfangsbuchstaben #1 und die Länge zwei. Nachdem du den Comport initialisiert hast, lauschen die beiden Paketkompos nach den eingestellten Paketen.
Angenommen es kommt ein #0 und noch ein Zeichen, dann wird ein Event ausgelöst:
Delphi-Quellcode:
procedure TForm1.ApdDataPacket1StringPacket(Sender: TObject; Data: String);
begin

end;
In Data steckt dein Paket drin und du kannst es da weiterbearbeiten.

Probier die Komponenten einfach mal aus, ich bin absolut begeistert
Die Wichtigkeit eines Postings im Forum ist reziprok zur Anzahl der enthaltenenen, kumulierten Ausrufungszeichen!!!
  Mit Zitat antworten Zitat