Hallo,
Ich hab ein kleinen Client-Server programm (nach dem Chat-Beispiel). Nun will ich, dass der Client eine Anfrage an den Server schickt und dann eine Antwort bekommt.
Client :
Delphi-Quellcode:
procedure TMainForm.QuestionButtonClick(Sender: TObject);
VAR
Str1: String;
BEGIN
ServerConnection.WriteLn('#Question');
Str1 := ServerConnection.ReadLn('#');
END;
Und der Server :
Delphi-Quellcode:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
VAR
Str1: String;
BEGIN
Str1:=AThread.Connection.Readln;
If Str1 = '#Question' then
AThread.Connection.WriteLn('#Reponse');
...
END;
Das Problem ist nun, das der Client wartet, obwohl er die antwort schon bekommen hat. Wie kann ich die Verbindung zum Server offen lassen und gleichzeitig im Programm weiter gehen?
Danke für eure Hilfe