Buscar

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;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Rede
Adicionada dia: 18/03/10
Por: Paulo Vale
Visualizada: 5629 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009