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

最新推荐文章于 2024-09-20 19:17:42 发布

Devin.Lee

最新推荐文章于 2024-09-20 19:17:42 发布

阅读量572

点赞数

分类专栏：微信公众号文章标签： Delphi 微信公众号

本文链接：https://blog.csdn.net/dnlidejun/article/details/80798917

版权

微信公众号专栏收录该内容

9 篇文章 0 订阅

订阅专栏

加我微信：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.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;

function UnixTime(DTime: TDateTime): longint;
begin
  Result := Trunc((DTime - EncodeDate(1970, 1, 1)) * SecsPerDay);
end;

function DelphiTime(const USec: longint): TDateTime;
begin
  Result := (USec / SecsPerDay) + EncodeDate(1970, 1, 1);
end;

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;