Tutorial IP externo com delphi

[$cr34m()]

hoje falaremos sobre como pegar o ip externo, não tô falando do ip interno, mas o ip da internet..... bem vamos lá....

Primeiro baixe a unit da synapse. Depois disso vamos ao código...

Adicione a unit da synapse ao seu projeto, o HttpSend.pas

Em seguida adicione um edit e um button ao seu formulário.... dessa vez não vou colocar imagens... Vou postar o código abaixo...

var 
  lcHttp : THTTPSend;  //synapse 
  lcLista: TStringList; 
begin 
  try 
    lcHttp := THTTPSend.Create; 
    lcLista:= TStringList.Create; 
    lcHttp.HTTPMethod('GET', 'http://www.chsoft.com.br/util/pegaip/'); 
    lcLista.LoadFromStream(lcHttp.Document); 
 
    Edit1.Text := lcLista.Text; 
  finally 
    FreeAndNil(lcHttp); 
    FreeAndNil(lcLista); 
  end;  

Explicando...
Você cria duas variáveis com os objetos que irá trabalhar, no caso o lcHttp(que é componente da synapse) e lcLista(acho que esse não necessita de explicação néh...). Cria eles e utilizando a propriedade HTTPMethod, passo o metodo que será utilizado e o endereço. Essa consulta retorna na propriedade "Document", carrego ela em um stream e depois exibo num edit e por fim finalizo as duas variáveis.

Esse é o endereço que retorna o seu ip Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...

Qualquer coisa dúvida ou erro nó cod é so me avisar.

Abraço a todos...

[µTorrent]

Topico legal

Vlw ai em man

[fornecedordesoft]

outra forma

Também dá para fazer o seguinte, cria um simples navegador em delphi (tem um componente nativo que abre uma página de internet (achjo que se chama webbrowses ou algo assim) dai seta para ele abrir uma página de ip como Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar... tambem funciona, porém vai mostrar a página escolhida.