Adresse ip d'un ordinateur ( a partir de son nom )

0/5 (13 avis)

Snippet vu 19 899 fois - Téléchargée 39 fois

Contenu du snippet

Ce petit bout de code permet d'obtenir l'adresse IP d'un ordinateur quelconque en partant du principe que vous connaissez son nom.

Source / Exemple :


//Trouve l'adresse IP d'un ordinateur
function OrdiIP(Ordi: string): string;
var
   WSAData : TWSAData;
   Name,Address : String;
   Phe : PHostEnt;
begin
    //Demarrage du gestinnaire de socket
    WSAStartup(2,WSAData);
    SetLength(Name,255);
    Phe := GetHostByName(PChar(Ordi));
    with Phe^ do
    //Formatage du resultat en string
    Address := Format ('%d.%d.%d.%d' , [Byte(h_addr^[0]),Byte(h_addr^[1]),
                                        Byte(h_addr^[2]),Byte(h_addr^[3])]);
    //Fermeture du gestinnaire de socket
    WSACleanup;
    OrdiIP := Address;
end;

//Montre l'adresse IP de l'ordianteur "Dieu-98"
procedure TForm_Principale.Button1Click(Sender: TObject);
begin
     //Dieu-98 étant le nom d'un de mes pc's
     ShowMessage(OrdiIP('Dieu-98'));
end;

Conclusion :


Ce code n'est pas de moi mais comme il me le fallait & qu'il n'est pas sur ce site, je vous le mets à disposition. En réponse à ma question sur le forum.

A voir également

Ajouter un commentaire Commentaires
Filipe35
Messages postés
470
Date d'inscription
vendredi 14 novembre 2003
Statut
Membre
Dernière intervention
23 octobre 2007
1
11 nov. 2005 à 09:02
ok merci

++
tatoobill
Messages postés
2
Date d'inscription
mercredi 3 septembre 2003
Statut
Membre
Dernière intervention
11 novembre 2005

11 nov. 2005 à 05:07
Il faut ajouter l'unite "Winsock" dans la section "uses" du code en D7.
Pour avoir son propre ip , il faut mettre le parametre ordi='';

Voila ....
Filipe35
Messages postés
470
Date d'inscription
vendredi 14 novembre 2003
Statut
Membre
Dernière intervention
23 octobre 2007
1
5 août 2005 à 18:42
salut,

chez moi (delphi7)

ton code bug ici

WSAData : TWSAData; // identi... non déclaré

peux tu faire un zip ou me dire ce que l'on doit ajouter.

merci
ImmortalPC
Messages postés
954
Date d'inscription
mardi 11 mai 2004
Statut
Membre
Dernière intervention
11 novembre 2008
2
24 nov. 2004 à 21:43
OK
Mais j'ai pas l'adsl
Donc SVP
Quelqu'un peut'il me l'envoyer en compiler car j'ai pas delphi ?
JulioDelphi
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
14
24 nov. 2004 à 17:05
tu veux delphi ?
tiens il est gratuit :

http://telecharger.01net.com/windows/Programmation/langage/fiches/17767.html

bonne prog

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.