oliversleep
Messages postés58Date d'inscriptionvendredi 21 décembre 2001StatutMembreDernière intervention11 mai 2009 30 sept. 2002 à 09:15
Moi ce que j'utilise et c assez simple, c que tu pose un petit composant internet et tu récupère la procedure LocalIP, c radical, ça rajoute un peu de taille au fichier, mais c rien ça 8-)
CyberPunk2020
Messages postés24Date d'inscriptionjeudi 14 novembre 2002StatutMembreDernière intervention20 avril 2005 14 nov. 2002 à 22:55
G rien inventé c du réchauffé mais si ça peut te servir
Tu crée un projet en mettant ce code
et tu l'appele dans le FormShow, il faut que tu poses un composant texte
Uses WinSock; // à ajouter aux uses existant
Procedure TForm1.VoirIp;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe :PHostEnt;
pptr :PaPInAddr;
Buffer :array [0..63] of char;
i :integer;
GInitData :TWSADATA;
begin
wsastartup($101,GInitData);
GetHostName(Buffer,SizeOf(Buffer));
phe:=GetHostByName(buffer);
if not assigned(phe) then
exit;
pptr:=PaPInAddr(Phe^.h_addr_list);
i:=0;
while pptr^[I]<>nil do begin
Edit1.Text:=StrPas(inet_ntoa(pptr^[I]^));
inc(i);
end;
wsacleanup;
end;
Cordialement Votre ... Cyber ;o)
Vous n’avez pas trouvé la réponse que vous recherchez ?