Besoin d'aide pour Delphi (Avancé)

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Besoin d'aide pour Delphi (Avancé)

Le_Programmeur_Fou

Bonjour,
Je suis a la recherche d'une fonction assé avancé. J'aimerais savoir comment faire pour récupérer son ip Externe (Internet). Je sais qu'il est possible de le faire avec le protocole UDP et un sockets ou winsock là, mais je ne sais pas l'utiliser enfin je cherche des informations dessus car je veux trouvé mon ip eterne sans etre bloquer par le routeur ou passerelle ou autres. Je veut avec l'ip externe de son pc et ne pas etre enfargé dans l'ip local. "192.168.100" <====celle-la. Je veux la vrai. Si vous savez comment merci de me faire par de la méthode.

Language : Delphi 6 et inférieur

Merci à l'avance

Le_Programmeur_Fou

Publicité

antp

Super Administrateur
Champion des excuses bidons

Code :

with TIdHTTP.Create(nil) do
try
s := Get('http://checkip.dyndns.org/');
finally
Free;
end;

s contiendra entre autres l'IP publique.
(si t'as pas le TIdHTTP, c'est le client HTTP des composants Indy)

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Gilles-

Ou bien sans utiliser les composants Indy, mais via l'unité Winsock :

Code :

function GetIP: 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 Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^[I] <> nil do begin
result := StrPas(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;

Cette fonction n'est pas de moi, je l'avais initialement trouvée sur http://www.nsonic.de/Delphi/txt_WIS00375.htm

antp

Super Administrateur
Champion des excuses bidons

T'as au moins lu la question ?

Ton code, chez moi ça me renvoie "192.168.0.21".
Alors que ma solution me renvoie ceci :

<html><head><title>Current IP Check</title></head>
<body bgcolor=white text=black>

Current IP Address: 213.132.148.31</body></html>

Message édité par antp le 19-10-2003 à 00:13:25

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Gilles-

Oui, j'ai bien lu question... Cette fonction renvoit bien chez moi mon IP de connexion Internet. Maintenant il se peut que ça ne fonctionne pas chez toi car tu te trouves derrière un routeur ou un proxy ?

antp

Super Administrateur
Champion des excuses bidons

bah oui, mais relis la question de départ où il disait connaître cette technique qui justement ne marche pas dans la cas d'un routeur [:mlc]

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Poipoi

Vive Grumly

dyndns ont changé et change souvent en ce moment la page de réponse :fou:
C relou pour parser

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

JWhy

je peux plier (héhé)

un autre site pour recuperer ton ip si dydns ne marche pas http://www.whatismyip.com/

Message édité par JWhy le 30-10-2003 à 03:25:52

Poipoi

Vive Grumly

ça reste des méthodes pas super fiables à long terme... si le site est down, ou si la page est légérement modifié, la récupération de l'ip ne fonctionnera plus...

---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

FORUM HardWare.fr

Programmation

Delphi/Pascal

Besoin d'aide pour Delphi (Avancé)

Sujets relatifs
SQL besoin d'un coup de main sur une requete svp (och).	[HTML/CSS] Besoin d'avis technique sur mon site presque fini
[Help] Besoin d'aide pour projet intranet	[delphi] pb d'installation!
[Delphi] Invalid Pointer Operation avec une string venant d'1 DLL.	URGENT : Besoin d'aide sur les sessions
[python] un chtit debut besoin d'aide !
Plus de sujets relatifs à : Besoin d'aide pour Delphi (Avancé)

Page générée en 0.032 secondes