Discussion :

[Tchaill39]

Salut à tous,

Dans mon appli, j'ai un objet client (INDY) qui tente de se connecter à un serveur. Mon problème est que le serveur n'est pas toujours disponible. Dans ce cas j'ai une erreur qui s'affiche :

ERREUR DE SOCKET #10061
Connection refusée

Quand il me met cette erreur mon code se termine complétement et les lignes qui suivent ne sontg pas exécutés. J'ai tenter avec un TRY EXCEPT mais il ne me rends jamais la main.... UNE IDEE ?

Merci

[edam]

j'utlise clientsocket et je sais pas si indy à le meme principe pour les erreur; mais pour moi je mis simplement "error=0"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm4.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
     if ErrorEvent=eeConnect then
       begin
         memo1.lines.Add('la connexion au serveur est Impossible');
       end;
     if ErrorEvent=eeLookup then;
     Timer1.Interval:=10000;
     timer1.Enabled:=true;
     ErrorCode:=0;
end;

pour moi, le timer1 simplement pour que autre esser de connection au serveur aprés 10s

[Linkin]

Peux-tu donner un exemple de code?

En fonction de ton algo, tu peux peut-être utiliser un try finally

[edam]

autre chose, tu peut pingé sur le serveur avant la connection

[eultartuffe]

Salut
j'ai eu le même problème et j'ai tout simplement fait ceci sur l'évènement OnError de ma socket Client :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
If (ErrorCode = 10061) Or (ErrorCode = 10060) Then
   begin
      //Le code erreur Windows 0 équivaut à une opération réussi
      //donc l'API de Windows ne déclenchera pas d'exceptions
      ErrorCode := 0;
      memoEtat.Lines.Add(TimeToStr(Time) +
                        ' : Le serveur (IP : ' + txtIP.Text +
                        ', Port : ' + txtPort.Text +
                        ') n''a pas été trouvé');
   end;