Esse componente indy é pago?
Se for gratuito poderia encaminhar para mim?
----- Mensagem original ----
De: Jorge Ericsson <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 12 de Novembro de 2007 17:57:42
Assunto: Re: [delphi-br] Como obter o ip real de uma máquina na internet
Apenas uma correção amigos a função completa fica assim:
Detalhe a versão do Indy que uso é a 10 no caso de quem utiliza a 9
precisara corrigir algumas coisas que não testei ainda...
Funciona blz pessoal...
function ObterIPRealInternet (Const vUrl : String): String;
var
IP : TIdHTTP;
Temporario : String;
Endereco : String;
X : Integer;
begin
try
IP := TIdHTTP.Create( nil);
with IP do
begin
Request.Host := vUrl;//'http://www.meuip. com.br/'; //Errei
anteriormente colando IoHandler.
Temporario := Get(vUrl);// 'checkip. dyndns.org' );
For X := 1 to Length(Temporario) do
if (Temporario[ X] in ['0'..'9']) or (Temporario[ X] = '.') then
Endereco := Endereco + Temporario[X] ;
end;
Result := Trim(Endereco) ;
IP.Free;
except
Result := '';
{ Trata oque vai ocorrer quando falhar ... }
end;
end;
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
