Er spring beim schliessen sofort "rein" und erst nach ca. 10sek. "raus"
Delphi-Quellcode:
procedure TSS.FormClose(Sender: TObject; var Action: TCloseAction);
begin
showmessage('rein');
tC_Serial.Active:=false;
showmessage('raus');
end;
Zitat:
Wenn Du die Zeichen von der Schnittstelle gelesen hast,
mußt Du dann nich das Puffer der Schnittstelle leeren?
Ich bin immer davon ausgegangen das
readChar
das Zeichen aus dem Puffer schmeisst. Weil der nächste Aufruf von readChar holt sich ja auch das nächste Zeichen.
Ich habs mal so versucht:
Delphi-Quellcode:
procedure TSS.FormClose(Sender: TObject; var Action: TCloseAction);
begin
showmessage('rein');
tc_serial.ZapRxQueue;
tC_Serial.Active:=false;
showmessage('raus');
end;
Aber leider immer noch das gleiche Spiel...