Eu utilizo o componente TIdHTTP1
procedure TFormPrincipal.IpInternet1Click(Sender: TObject);
var
hr,txt,wlabel5,WSEUIP:string ;
cont: integer;
perda: integer;
begin
perda:=4;
if InternetCheckConnection('http://www.yahoo.com/', 1, 0) then
dec(perda);
if InternetCheckConnection('http://www.microsoft.com/', 1, 0) then
dec(perda);
if InternetCheckConnection('http://www.uol.com/', 1, 0) then
dec(perda);
if InternetCheckConnection('http://www.globo.com/', 1, 0) then
dec(perda);
if perda=4 then
sb.Panels[5].Text:='Sem Internet'
else
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;
sb.Panels[5].Text := 'IP NET: ' + wseuip;
end;
Em 13/11/07, Nilson Chagas <[EMAIL PROTECTED]> escreveu:
>
> Mas ele já respondeu umas 3 vezes. rsrsrs
>
> Em 13/11/07, Ricardo César Cardoso <[EMAIL
> PROTECTED]<ricardo_engsoft%40yahoo.com.br>>
> escreveu:
> >
> > Tá... mas como vc conseguiu? Pode descrever o caminho das pedras?
> >
> > Sds,
> > Ricardo.
> >
> > Jorge Ericsson <[EMAIL PROTECTED]
> > <jericssonsup%40gmail.com><jericssonsup%40gmail.com>>
> > escreveu: Pessoal eu já consegui o que precisava OK, Valew mesmo...
> >
> > Em 12/11/07, Davi Eduardo Borges Wall <[EMAIL
> > PROTECTED]<davi.wall%40mult.com.br>
> <davi.wall%40mult.com.br>>
> > escreveu:
> > >
> > > Ola,
> > >
> > > Não sei se isso é possível, imaginando a topologia de uma rede acho
> que
> > > não seria.
> > >
> > > MAS... se você fizer uma requisição a um servidor externo este poderia
> > > retonar o ip pra vc..
> > >
> > > []'s
> > >
> > > De: delphi-br@yahoogrupos.com.br
> > > <delphi-br%40yahoogrupos.com.br><delphi-br%40yahoogrupos.com.br><delphi-br%40yahoogrupos.com.br>
> > > [mailto:
> > > delphi-br@yahoogrupos.com.br
> > > <delphi-br%40yahoogrupos.com.br><delphi-br%40yahoogrupos.com.br><delphi-br%40yahoogrupos.com.br>]
> > > Em nome de
> > > Jorge Ericsson
> > > Enviada em: segunda-feira, 12 de novembro de 2007 17:03
> > > Para: delphi-br@yahoogrupos.com.br
> > > <delphi-br%40yahoogrupos.com.br><delphi-br%40yahoogrupos.com.br><delphi-br%40yahoogrupos.com.br>
> > > Assunto: Re: [delphi-br] Como obter o ip real de uma máquina na
> internet
> > >
> > > Amigos acho que não fui claro.
> > >
> > > Eu preciso que o meu programa envie para o meu e-mail o endereço ip de
> > > quem
> > > esta solicitando suporte técnico, mas eu preciso que aconteça isso
> assim
> > > que
> > > o cliente ativar o servidor VNC que desenvolvi para a minha aplicação.
> > >
> > > No momento eu não estou conseguindo enviar o IP Real e sim aquele
> famoso
> > > 192.168.1.X ou localhost da máquina remota rsrsrs.
> > >
> > > Em mãos do IP real da máquina logada na REDE e na Internet do meu
> > cliente
> > > eu
> > > posso usar VNC + LogInMe + Remote Desktop e etc de qq parte do
> planeta.
> > OK
> > >
> > > Preciso de uma função ou componete Free que me retorne essa
> informação.
> > >
> > > Valew....
> > >
> > > Em 12/11/07, Guionardo Furlan <[EMAIL PROTECTED]<guionardo%40gmail.com>
> <guionardo%40gmail.com><guionardo%40gmail.com><mailto:
> > > guionardo%40gmail.com> > escreveu:
> > > >
> > > > Procure por logmein
> > > >
> > > > Em 12/11/07, Jorge Ericsson <[EMAIL PROTECTED]<jericssonsup%40gmail.com>
> <jericssonsup%40gmail.com>
> > <jericssonsup%40gmail.com><mailto:
> > > jericssonsup%40gmail.com> <jericssonsup%40gmail.com>>
> > > > escreveu:
> > > > >
> > > >
> > > > > Olá amigos,
> > > > >
> > > > > Eu preciso testar um conexão remota através do mei sistema, mais
> não
> > > > > conseguo pegar o IP real do meu cliente qdo logado na internet.
> > > > > Ele utiliza conexão banda larga e o IP não é fixo e qdo utilizo
> esse
> > > > testes
> > > > > de velocidade o ip que retorna as vezes não é o real.
> > > > >
> > > > > Alguém teria uma idéia ?
> > > >
> > > > --
> > > > Timeo hominem unius libri
> > > > Cogito ergo sum - Carpe diem
> > > >
> > > > []s
> > > > Guionardo Furlan
> > > > http://guionardo.blogspot.com
> > > >
> > > >
> > >
> > > --
> > > Jorge Ericsson S. Pinheiro
> > > Analista/Projetista de Sistemas
> > > Ericsson Sistemas e Soluções
> > > http://www.jericsson.com.br
> > > 61 9227.4785 / 3965.2992 / 3039.1768
> > > Brasília - DF
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> >
> > --
> > Jorge Ericsson S. Pinheiro
> > Analista/Projetista de Sistemas
> > Ericsson Sistemas e Soluções
> > http://www.jericsson.com.br
> > 61 9227.4785 / 3965.2992 / 3039.1768
> > Brasília - DF
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> >
> >
> > ---------------------------------
> > Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> > armazenamento!
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
> Visite:
> Fundamental: www.amados.com.br
> Dúvidas:http://nilsoftware.blogspot.com/
> Obrigatório: www.saopaulofc.com.br
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
