Ergebnis der Suchanfrage

• Forum: Netzwerke

  Re: TIdHTTP.get = kein Ergebnis

    Delphi
    by Van HelF, 14. Jun 2007
  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