Hallo Klaus01,
bringt leider auch nichts! Ich hab auch schon versucht in die Schleifenbedingung eine zweite Bedingung einzubauen.
Delphi-Quellcode:
procedure TSS.tC_SerialRxData(Sender: TObject);
Var C : Char;
begin
While (tC_Serial.ReadChar(C)>0) and not sofort_beenden 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;
Die boolsche Variable "sofort_beenden" wird beim schliesen im OnClose Ereignis auf true gesetzt.
Aber leider auch ohne Erfolg...
Ist es vielleicht möglich den Empfang komplett zu unterbinden?