ip do speedy
Bom dia,
Estou precisando saber qual é o ip que o speedy me fornece. Já encontrei uma função na net, mas ela apenas me retorno o ip da máquina. Algo como 192.168.0.101. O que eu gostaria de saber é o ip que estou na internet , ex : 200.158.0.154, ou seja o ip que realmente estou navegando na internet com ele.
Grato,
Denis
Denis
Curtidas 0
Respostas
Denis
24/08/2010
Olá,
Achei uma solução, caso interesse a alguém. Esta rotina está com o Delphi 7 ok.
function ObterIP : String;
var
IP : TIdHTTP;
Temporario : String;
Endereco : String;
X : Integer;
begin
try
IP := TIdHTTP.Create(nil);
with IP do
begin
Host := 'checkip.dyndns.org';
Temporario := Get('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 := '';
end;
end;
var
IP : TIdHTTP;
Temporario : String;
Endereco : String;
X : Integer;
begin
try
IP := TIdHTTP.Create(nil);
with IP do
begin
Host := 'checkip.dyndns.org';
Temporario := Get('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 := '';
end;
end;
GOSTEI 0
Carlos Mazzi
24/08/2010
Boa jovem! vlw
GOSTEI 0