TIdHTTP.get = kein Ergebnis

[Van HelF]

Delphi-Quellcode:

function get_ip:string;
var  ip: string; internet_ip: string; IdHTTP1: TIdHTTP;
begin
  try
    IdHTTP1:= TIdHTTP.Create(nil);
    IdHTTP1.Request.Connection:= 'Keep-Alive';
    ip := IdHTTP1.Get('http://checkip.dyndns.org/');
    internet_ip:=Copy(ip, Pos('Current IP Address: ', ip)+20, Length(ip)-92);
    result:=internet_ip;
   finally
     IdHTTP1.Free;
   end;
end;

try finally nicht vergessen
Funktioniert bei mir ohne probs, getestet mit indy9 und Delphi 7.