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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 19 662 fois - Téléchargée 37 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

Messages postés
496
Date d'inscription
vendredi 14 novembre 2003
Statut
Membre
Dernière intervention
23 octobre 2007

ok merci

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

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 ....
Messages postés
496
Date d'inscription
vendredi 14 novembre 2003
Statut
Membre
Dernière intervention
23 octobre 2007

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
Messages postés
954
Date d'inscription
mardi 11 mai 2004
Statut
Membre
Dernière intervention
11 novembre 2008
2
OK
Mais j'ai pas l'adsl
Donc SVP
Quelqu'un peut'il me l'envoyer en compiler car j'ai pas delphi ?
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
13
tu veux delphi ?
tiens il est gratuit :

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

bonne prog
Afficher les 13 commentaires

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.