[firebase-br] OFF IP na Internet

[marcelo luiz stefaniak - teflamar]

tente com sockets:


procedure TForm1.FormShow(Sender: TObject);
begin
um:=tipsocket.Create(self);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(
   'domínio:'+um.LocalDomainName+#13+
    'ip servidor:'+um.LookupHostAddr('servidor')+#13+
    'bol.uol:'+um.LookupHostAddr('www.bol.uol.com.br')+#13+
    'host:'+um.LocalHostName+#13+
    'ip local:'+um.LocalHostAddr+#13+
    um.LookupHostName(um.LocalHostAddr)
    );
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
eddominio.text:=um.LocalDomainName;
edip2.text:=um.LookupHostAddr(edip.text);
edhost.text:=um.LocalHostName;
ediplocal.text:=um.LocalHostAddr;
ednomelocal.text:=um.LookupHostName(um.LocalHostAddr);
ednome4.text:=um.LookupHostName(edip3.text);
freeandnil(um);
end;

----- Original Message ----- 
From: "Fábio Henrique Beccaria Sampaio" <fabiohbsampaio em gmail.com>
To: "FireBase" <lista em firebase.com.br>
Sent: Monday, September 04, 2006 9:41 PM
Subject: Re: [firebase-br] OFF IP na Internet


Puts, é verdade.
Ainda bem que existem pessoas educadas igual ao Magnum.
Bom, utilizo o Delphi 7 e não sei usar o Indy, alguém tem algum exemplo???

----- Original Message ----- 
From: "Magnun Oliveira" <magnun_magnun em hotmail.com>
To: <lista em firebase.com.br>
Sent: Monday, September 04, 2006 1:43 PM
Subject: Re: [firebase-br] OFF IP na Internet


primeiro de tudo poe um off no assunto ...

quanto a duvida, acesse um site que forneça o ip (www.meuip.com.br por ex)
e se vc usar delphi, pegue o conteudo desse http com Indy.

----Original Message Follows----
From: Fábio Henrique Beccaria Sampaio<fabiohbsampaio em gmail.com>
Reply-To: FireBase <lista em firebase.com.br>
To: "FireBase" <lista em firebase.com.br>
Subject: [firebase-br] IP na Internet
Date: Mon, 4 Sep 2006 13:20:27 -0300

Boa tarde galera.

Ja achei varias funções para obter IP, só que quando eu estou em uma rede
onde existe um servidor de Internet é mostrado o IP da máquina
(192.168.1.10) e eu gostaria de obter o IP da internet (200.211.72.33).

Alguém sabe uma função que faça isso???

sem mais...

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

Fábio Henrique Beccaria Sampaio
Analista de Sistema
(18) 9126-8020


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa

_________________________________________________________________
MSN Hotmail, o maior webmail do Brasil. http://www.hotmail.com


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa