recuperer ip internet

Bonjour, je cherche le moyen de recuperer une Ip Internet, sous delphi 4, j ai bien trouvé plusieurs examples mais tous utilisent du code non compatible D4.MErci.

Aucune de ces 2 pages ne contient un code compatible D4 ? http://www.delphifr.com/recherche.aspx?r=recuperer+ip+internet&tr=source

salut, dans le programme WEBCam IP j'ai mis une fonction qui récupère l'IP (il y a 4 possibilités): function TFServer.GetLocalIp: string; var HTMLSource:string; wsaData: TWSAData; addr: TSockAddrIn; Phe: PHostEnt; szHostName: array[0..128] of Char; BeginDelimit,EndDelimit:integer; begin if RadioButton1.Checked then begin try try if WSAStartup($101, WSAData) <> 0 then raise Exception.Create('Cannot initialize WSA'); try if GetHostName(szHostName, 128) <> SOCKET_ERROR then begin Phe := GetHostByName(szHostName); if Assigned(Phe) then begin addr.sin_addr.S_addr := longint(plongint(Phe^.h_addr_list^)^); Result := inet_ntoa(addr.sin_addr); end; end; finally WSACleanup; end; except on e:Exception do begin Result:='Error: '+e.Message; raise; end else raise; end; finally //StaticText1.Caption:='Automatic Ip detection: '+Result; end; end; if RadioButton2.Checked then begin Try HTMLSource:=IdHTTP1.Get('http://checkip.dyndns.org/'); delete(HTMLSource,1,pos(':',HTMLSource)+1); delete(HTMLSource,pos('<',HTMLSource),80); result:=HTMLSource; Except // Result:=false; end; end; if RadioButton3.Checked then Try result:=IdHTTP1.Get('http://filezilla.sourceforge.net/misc/ip.php'); Except // Result:=false; end; if RadioButton4.Checked then begin Try HTMLSource:= IdHTTP1.Get('http://www.showmyip.com/fr/'); //On demande le contenu de la page et on le récupère dans HTMLSource BeginDelimit:=length(Copy(HTMLSource,1, Pos('Internet',HTMLSource)+ 9 ) );//);76 ,77 EndDelimit:=length(Copy(HTMLSource,Pos('-->',HTMLSource)-1,Length(HTMLSource))); Result:=Copy(HTMLSource,BeginDelimit,Length(HTMLSource)-BeginDelimit-EndDelimit+1); //On extrait l'adresse IP de HTMLSource Except // Result:=false; end; end; IPServer.Text:=Result;//'Automatic Ip detection: ' end; Il y en a peut être une qui fonctionne sous D4 mais je n'ai pas testé @+ jlen

non, aucun de ces codes n est compatible D4, j ai besoin de l  ip internet et pas de l ip locale.Beaucoup de monde semble chercher cette fonction.

Mon compilateur ne reconnais pas TWSAData comme type de donnée.Donc, impossible pour moi de tester les sources utilisant ceci.

SAlut Shadral : JLen te propose de récupérer l'adresse Internet : HTMLSource:= IdHTTP1.Get('http://www.showmyip.com/fr/'); Tu récupère l'adresse IP qui est dans le souce de la page html de l'url :www.showmyip.com. En aucune façon tu récupère ici l'IP Local. Si D4 ne reconnait pas TWSAData, il y a surement l'équivalent. Sinon rien t'mpeche de récupérer D2005 qui est gratuit. Il y a donc bel et bien une solution à ton probleme.

Ah oui : petit truc aussi, ce n'est pas ton OS qui t'attribue ton IP Internet mais ton FAI. Donc trouver une API me semble impossible.

D4 cimmence à être sérieusement obslète il seraittemps de passer à un e version plus récente

ok pour le source de Japee, ca marche, merci.Mais j ai pensé que ce serais vraiment plus simple.Apres tout quand on ouvre la connexion reseau puis proprieté de la connexion, il affiche bien l ip.Elle doit donc bien se trouver quelque part dans le systeme... Delphi 2005 est gratuit mais la diffusion de programmes est interdite alors je ne vois pas trop l interet.

salut @Japee : La partie HTMLSource:= IdHTTP1.Get('http://www.showmyip.com/fr/'); consiste à se connecter sur www.showmyip.com et récupérer l'adresse IP internet comme tu l'as souligné ^^. @Shadrak : Avec D2005 personnel tu as le droit de diffuser tes softs mais tu n'as pas les droits de les vendre comme avec D4(il me semble). @+