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.