Delphi 开发微信公众平台 （三）- 获取微信服务器IP地址

/// <summary>
/// 获取微信服务器IP地址
/// </summary>
/// <remarks>
/// 如果公众号基于安全等考虑，需要获知微信服务器的IP地址列表，以便进行相关限制，
/// 可以通过该接口获得微信服务器IP地址列表或者IP网段信息。
/// </remarks>
function TWechatRequest.GetCallbackIP: TWechatIPList;
var
  Response: TJSONObject;
begin
  Response := HttpGet(‘getcallbackip‘);
  try
    if ParseResponse(Response) then
      Result := TJson.Json2Object<TWechatIPList>(Response.Values[‘ip_list‘].ToJSON);
  finally
    FreeAndNil(Response);
  end;
end;