1. Accueil
  2. Tous les snippets
  3. Snippets Delphi / Pascal
  4. Adresse ip d'un ordinateur ( a partir de son nom )

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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 19 728 fois - Téléchargée 37 fois

Commenter

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

++
Signaler
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 ....
Signaler
Messages postés
470
Date d'inscription
vendredi 14 novembre 2003
Statut
Membre
Dernière intervention
23 octobre 2007
 1
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
Signaler
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 ?
Signaler
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
S'inscrire maintenant

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.

Du même auteur (Bruto)