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;