IP in Label anzeigen

[Bummi]

Ohne Fehlerbehandlung

Delphi-Quellcode:

Function GetExtIP: String;
var
  IdHTTP: TIdHTTP;
begin
  IdHTTP := TIdHTTP.Create(nil);
  try
    Result := IdHTTP.Get('http://checkip.dyndns.org/');
    Result := Copy(Result, pos(':', Result) + 1);
    Result := Trim(copy(Result, 1, pos('</', Result) - 1));
  finally
    IdHTTP.Free;
  end;
end;