const
FansListUrl = 'https://api.weixin.qq.com/cgi-bin/user/get?access_token=%s&next_openid=%s';function GetOpenIDList(AccessToken, NextOpenID: String): TStringList;
varUrl: string;J: TJSONObject;O: TJSONArray;temp: String;
beginResult := TStringList.Create;Url := Format(FansListUrl, [AccessToken, NextOpenID]);J := TJSONObject.ParseJSONValue(GetMethod(Url, 1)) as TJSONObject;tryif J.Count > 0 thenbeginTotal := 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 thenbeginO := J.GetValue('openid') as TJSONArray;if O.Count > 0 thenbegintemp := O.ToString;delete(temp, 1, 1);delete(temp, Length(temp), 1);Result.DelimitedText := temp;end;end;end;finallyJ.Free;end;
end;

function UnixTime(DTime: TDateTime): longint;
beginResult := Trunc((DTime - EncodeDate(1970, 1, 1)) * SecsPerDay);
end;function DelphiTime(const USec: longint): TDateTime;
beginResult := (USec / SecsPerDay) + EncodeDate(1970, 1, 1);
end;

  TFansInfo = recordSubScribe: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;
varUrl: string;J: TJSONObject;
beginUrl := Format(FansInfoUrl, [Access_Token, OpenID]);J := TJSONObject.ParseJSONValue(GetMethod(Url, 1)) as TJSONObject;tryif J.Count > 0 thenbeginResult.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;finallyJ.Free;end;
end;