Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

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


malmal11
 Compartilhar

Posts Recomendados

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

tutoup.png

 

 

MalMal11 WebCheats

Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

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

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.