Delphi XE7 用indy开发微信公众平台(7)- 用户管理
加我微信:Leedege一起交流Delphi开发经验 1、获取用户列表 const FansListUrl = 'https://api.weixin.qq.com/cgi-bin/user/get?access_token=%s&next_openid=%s'; function GetOpenIDList(AccessToken, NextOpenID: String): TStringList; var Url: string; J: TJSONObject; O: TJSONArray; temp: String; begin Result := TStringList.Create; Url := Format(FansListUrl, [AccessToken, NextOpenID]); J := TJSONObject.ParseJSONValue(GetMethod(Url, 1)) as TJSONObject; try if J.Count > 0 then begin Total := J.GetValue('total').Value.ToInteger; Count := J.GetValue('count').Value.ToInteger; Next_OpenID := J.GetValue('next_openid').Value; J := J