Indy TCPClient Lesethread sicher beenden

[ghubi01]

Hallo,

ich habe noch eine Frage: Lassen sich die Antworten vom Server eindeutig nach ihrer Bedeutung identifizieren?
Wenn Ja, dann würde ich auf jeden Fall nur einen Lese-Thread verwenden, der dann den String an den Hauptthread Form1 sendet.
Dort kann man dann entsprechen Verzweigen.

Mir ist da in meinem Beispiel noch ein kleine Fehler unterlaufen. Für Postmessage sollte die in der Thread-Klasse privat deklarierte
Variable FOutStr verwendet werden.

Delphi-Quellcode:

//*** Korrektur
procedure TReadingThread.HandleInput;
var
    cmd: string;
begin
   if FClient.Connected then
   begin
     try
       cmd:=FClient.IOHandler.ReadLn(#3);
       FOutStr:=cmd;
       TLog.AddMsg('DEBUG: TReadingThread.Execute. Cmd: ' + cmd);
     except
       on E: Exception do 
       begin
         cmd:=E.Message;
         FOutStr:=cmd;
         TLog.AddMsg('DEBUG: TReadingThread.Execute. Err: ' + cmd);
       end;
     end;

     PostMessage(Form1.Handle,WM_CLIENTANSWER,integer(@FOutStr),0);

   end else Terminate;
end;

Sollte mein Beispiel nicht für Dein Programm passen, kann ich zumindest nur empfehlen alle ReadLn-Anweisungen in einen Try-Except-Block
zu stellen und bei allen WriteLn-Anweisungen vorher die Connection abzufragen.