Discussion :

[xenos]

Bonjour,

Je développe un logiciel qui vérifie automatiquement si les noms de domaines qu'on lui donne sont libre ou non.

Le problème est qu'en moyenne quand il arrive au 110ième de la liste, il s'arrête et renvoie le message d'erreur suivant :

Socket Error #10053
Software caused connection abort.

Voici la fonction qui effectue la requête sur le Whois gérant les SLD en .info :

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
23
24
Function TForm1.Statut_beexe(R: string): Integer;
var
  WhoIs : TIdWhois;
  Info : String;
 
begin
  Result := 30;
 
  WhoIs := TIdWhois.Create;
  WhoIs.Port := 43;
  WhoIs.Host := 'whois.afilias.net';
  WhoIs.ConnectTimeout := 5000;
  Try
    Info := LowerCase(WhoIs.WhoIs(R + '.info'));
  Except
    On EIdConnectTimeout Do
      Result := 91;
  end;
 
  If (Pos('not found', Info) <> 0) Then //Free
    begin
      Result := 2;
    end;
end;

Code qui appel la fonction lorsque l'on appuie sur un bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
[...]
 
    If (Statut_beexe(s) = 2) Then
      begin
        Memo1.lines.Add(s);         //ajoute le contenu de s dans Memo
      end;
    If (Statut_beexe(s) = 91) Then
      begin
        Memo1.lines.Add('TIME OUT : ' + s);  //ajoute le contenu de s dans Memo
      end;
 
[...]

Pour résumer, j'aimerais qu'il vérifie la disponibilité d'une liste de noms de domaines sans renvoyer d'erreur.

D'avance merci pour votre aide.



xenos

[Okaryn]

Tu crées un TIDWhoIs sans le libérer à la fin de ta procédure.

Peut être qu'au bout d'un moment il y en a un peu trop en mémoire... Ajoutes un WhoIs.Free à la fin de Statut_beexe()

[xenos]

Merci de ta réponse Okaryn,

J'ai rajouté un WhoIs.Free; à la fin de Statut_beexe. Malgré ça il continue à me lancer la même erreur au même moment ...

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
23
24
25
26
27
Function TForm1.Statut_beexe(R: string): Integer;
var
  WhoIs : TIdWhois;
  Info : String;
 
begin
  Result := 30;
 
  WhoIs := TIdWhois.Create;
  WhoIs.Port := 43;
  WhoIs.Host := 'whois.afilias.net';
  WhoIs.ConnectTimeout := 5000;
  Try
    Info := LowerCase(WhoIs.WhoIs(R + '.info'));
  Except
    On EIdConnectTimeout Do
      Result := 91;
  end;
 
  If (Pos('not found', Info) <> 0) Then //Free
    begin
      Result := 2;
    end;
 
  WhoIs.Free;
 
end;

[Okaryn]

Il plante toujours à la même ligne ?

Essaie de mettre cette ligne en 1er, par exemple, pour voir si ce n'est pas cette ligne qui provoque le problème.

Autre idée : peut-être qu'il faudrait que tu déconnectes ton composant :

Code :

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

whoIs.Disconnect(true);

[xenos]

Il plante toujours à la même ligne ?

Essaie de mettre cette ligne en 1er, par exemple, pour voir si ce n'est pas cette ligne qui provoque le problème.

Non il ne s'agit pas de la même ligne ... c'est vers la ligne 110 qu'il se met à planter ... même en changeant l'ordre des mots, en changeant de dictionnaire, ... rien n'y fait c'est vers les 110 mots.

Pour un même dictionnaire dont les mots sont dans le même ordre, il ne va pas planter au même mot, mais vers le 110ième mot.

Autre idée : peut-être qu'il faudrait que tu déconnectes ton composant :

Code :

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

whoIs.Disconnect(true);

Je viens de rajouter ce code, malheursement, ça ne change rien ... il plante toujours vers la 110ième ligne ...

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
23
24
25
26
27
28
Function TForm1.Statut_beexe(R: string): Integer;
var
  WhoIs : TIdWhois;
  Info : String;
 
begin
  Result := 30;
 
  WhoIs := TIdWhois.Create;
  WhoIs.Port := 43;
  WhoIs.Host := 'whois.afilias.net';
  WhoIs.ConnectTimeout := 5000;
  Try
    Info := LowerCase(WhoIs.WhoIs(R + '.info'));
  Except
    On EIdConnectTimeout Do
      Result := 91;
  end;
 
  If (Pos('not found', Info) <> 0) Then //Free
    begin
      Result := 2;
    end;
 
  WhoIs.Disconnect(true);
  WhoIs.Free;
 
end;

[Okaryn]

Hum... Alors là... Aucune idée

Peut être trop de requêtes rapidement. Essaie de mettre un wait(1000) entre chaque appel à ta fonction, histoire de ne pas surcharger le serveur WhoIs (ou une valeur supérieur à 1000 (1 seconde) pour tester).

[xenos]

Merci pour ton aide précieuse Okaryn !

En définitif ce sera le dernier conseille que tu m'auras donné pensant ne plus pouvoir m'aider qui sera la clé de cette énigme !

Donc en effet, c'était surement une mesure de protection de Verisign en bloquant l'accès au Whois après 110 requêtes en moins de 3min.

De ce fait j'ai simplement rajouté un GetTickCount réglé sur 1sec.

Donc aucun problème avec le code ... quoique j'suis content de l'avoir optimisé avec ton aide !

Encore merci Okaryn !

Bon développement à tous.



xenos