Discussion :

[star]

Comment pourrais-je obtenir dans mon code Delphi l'adresse IP d'un site à partir de son nom DNS.
Par exemple, si je fais :

Code :

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

ping moman.dyndns.org

Il me retourne :

Envoi d'une requête 'ping' sur moman.dyndns.org [202.3.251.204] avec 32 octets de données :

Réponse de 202.3.251.204 : octets=32 temps=2 ms TTL=255
Réponse de 202.3.251.204 : octets=32 temps=1 ms TTL=255
Réponse de 202.3.251.204 : octets=32 temps=1 ms TTL=255
Réponse de 202.3.251.204 : octets=32 temps=1 ms TTL=255

Statistiques Ping pour 202.3.251.204:
Paquets : envoyés = 4, reçus = 4, perdus = 0 (perte 0%),
Durée approximative des boucles en milli-secondes :
minimum = 1ms, maximum = 2ms, moyenne = 1ms

Je voudrais juste stoker dans une variable l'adresse IP : 202.3.251.204
Merci de votre aide
.

[Frank]

Fais une recherche avancée avec le mot clé Ping en filtrant sur le forum Delphi.

Tu as plein de réponses qui n'attendent que toi. .

[Rayek]

Puis un petit tour dans la t'aurais permis de trouver cela : http://delphi.developpez.com/faq/?pa...ne_ip#indyping

[star]

Super, ça le fait bien !
Je vais voir à l'usage, peut être ais-je oublié ou n'ai-je pas pris en considération d'autres points importants.
En tout cas, si le code peut servir, j'en serais content :

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
29
30
31
32
33
34
35
36
procedure TForm1.PingClick(Sender: TObject);
begin
 
// RB2006
// Récupérer adresse IP de moman.dyndns.org
// (*
// ShowMessage('To DO');
with TIdIcmpClient.Create(Self) do
    try
        Host := TahitianSiteName.Text;
        ReceiveTimeout := 5000; // TimeOut en millisecond du ping
        HostsContent.Text := #0;
        Application.ProcessMessages; // Rafraichir l'écran
        try
            Ping();
            if ReplyStatus.ReplyStatusType <> rsEcho then
            begin
                HostsContent.Text := 'Impossible de contacter le serveur Tahitian. Le serveur ne répond pas.' + CRLF + 'Essaye de nouveau !';
                ErreurMessage(HostsContent.Text);
            end
            else
            begin
                HostsContent.Text :=  '# Mise à jour du fichier hosts de manière à pouvoir jouer sur le serveur Tahitian' + CRLF +
                                      '127.0.0.1' + TAB + TAB + 'localhost' + CRLF +
                                      ReplyStatus.FromIpAddress + TAB + 'moman.dyndns.org' + CRLF;
            end;
        except
            HostsContent.Text := 'Impossible de contacter le serveur Tahitian. Le serveur ne répond pas.' + CRLF + 'Essaye de nouveau !';
            ErreurMessage(HostsContent.Text);
        end;
    finally
        Free;
    end;
// *)
 
end;

N'hésitez pas à faire des critiques si vous voyez des choses pas très orthodoxes.
Merci
.