delphi Idhttp调用搜狐ip api接口获取公网IP

uses System.JSON, Idhttp;

function GetNetIp(): string;

var

  url: string;

  myIdHttp: TIdHTTP;

  Jsonstr: TJsonObject;

begin

  result := '';

  myIdHttp := TIdHTTP.Create(nil);

  myIdHttp.Request.UserAgent := ' Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; Maxthon)';

  myIdHttp.HandLeRedirects := true;

  try

    try

      url := myIdHttp.Get('http://pv.sohu.com/cityjson?ie=utf-8');

      url := url.Replace('var returnCitySN = ', '');

      url := url.Replace(';', '');

      Jsonstr := TJSONObject.ParseJSONValue(url) as TJSONObject;

      myIdHttp.ConnectTimeout := 6000;

      result := Jsonstr.GetValue('cip').Value;

    except

      //

    end;

  finally

    Jsonstr.Free;

    myIdHttp.Free;

  end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

text:=GetNetIp;

end;