Comment gérer une auto-connection continue avec IdTCPClient ?
Bonjour,
Voici mon code :
Code:
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 :
Citation:
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
