Buscar por:

Retornar seu ip logado na internet

Código

Olá para todos... 

Depois de muitas pesquisas, principalmente nesse site, agora posso contribuir

com algo que ainda nao encontrei na internet. 

Peguei uma dica nem sei onde mais. de como atualizar a hora e data do sistema pelo site horacerta, estudei seu funcionamento e fiz uma rotina para descobrir o ip logado na internt.

Coloque em um Form o componente Idhttp que esta na paleta indClients,

e coloque um button também, e um Label.

no doubleclic do button coloque o codigo abaixo.

-----------------------------------------------------------------------

var

   hr,txt,wlabel5,WSEUIP:string ;

   cont: integer;

begin

   wLabel5:= 'http://www.meuip.com.br/';

   Try

      txt:=Idhttp1.Get(wLabel5);

   except

      exit;

   end;

   hr:= copy(txt,pos('IP?',txt),20);

   WSEUIP:='';

   for cont:=1 to length(hr) do

   begin

      if ( copy(hr,cont,1) = '0' ) or

         ( copy(hr,cont,1) = '1' ) or

         ( copy(hr,cont,1) = '2' ) or

         ( copy(hr,cont,1) = '3' ) or

         ( copy(hr,cont,1) = '4' ) or

         ( copy(hr,cont,1) = '5' ) or

         ( copy(hr,cont,1) = '6' ) or

         ( copy(hr,cont,1) = '7' ) or

         ( copy(hr,cont,1) = '8' ) or

         ( copy(hr,cont,1) = '9' ) or

         ( copy(hr,cont,1) = '.' ) then

         WSEUIP := WSEUIP + copy(hr,cont,1);

   end;

   label1.caption := 'Seu ip é: ' + wseuip;

 END;

-----------------------------------------------------------------------------

A rotina do if sei que esta meio arqcaica mas de inicio foi o que consegui

fazer. se alguem tiver alguma ideia de conteudo me passe.

espero que tenha valido a pena.... t+