[delphi] Como pegar ip externo de conexao(iniciante)[delphi]

[malmal11 0]

Olá Pessoal Mais uma vez aqui postando um tutorial para iniciantes no delphi.

hoje vamos aprender a pegar ip da sua conexao com um programa bem simples. vamos lá

 

 

Tutorial

 

Vamos precisar de:

2 Label

1 Button

IdHTTP (encontrado na paleta Indy Clients)

 

em label1 vamos por "Meu IP é"

no label 2 coloque um texto qualquer como seu nome ou agradecimentos

no button coloque "MEU IP"

 

Agora clique 2 vezes no button e cole esse codigo

 

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;

 

 

Só isso é bem simples né.

agora só edite como quiser, Espero ter ajudado.

ate a proxima com mais um tutorial para iniciantes no delphi7.

 

Resultado Final

 

 

MalMal11 WebCheats

[Windox 0]

Para iniciantes isso é útil para futuros projetos.

Apesar de ja existirem muitos tópicos sobre isso aqui no W.C e até mesmo no Google.

Portanto o conteúdo pode ser útil ou inútil para alguns.

Mas de qualquer forma. obrigado por postar, mesmo ja tendo tópicos sobre isso aqui.

[malmal11 0]

Para iniciantes isso é útil para futuros projetos.

Apesar de ja existirem muitos tópicos sobre isso aqui no W.C e até mesmo no Google.

Portanto o conteúdo pode ser útil ou inútil para alguns.

Mas de qualquer forma. obrigado por postar, mesmo ja tendo tópicos sobre isso aqui.[/color][/b]

 

Amigo, pesquisei bastante aqui na WC para nao postar coisas repetitivas mais sim coisas uteis para iniciantes em delphi . apesar de que tudo que vc pesquisar no google em relaçao ao delphi possivelmente vocÊ ira encontrar entao caso houve algum mal entendido pesso desculpas a vocÊ e ao pessoal da WC um abraço

[CrawlinG. 0]

Tambem Achei Muito Útil, Pricipalmente Para Mim.

[Windox 0]

Muito util para iniciantes mesmo ....

Mesmo tendo esse conteúdo em todos os lugares, rsrs

Eu ja sabia, mas está valendo, parabéns e continue postando coisas desses niveis para os iniciantes.