Bonjour,

j'ai une petit application client-server par TCP/IP (comme le chat).
Voici l'extrait d'une partie du serveur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
VAR
    Str1:    String;
BEGIN
    Str1:=AThread.Connection.Readln;
    If Str1 = '#Question' then
         AThread.Connection.WriteLn('#Reponse');
    ...
END;
et voici le client :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
procedure TMainForm.QuestionButtonClick(Sender: TObject);
VAR
    Str1:    String;
BEGIN
    ServerConnection.WriteLn('#Question');
    Str1 := ServerConnection.ReadLn('#');
END;
Le problème c'est, que ça marche pas toujours. En générale le client attente, sans aucun réponse. Comment recevoir la réponse du serveur, tout en gardant la connection ouvert?
Merci pour vos conseilles...