Discussion :

[[ZiP]]

Bonjour,

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
procedure TMain.Timer1Timer(Sender: TObject);
begin
     Timer1.Enabled := false;
     if IdTCPClient1.Connected then
     begin
 
     end
     else
     begin
          Log(Format('Tentative de connexion au serveur TCP : %s/%d (TimeOut : %d)',[IdTCPClient1.Host, IdTCPClient1.Port, IdTCPClient1.ConnectTimeout]));
          try
               IdTCPClient1.Connect;
          except
               on E : Exception do
               begin
                    Log(E.Message);
               end;
          end;
     end;
     Timer1.Enabled := true;
end;

Le problème, c'est qu'au bout de quelques tentatives, il m'affiche un message d'erreur :

Socket Error # 10060
Connection timed out.

Savez-vous comment faire pour ne pas avoir le message d'erreur et continuer à essayer de se connecter indéfiniment ?

Merci,
ZiP

[mick605]

Salut

Tu pourrais essayer en UDP. Comme ca, si tu recois une réponse, c'est que le serveur est connecté et tu peux donc te connecter en TCP ... J'ai déja testé et ca marche bien ^^

Bonne chance !

[[ZiP]]

Bonjour,

Il n'y a pas une autre méthode, plus simple ?

En fait, il me provoque une exception que je n'arrive pas à gérer et qui me provoque l'ouverture d'une fenêtre d'erreur.

Je souhaiterai si on n'est pas connecté, effectuer une tentative de connexion qui si elle échoue est relancée jusqu'à ce qu'elle soit à nouveau établie et ceci en permanence.

C'est ce qu'est censé faire mon bout de code dans mon premier post mais celui-ci ne semble pas fonctionner...

J'ai peut-être fait une erreur mais je ne la vois pas !

Merci,
ZiP

[ShaiLeTroll]

Personnellement, j'utilise TTcpClient (pas celui de Indy), je n'ai aucun soucis de connexion (ou de reconnexion auto, j'en ai fait une aussi)

Si il échoue, cela renvoie False, tout simplement

J'ai utilisé aussi le TIdTcpClient, il y a bien longtemps (D6 je crois), il ne me semblait pas qu'il affichait des Messages mais bien des Exeptions, as-tu activé "l'arrêt sur les exceptions" dans le Déboggueur Delphi ?

J'avais une version en français, c'est quelle version de Indy, cela joue bcp, ils se sont amusés parfois, ... c'est un message du TIdStack Global !

Essaye de différencer les EIdSocketError et les Exceptions !

[[ZiP]]

Bonjour,

Je crois que c'est parce que j'avais mis le TimeOut à -1 !

ZiP

[ShaiLeTroll]

Euh, valeur par défaut c'est -1 justement (IdTimeoutDefault)

Regarde ce que vaut TIdAntiFreezeBase.ShouldUse
En fonction de cette valeur,
True: -1 = 120000
False: le TimeOut par défaut de WinSock !

[[ZiP]]

Chez moi, le ConnectTimeout est par défaut à 0 pour le TIdTCPClient.

ZiP