Adresse IP sous Delphi

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Adresse IP sous Delphi

joebarjo

Hello !
Je vais me lancer dans le développement d'un serveur ftp sous Delphi. En fait avant de me lancer je fais 2-3 essais...
Pour l'instant, j'essai de récuperer dans mon programme l'adresse ip attribué par mon provider. Et là, ca coince !
J'ai bien vu a quelque part comment trouver l'adresse de la machine, mais celle attribuée par le provider... :heink:
Alors si quelqu'un à une suggestion ou idée... ou exemple
Bref, merci...

Publicité

joebarjo

Allez lachez vous ! Toute idée sera la bienvenue !
La maison ne reculera devant aucun sacrifice
Meme une suggestion "foireuse" peut trouver sa place...

antp

Super Administrateur
Champion des excuses bidons

j'ai ça en stock:

Code :

function TXMLSocket.GetLocalAddress: string;
var
wsaData: TWSAData;
p: PHostEnt;
s: array[0..128] of char;
p2: PChar;
begin
if WSAStartup(MAKEWORD(1,1), wsaData) = 0 then
begin
GetHostName(@s, 128);
p := GetHostByName(@s);
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
result := p2;
WSACleanup;
end else
result := '';
end;

Je sais pas si ça te conviens...

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

Ciler

antp a écrit a écrit :

j'ai ça en stock:

Code :

function TXMLSocket.GetLocalAddress: string;
var
wsaData: TWSAData;
p: PHostEnt;
s: array[0..128] of char;
p2: PChar;
begin
if WSAStartup(MAKEWORD(1,1), wsaData) = 0 then
begin
GetHostName(@s, 128);
p := GetHostByName(@s);
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
result := p2;
WSACleanup;
end else
result := '';
end;

Je sais pas si ça te conviens...

Salut antp !
Pour ma culture, quel est l'intéret du @ ligne 10~11 ?

---------------
And I looked, and behold a pale horse: and his name that sat on him was Death, and Hell followed with him. Revelations 6:8

antp

Super Administrateur
Champion des excuses bidons

la fonction veut un pointeur vers une chaîne de caractère de type C (donc tableau de char)
Le @ donne l'adresse de la variable
En C la variable aurait deja été une adresse, en Pascal non.

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

joebarjo

antp a écrit a écrit :

j'ai ça en stock:

Code :

function TXMLSocket.GetLocalAddress: string;
var
wsaData: TWSAData;
p: PHostEnt;
s: array[0..128] of char;
p2: PChar;
begin
if WSAStartup(MAKEWORD(1,1), wsaData) = 0 then
begin
GetHostName(@s, 128);
p := GetHostByName(@s);
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
result := p2;
WSACleanup;
end else
result := '';
end;

TU ES UN CHEF !!! :jap:

C nickel ! Merci

Je sais pas si ça te conviens...

joebarjo

:lol:
En fait j'avais pas repèré...
Mais ça c pour récupérer l'adresse locale de ta machine.
Ca je l'avais déja fait. Dailleurs ta version est beaucoup plus simple que la mienne donc j'adopte...
Cependant, moi ce que je veux, c récupérer l'adresse que le provider t'attribue... genre avec connexion adsl, modem, etc...

antp

Super Administrateur
Champion des excuses bidons

bhen c'est la même chose :??:
si c'est l'adresse qu'a le routeur/modem je pense pas que ce soit possible...

[jfdsdjhfuetppo]--Message édité par antp--[/jfdsdjhfuetppo]

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

joebarjo

antp a écrit a écrit :

bhen c'est la même chose :??:

si c'est l'adresse qu'a le routeur/modem je pense pas que ce soit possible...

Disons que ça doit l'être, certaines applics le font... A moins quelle n'interroge un truc externe....
Style les clients de mise à jour d'ip pour dyndns, dns2go, etc... le font...
En tout cas c pô évident... :crazy:

Je@nb

Kindly give dime

les client dns font à mon avis pas comme ça :
ça envoie une requète de mise à jour et sur le site ça update l'adresse avec $remote_adrr ou enfin + élaborré si on passe par un proxi et tt je pense.

Publicité

joebarjo

:heink:
mouais c bien possible....
Bon...ben j'ai plus qu'a faire un site alors...
Merci en tout ca... :jap:

FORUM HardWare.fr

Programmation

Adresse IP sous Delphi

Sujets relatifs
[ C ] Récupérer l'adresse de la machine	(ANTP , POIRE JUJU le BARBARou autre ) DELPHI 5 : CB_SELECSTRING!
[kylix] Ping d'une adresse IP	[DELPHI] Fonction "Round" donne un résultat bizarre...
[Delphi] POO	[Delphi - kylix] declarations :/
[PHP ou ASP] Vérification validitée adresse e-mail	Composant réseau Delphi !
[Delphi] 2 questions très naze mais qui m'énervent !!!	[Delphi] lire les valeurs REG_MULTI_SZ dans la base de registre ?
Plus de sujets relatifs à : Adresse IP sous Delphi

Page générée en 0.057 secondes