Delphi微信公众号开发

开发微信公众号一般用php，java 等工具开发，很少用delphi开发，这里基于delphiwebmvc 开发的微信公众号部分代码进行开源。

开源地址：https://gitee.com/pearroom/Wechat

DelphiWebMVC框架下的微信公众号管理平台
完成公众号文本，图文，声音等消息的处理。

当前封装的功能
property access_token: string read Faccess_token write Setaccess_token;
///<summary>获取时间戳</summary>
function GetStampTime(d: TDateTime): Int64;
///<summary>微信对服务器的验证</summary>
function checktoken(token, signature, timestamp, nonce, echostr: string): string;
///<summary>获取access_token值</summary>
function token(grant_type, appid, secret: string): string;
 ///<summary>获取用户列表/summary>
function user_get(next_openid: string): string;
 ///<summary>获取分组</summary>
function groups_get(): string;
 ///<summary>获取access_token值</summary>
function message_mass_preview(): string;
/// <summary>
/// 解析数据到接收消息对象
/// </summary>
function message_Parser(xml: string; var message_: TMessage_Receive): Boolean;
/// <summary>
/// 解析发送数据对象为xml结构
/// </summary>
function message_to_xml(message_: TMessage_Send): string;
//---------------------begin素材管理begin-------------------
/// <summary>
/// 获取素材列表
/// </summary>
function material_batchget_material(json: string): string;
/// <summary>获取素材总数</summary>
function material_get_materialcount(): string;
/// <summary>
/// 新增临时素材
/// </summary>
function media_upload(filetype: string; filepath: string): string;
/// <summary>
///  获取临时素材
/// </summary>
function media_get(media_id: string): string;
/// <summary>
///  新增其他类型永久素材
/// </summary>
function media_add_material(filetype: string; filepath: string): string;
/// <summary>
/// 获取永久素材 <para>{"media_id":MEDIA_ID}</para>
/// </summary>
function material_get_material(json: string): string;
/// <summary>
/// 删除永久素材<para>{"media_id":MEDIA_ID}</para>
/// </summary>
function material_del_material(json: string): string;
/// <summary>
/// 修改永久图文素材
/// </summary>
function material_update_news(json: string): string;
//----------------------end素材管理end--------------------------

//---------------------begin用户标签管理begin-------------------
/// <summary>
/// 创建标签
/// </summary>
function tags_create(json: string): string;
/// <summary>
/// 获取公众号已创建的标签
/// </summary>
function tags_get(): string;
/// <summary>
/// 编辑标签
/// </summary>
function tags_update(json: string): string;
/// <summary>
/// 删除标签
/// </summary>
function tags_delete(json: string): string;
/// <summary>
/// 获取标签下粉丝列表
/// </summary>
function user_tag_get(json: string): string;
/// <summary>
/// 批量为用户打标签 标签功能目前支持公众号为用户打上最多20个标签。
/// </summary>
function tags_members_batchtagging(json: string): string;
/// <summary>
/// 批量为用户取消标签
/// </summary>
function tags_members_batchuntagging(json: string): string;
/// <summary>
/// 获取用户身上的标签列表
/// </summary>
function tags_getidlist(json: string): string;
/// <summary>
/// 获取公众号的黑名单列表
/// </summary>
function tags_members_getblacklist(json: string): string;
/// <summary>
/// 拉黑用户
/// </summary>
function tags_members_batchblacklist(json: string): string;
/// <summary>
/// 取消拉黑用户
/// </summary>
function tags_members_batchunblacklist(json: string): string;
//-----------------------end用户标签管理end----------------------
 /// <summary>
/// 自定义菜单创建
/// </summary>
function menu_create(json: string): string;
 /// <summary>
/// 自定义菜单查询
/// </summary>
function menu_get(): string;
 /// <summary>
/// 自定义菜单删除
/// </summary>
function menu_delete(): string;
 /// <summary>
/// 创建个性化菜单
/// </summary>
function menu_addconditional(json:string): string;
 /// <summary>
/// 创建个性化菜单
/// </summary>
function menu_delconditional(json:string): string;
 /// <summary>
/// 创建个性化菜单
/// </summary>
function menu_trymatch(json:string): string;
 /// <summary>
/// 获取自定义菜单配置接口
/// </summary>
function get_current_selfmenu_info(): string;