Adresse IP

Signaler
Messages postés
12
Date d'inscription
mercredi 29 mai 2002
Statut
Membre
Dernière intervention
6 juillet 2006
-
Messages postés
12
Date d'inscription
mercredi 29 mai 2002
Statut
Membre
Dernière intervention
6 juillet 2006
-
J'aimerais savoir s'il est possible de récupérer l'adresse IP utilisé sur internet par un poste lorsque celui-ci est connecté via router. Merci d'avance.

4 réponses

Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
Cette fonction renvoie l'adresse IP de la machine sur laquelle elle est est éxécutée.
function GetLocalIP: string;
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);
Result := '';
GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName(Buffer);
if phe = nil then
begin
exit;
end;
pptr := PaPInAddr(phe^.h_addr_list);
i := 0;
while pptr^ <> nil do
begin
Result := StrPas(inet_ntoa(pptr^[i]^));
Inc(i);
end;
WSACleanup;
end;

[i]May Delphi be with you.
Delphi advanced
Messages postés
12
Date d'inscription
mercredi 29 mai 2002
Statut
Membre
Dernière intervention
6 juillet 2006

Merci pour cette réponse, mais ce n'est pas exactement l'adresse que je cherche. En effet, la fonction "GetLocalIp" me donne mon adresse IP locale que j'utise sur mon réseau LAN. Par contre, lorsque je suis connecté à internet, mon router m'affecte une autre adresse IP, et c'est celle-ci que j'aimerais récupérer.

Je ne sais pas si c'est possible, merci d'avance pour votre aide.
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
On s'était mal compris.
La réponse (je ne l'ai pas vérifiée) est à l'endroit suivant : 965 Get IP address behind a router/proxy.

May Delphi be with you.
Delphi advanced
Messages postés
12
Date d'inscription
mercredi 29 mai 2002
Statut
Membre
Dernière intervention
6 juillet 2006

Merci beaucoup, c'est exactement ce que je voulais !