Hallo,
ich kommuniziere per Tserial mit einem externen Gerät das über die Serielle Schnittstelle ständig nur am Senden ist. Empfangen wird dieses Dauerfeuer per:
Delphi-Quellcode:
procedure TSS.tC_SerialRxData(Sender: TObject);
Var C : Char;
begin
While tC_Serial.ReadChar(C)>0 do Begin
Case C of
#2 : HS:='';
#3 : Begin
tC_String:=HS;
End;
Else If Length(HS)<100 Then HS:=HS+C;
End;
End;
end;
Jetzt hab ich das Problem das das Beenden des Programms ehwig dauert, obwohl ich die Schnittstelle mit:
tC_Serial.Active:=false;
schliesse.
Stecke ich mein externes Gerät aus schliesst das Programm sofort.
Gibt es eine Möglichkeit die TSerial Komponente sofort zu schliessen?