Tserial abschiessen

[mymuschy]

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...