lesen von RS232 / TComPortLib / Delphi6

[temi]

Hallo Forum,

ich muß hier die Gewichte von einer Waage übertragen. Also an der Waage kann man mit Print das aktuelle Gewicht auf eine RS232-Schnittstelle ausgeben.

Ich hab mir die ComPort Library version 4.10 installiert.

und kann auch was empfangen. Leider nur einmal dann geht's nicht mehr.

OK also die Komponente hat einen RxChar Event dort lese ich

Delphi-Quellcode:

procedure TfrmKaeseSchneiden.ComPort1RxChar(Sender: TObject; Count: Integer);
var
   gewicht, gram: String;
   gramm: Currency;
begin
     sleep(2000);
     ComPort1.ReadStr(gewicht, Count);

     ShowMessage(gewicht);

     // Weitere Verarbeitungschritte .....
end;

Frage ist warum erhalte ich nur einmal einen Wert von der Schnittstelle. Ich schätze mal ich könnte die serielle Schnittstelle nach jedem Wert kurz schließen und dann wieder öffnen. Denke aber das ist nicht so gedacht
Wie macht man es richtig?


Gruß
Temi