0/5 (13 avis)
Snippet vu 19 899 fois - Téléchargée 39 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;
11 nov. 2005 à 09:02
++
11 nov. 2005 à 05:07
Pour avoir son propre ip , il faut mettre le parametre ordi='';
Voila ....
5 août 2005 à 18:42
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
24 nov. 2004 à 21:43
Mais j'ai pas l'adsl
Donc SVP
Quelqu'un peut'il me l'envoyer en compiler car j'ai pas delphi ?
24 nov. 2004 à 17:05
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.