Delphi XE7 用indy开发微信公众平台(7)- 用户管理

用户管理

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.GetValue(data) as TJSONObject;
      if J.Count > 0 then
      begin
        O := J.GetValue(openid) as TJSONArray;
        if O.Count > 0 then
        begin
          temp := O.ToString;
          delete(temp, 1, 1);
          delete(temp, Length(temp), 1);
          Result.DelimitedText := temp;
        end;
      end;
    end;
  finally
    J.Free;
  end;
end;

2、获取用户信息

  TFansInfo = record
    SubScribe:Byte;
    OpenID:String;
    NickName:String;
    Sex:Byte;
    City:String;
    Province:String;
    Cuntry:String;
    Language:String;
    HeadImgUrl:String;
    SubScribeTime:TDateTime;
    Remark:String;
  end;

const
FansInfoUrl = https://api.weixin.qq.com/cgi-bin/user/info?access_token=%s&openid=%s&lang=zh_CN;

function GetFansInfo(OpenID: String): TFansInfo;
var
  Url: string;
  J: TJSONObject;
begin
  Url := Format(FansInfoUrl, [Access_Token, OpenID]);
  J := TJSONObject.ParseJSONValue(GetMethod(Url, 1)) as TJSONObject;
  try
    if J.Count > 0 then
    begin
      Result.SubScribe := J.GetValue(subscribe).Value.ToInteger;
      Result.OpenID := J.GetValue(openid).Value;
      Result.NickName := J.GetValue(nickname).Value;
      Result.Sex := J.GetValue(sex).Value.ToInteger;
      Result.City := J.GetValue(city).Value;
      Result.Province := J.GetValue(province).Value;
      Result.Cuntry := J.GetValue(country).Value;
      Result.Language := J.GetValue(language).Value;
      Result.HeadImgUrl := J.GetValue(headimgurl).Value;
      Result.SubScribeTime := DelphiTime(J.GetValue(subscribe_time)
        .Value.ToInteger);
      Result.Remark := J.GetValue(remark).Value;
    end;
  finally
    J.Free;
  end;
end;

原文地址:http://www.cnblogs.com/devinlee/p/4282701.html

Delphi XE7 用indy开发微信公众平台(7)- 用户管理

上一篇:公众号第三方平台开发 获取 component_verify_ticket 2015-07-05 10:16 59人阅读 评论(0) 收藏


下一篇:URL详解