Delphi dicas

Ip real

{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('', auxIp) +19, 15);

end;



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