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