微信公众平台—— 获取微信服务器IP地址

const

ServerIpUrl = 'https://api.weixin.qq.com/cgi-bin/getcallbackip?&access_token=%s';

procedure GetServerList(out List: TStringList; AccessToken: String);
var
Url: string;
J: TJSONObject;
temp: String;
begin
Url := Format(ServerIpUrl, [Access_Token]);
J := TJSONObject.ParseJSONValue(GetMethod(Url, 1)) as TJSONObject;
try
if J.Count > 0 then
begin
temp := J.GetValue('ip_list').ToString;
delete(temp, 1, 1);
delete(temp, Length(temp), 1);
List.DelimitedText := temp;
end;
finally
J.Free;
end;
end;