Delphi获取公网IP地址函数

uses IdHTTP;
function GetPublicIP: string;
var
  strIP, URL: string;
  iStart, iEnd: Integer;
  MyIdHTTP: TIdHTTP;
begin
  Result := '';
  MyIdHTTP := TIdHTTP.Create(nil);
  try
    try
      URL := MyIdHTTP.Get('http://www.ip138.com/ip2city.asp');
    except
    end;
  finally
    MyIdHTTP.Free;
  end;
  
  if Length(URL) <> 0 then
  begin
    iStart := Pos('[', URL);
    iEnd := Pos(']', URL);
    if (iStart <> 0) and (iEnd <> 0) then
    begin
      strIP := Trim(Copy(URL, iStart + 1, iEnd - iStart - 1));
      if strIP <> '' then
        Result := strIP;
    end;
  end;
end;

获取公网IP地址函数，需引用IdHTTP。