Buscar

Ip real

Código

{Primeiro add o componente IdHTTP da palheta Indy Clients(delphi 7). Para obter o seu ip na internet use a seguinte função.}

Function ipReal:string;
Var
auxIp: String;
begin
auxIp := form1.IdHTTP1.Get('http://www.meuip.com.br');
ipReal := Copy(auxIp, Pos('<strong class="IP">', auxIp) +19, 15);
end;

{Para testar a função use um showmessage ex: showmessage(ipReal);}

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%

Detalhes da dica

Categoria: Rede
Adicionada dia: 08/12/07
Por: Rafael
Visualizada: 7840 vezes

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