Determinação do IP

O presente artigo é um tutorial que ensina a determinar o IP externo da conexão de um computador. Utilizaremos dados de um site chamado "Meu IP" (www.meuip.datahouse.com.br).

Este site utiliza um código PHP, caso queiram fazer seu próprio

echo "Seu ip é ",$_SERVER_['REMOTE_ADDR'];

Como o fazer

Na parte do design, crie isto:

Label 1 (Utilizado para colocar o IP, standard)
Label 2 (Colocar texto, opcional)
IdHTTP (pegar os dados do site, indy client)
Botão 1 (usado para clicar, standard)

Ficando assim:

Screenshot de possível aparência do programa

Segue-se o código.

procedure TForm1.Button1Click(Sender: TObject);
var site: string;
begin
    site := Form1.IdHTTP1.Get('http://meuip.datahouse.com.br');
    Label1.Caption:=(Copy(site, Pos('', site) +225,15));
end;

Este código irá aceder ao site anteriormente referido, e extrair o endereço de IP da mensagem devolvida.