Buscar por:

Capturando/Retornando IP da Internet (externo)

Código

Depois de muita pesquisa...Finalmente uma que funciona.

Este exemplo foi montado em D2006 porém roda em outras versões. Por favor postem aqui os testes. Obrigado...

Function Retorna_IP_Internet : String;

////////////////////////////////////////////////////////////////////////////////

///

///  Colocar em USES Idhttp

///

///  Autor: Desconhecido

///  Colaborador: Jadir Alberto De Oliveira

///  Colaborador: Paulo Vale

///  Colaboração Principal: http://www.whatismyip.com/automation/n09230945.asp

///

///  Rotina que retorna o IP da Internet (eexterno).

///

////////////////////////////////////////////////////////////////////////////////

var

   txt :string ;

   http : tidhttp ;

begin

    // criamos a instancia

    http := tIdhttp.Create ;

    try

       Try

          txt:=http.Get('http://www.whatismyip.com/automation/n09230945.asp');

       except

          exit;

       end;

    finally

        http.Free ;

        result := txt ;

    end;

 END;