Função que retorna o IP na Rede.

[KaiqueHunter]

Pessoal tava pesquizando na Net como pegar o IP usando o Delphi só que só achei funções que retornacem o IP local da Maquina,então pesquizando um pouco achei uma função que retornace o IP da rede usando o codigo de fonte de um site,o unico problema é que a função estava bugada,grande e com erros,ai resolvi fazer essa funçãozinha basica para ajudar caso alguem precise.
OBS:Precisa declarar "idHTTP" na Uses.

Function GetIP : String;
Var
idHTTP: TIdHTTP;
Site: String;
Begin
idHTTP:= TIdHTTP.Create(Nil);
Site:= idHTTP.Get('http://checkip.dyndns.org');
idHTTP.Free;
Result:= Copy(Site,Pos(':',Site) + 2,15);
End;

[R0Dr1g0.]

Pessoal tava pesquizando na Net como pegar o IP usando o Delphi só que só achei funções que retornacem o IP local da Maquina,então pesquizando um pouco achei uma função que retornace o IP da rede usando o codigo de fonte de um site,o unico problema é que a função estava bugada,grande e com erros,ai resolvi fazer essa funçãozinha basica para ajudar caso alguem precise.
OBS:Precisa declarar "idHTTP" na Uses.

Function GetIP : String;
Var
idHTTP: TIdHTTP;
Site: String;
Begin
idHTTP:= TIdHTTP.Create(Nil);
Site:= idHTTP.Get('http://checkip.dyndns.org');
Result:= Copy(Site,Pos(':',Site) + 2,15);
End;

Na verdade isso pega o IP WAN que você ganha ao conectar na internet,não é o IP local.

[KaiqueHunter]

Na verdade isso pega o IP WAN que você ganha ao conectar na internet,não é o IP local.

Sim na verdade era isso mesmo que eu estava procurando,só que só achava o IP Local,oq é facil usando o idIPWatch da Indy Components.

[R0Dr1g0.]

Sim na verdade era isso mesmo que eu estava procurando,só que só achava o IP Local,oq é facil usando o idIPWatch da Indy Components.

Na verdade isso é meio POG pois vc ta usando um serviço externo só pra pegar o IP.
E ta faltando usar o método Free do TIdHttp para liberar a memória usada,desse jeito o programa vai inflando por causa das várias instancias da classe TIdHttp que são criadas e não são liberadas.

[KaiqueHunter]

Ata esqueci,ainda to muito Noob,tem como editar?
Sobre o POG,acho q não pq já vi outras funções que seguiam a mesma Base,como a Função que vc postou de encurtar a URL,e outra não achei nada de como pegar o IP na Rede,só achei sobre o IP Local usando varios metodos como usando o idIPWatch,ou WinSock,acho que é possivel até mesmo com o TServerSocket e TClientSocket.

[R0Dr1g0.]

Ata esqueci,ainda to muito Noob,tem como editar?
Sobre o POG,acho q não pq já vi outras funções que seguiam a mesma Base,como a Função que vc postou de encurtar a URL,e outra não achei nada de como pegar o IP na Rede,só achei sobre o IP Local usando varios metodos como usando o idIPWatch,ou WinSock,acho que é possivel até mesmo com o TServerSocket e TClientSocket.

Na verdade aquilo não é pog porque o migre.me fornece aquela api web e é ele que faz o serviço de encurtar url,é como usar a API do twitter ,ou do facebook.

Sobre editar,eu vou editar.

[KaiqueHunter]

Então mas como falei não consegui achar outro metodo a não ser esse,2 unico lugar que achei foi usando o mesmo metodo e esse site era melhor,e menos provavel a mudança no codigo de fonte(Pq caso aconteça teria que mudar o Pos).Se vc souber algum metodo pode falar que tento fazer.

[KaiqueHunter]

Desculpe o Double Post,mas percebi o erro nessa Função isso pq o numero do IP é diferente então copiar 15 caractere não ira resolver refiz ela de um geito melhor:

Function GetIP : String;
Var
idHTTP: TidHTTP;
Site: String;
I: Integer;
Begin
idHTTP:= TIdHTTP.Create(Nil);
Site:= idHTTP.Get('http://checkip.dyndns.org');
Site:= Copy(Site,Pos(':',Site) + 2,30);
For I:= 0 To 15 Do
Begin
Delete(Site,Length(Site),Length(Site));
End;
IdHTTP.Free;
Result:= Site;
End;

Agora independente do valor do IP a função resultara o IP normalmente.