Pegar IP verdadeiro da máquina!!!

Delphi

28/09/2003

Iae pessoal!!!!
alguem aí sabe como fazer pra pegar o IP de verdade da máquina conecta á internet?

tipo poder ser socket1.localhost ... mas este não dá, pois se a pessoa estiver usando um proxy pra conexão este pega o do proxy.... então como pegar o de verdade mesmo?


valew


Lipsil

Lipsil

Curtidas 0

Respostas

Fhcesar

Fhcesar

28/09/2003

Tente isso !!!

Function GetIP:String;
Var WSAData: TWSAData;
HostEnt: PHostEnt;
Name:String;
begin
WSAStartup(2, WSAData);
SetLength(Name, 255);
Gethostname(PChar(Name), 255);
SetLength(Name, StrLen(PChar(Name)));
HostEnt:= gethostbyname(PChar(Name));
With HostEnt^ Do Begin
Result:= Format(´¬d.¬d.¬d.¬d´,[Byte(h_addr^[0]),Byte(h_addr^[1]),Byte(h_addr^[2]),Byte(h_addr^[3])]);
End;
WSACleanup;
End;


GOSTEI 0
Lipsil

Lipsil

28/09/2003

Kra, valew, brigadão pela força....
mas este cód q vc me passou esta dando erro na parte:
WSAData: TWSAData;
HostEnt: PHostEnt;

o q e como fazer pra se saber o IP verdadeiro então :?:

Valew kra


GOSTEI 0
POSTAR