Jump to content
Sign in to follow this  
DraKiNs

Pegar IP Externo de Qualquer Conexão

Recommended Posts

DraKiNs

Bom hoje,vou fazer meu primeiro post/tutorial/tópico.

É um tutorial ensinando a como pegar a ip externo da sua conexão.

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'];

Tutorial:

Na parte do designe, 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: http://piczasso.com/i/2w07l.PNG

Após vamos ao código

Clique duas vezes no botão e deixa o seguinte 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;

Agora personalize como quer e compile

Abraços

Creditos a [iPs]DraKiNs e [iPs]

Share this post


Link to post
Share on other sites
thoga31

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

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;

Boas,

Edita e na tag CODE não faças só [ code]...[ /code]. Faz antes [ code=delphi]...[ /code]* :P

Assim faz o correcto highligth do código Delphi.

Já agora, um How To interessante, tenho de experimentar. :P

Cumpz,

Thoga31

* - Nota: foram dados espaços nas tags (ex: [_code] para evitar que o GeSHi fosse activado


Knowledge is free!

Share this post


Link to post
Share on other sites
thoga31

Bem é meu primeiro Tópico,portanto eu não sabia

No problem :)

Um pormenor: quando crias ou editas um tópico, além dos botões com as opções Bold, Italic, Inserir Link, alterar cor, existe uma ComboBox "Inserir Código": tem lá as linguagens suportadas actualmente pelo GeSHi, o nosso highligther, e, seleccionando uma linguagem, automaticamente aparece a tag na TextBox de edição. ;)

End of offtopic


Knowledge is free!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.