Discussion :

[jbat]

Bonsoir,

J'ai implémenté un système de communication tout simple par TIdTcpServer et TIdTcpClient, composants indy.

Tout fonctionne (presque) bien...

Quelque chose pourtant me dérange...

Lorsque je déconnecte mon client, je n'arrive pas à me débarasser d'un message popup qui m'affiche : "La connexion s'est terminée proprement".

Bon, c'est gentil de sa part de m'en informer, mais si je pouvais me passer de ce message, je serai bien content...

Savez-vous comment faire :

Jbat.

[Pierre Castelain]

Normalement, cette exception qui signale une fin normale de la connexion n'est visible que lorsque le programme est exécuté depuis l'IDE.
Si jamais cela te pose un problème, tu peux ajouter EIdSilentException comme type d'exception à ignorer dans les options du débogueur.

[jbat]

Pourtant, lorsque je lance mon application en tant que client sur un autre poste (le serveur étant le même executable lancé sur le poste où j'ai delphi, mais non à partir de delphi), à la déconnexion, j'obtiens toujours le même message...

[Keke des Iles]

C'est bien le client qui affiche ce message ? Je me demande si ton client n'est pas déjà déconnecté et que tu tentes de te déconnecter une 2ème fois.

Je suis peut-être totalement à côté de la plaque mais, typiquement, moi, quand je fais un connect, j'ai toujours un truc du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
try
  try
    IdTCPClient.Connect;
    [...] 
  except
    [...]
  end;
finally
  if IdTCPClient.Connected then
    IdTCPClient.Disconnect;
end;

J'ai déjà rencontré ce message à une époque (lointaine ) mais dans le programme dans lequel je viens de recopier ce code, je ne l'ai jamais eu.

A voir ...

[jbat]

Voici ma prodédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button11Click(Sender: TObject);
    begin
        with IdTCPClient1 do
        begin
            Host := Edit11.Text;
            Port := StrToint(Edit22.Text);
            try
                Connect;
                lbCommunication.Items.Add(idTCPClient1.ReadLn);
                except on E : EIdTCPConnectionError do
                    ShowMessage(UpperCase(E.Message));
            end;
        end;
    end;

Mais cependant, j'ai remarqué quelque chose d'étrange... Quand je fait mon connect en pas à pas, le curseur disparait après l'execution de la ligne "readln()". Le programme ne semble pas bloqué, la listbox affiche bien le message de bienvenue que mon serveur envoie au client à sa connexion, mais pourtant, le curseur pas à pas disparait... Et lorsque je déconnecte, bizzarement, mon curseur pas à pas réapparait à la ligne qui suit le "readln" où il avait disparu... ?!

Pensez-vous que ça puisse être lié ?

[Keke des Iles]

si je comprend bien, dans le OnConnect du serveur, il y a un WriteLn avec un message de bienvenue. C'est à la réception de celui-là sur le client qu'il y a un problème.

Il faudrait peut-être découper les 2 lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
chaineRecue := idTCPClient1.ReadLn;
lbCommunication.Items.Add(chaineRecue);

et ainsi vérifier que c'est bien le ReadLn qui bloque.

Une précision, le readln n'est pas effectué plusieurs fois sur le client (plusieurs appuis sur le bouton, Button11Click appelé ailleurs, ReadLn appellé ailleurs, ...) ?

[jbat]

Tu as raison, je faisais également mon readln dans le OnConnect du client. Du coup, il bloquait en attente de quelque chose à lire. J'ai supprimé le readln en trop et du coup, j'ai résolu mes deux problèmes...

Ma connexion n'est plus "faussement" bloquante et à la déconnexion, je n'ai plus le message "la connexion s'est terminée proprement"...

Un grand merci !

Jbat.