J'ai réussi à écrire ça, après mûres réflexions :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| procedure TForm1.Button1Click(Sender: TObject);
begin
// On se connecte
IDWhois1.Port := 43;
IDWhois1.Host := 'whois.verisign-grs.com';
IDWhois1.Connect;
// On envoie les info, sur le domaine
IDWhois1.WhoIs('developpez.com' + chr(13) + chr(10));
// On récupère les infos
Memo1.Text := IDWhois1.ConnectAndGetAll;
// On se déconnecte
IDWhois1.Disconnect;
end; |
Partie 1 :
Malheureusement, lorsque je lance le soft, il m'envoie un message d'erreur :
Et du coup, je reçois aucunes informations de la part du serveur ... Si quelqu'un s'aurait résoudre le problème.
Partie 2 :
J'ai vu dans un autre code :
[...] + chr(13) + chr(10) [...]
J'aimerais savoir si c'est utile ou non. Si oui, à quoi cela sert il ?
D'avance merci pour vos réponses.
Partager