:heink: mouais c bien possible....
Bon...ben j'ai plus qu'a faire un site alors...
Merci en tout ca... :jap:
Je@nb
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.
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:
antp
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]
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...
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 :D
Je sais pas si ça te conviens...
antp
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.
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 ?
antp
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...
joebarjo
Allez lachez vous ! Toute idée sera la bienvenue !
La maison ne reculera devant aucun sacrifice :D Meme une suggestion "foireuse" peut trouver sa place...
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 :D Bref, merci...
