Como descobrir o IP da internet

Question

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

Nildo · Answer

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;

Titanius · Answer

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

F�rum Como descobrir o IP da internet #205966