Fórum Pegar IP verdadeiro da máquina!!! #184797
28/09/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
28/09/2003
Fhcesar
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;
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;
Responder
Gostei + 0
29/09/2003
Lipsil
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
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)