Como descobrir o IP da internet

Delphi

12/01/2004

olá.. tenho uma maquina ligada em rede... o meu ´servidor´ conecta na internet por meio da Rede Dial-up.... como faco pra pegar o IP da conexao discada, ou seja, da conexao com a internet... e nao o IP da rede... desde ja agradeco


desde ja agradeco


Titanius

Titanius

Curtidas 0

Respostas

Nildo

Nildo

12/01/2004

Se não me engano foi essa que usei em um projeto meu
function GetNetIP: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
      Result := Format( ´¬d.¬d.¬d.¬d´, [ Byte(h_addr^[0]), Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3]) ] );

   WSACleanup;
end;



GOSTEI 0
Titanius

Titanius

12/01/2004

ok... tambem tenho esta funcao, porem ela pega o ip da placa de rede.. se o computador estiver conectado na internet for um ´servidor´ de uma pequena rede... entendeu? queria mesmo pegar o da internet...


abracos


GOSTEI 0
POSTAR