Soyez le premier à donner votre avis sur cette source.
Snippet vu 19 728 fois - Téléchargée 37 fois
//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;
++
Pour avoir son propre ip , il faut mettre le parametre ordi='';
Voila ....
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
Mais j'ai pas l'adsl
Donc SVP
Quelqu'un peut'il me l'envoyer en compiler car j'ai pas 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.