微信公众平台——自定义菜单
服务号和通过认证的订阅号可以申请自定义菜单。自定义菜单接口可实现click、view两种类型的按钮。
1、创建菜单
constCreateMenuUrl = 'https://api./cgi-bin/menu/create?access_token=%s';function CreateMenus(AccessToken: String): TJSONObject;varUrl: string;J: TJSONObject;m1: TJSONObject;m2, m21, m22: TJSONObject;m3, m31, m32, m33: TJSONObject;temp: RawByteString;beginJ := TJSONObject.Create;tryUrl := Format(CreateMenuUrl, [AccessToken]);J.AddPair('button', TJSONArray.Create);with J.GetValue('button') as TJSONArray dobeginm1 := TJSONObject.Create;m1.AddPair('type', 'view');m1.AddPair('name', '微商城');m1.AddPair('url', '/?userid=169004500');Add(m1);m2 := TJSONObject.Create;m2.AddPair('name', '微会员');m2.AddPair('sub_button', TJSONArray.Create);with m2.GetValue('sub_button') as TJSONArray dobeginm21 := TJSONObject.Create;m21.AddPair('type', 'click');m21.AddPair('name', '每日签到');m21.AddPair('key', 'm21');add(m21);m22 := TJSONObject.Create;m22.AddPair('type', 'click');m22.AddPair('name', '查询积分');m22.AddPair('key', 'm22');add(m22);end;Add(m2);m3 := TJSONObject.Create;m3.AddPair('name', '微服务');m3.AddPair('sub_button', TJSONArray.Create);with m3.GetValue('sub_button') as TJSONArray dobeginm31 := TJSONObject.Create;m31.AddPair('type', 'view');m31.AddPair('name', '买彩票');m31.AddPair('url','http://tc.w-/m_wx/index.html?showwxpaytitle=1&vb2ctag=4_2062_3_1915');add(m31);m32 := TJSONObject.Create;m32.AddPair('type', 'view');m32.AddPair('name', '充话费');m32.AddPair('url','/mobile/wt_index.shtml#logic.wx.wt.recharge.mobile=mobileRecharge');add(m32);m33 := TJSONObject.Create;m33.AddPair('type', 'click');m33.AddPair('name', '听音乐');m33.AddPair('key', 'm33');add(m33);end;Add(m3);end;temp := PostMethod(Url, UTF8Encode(J.ToString), 1);Result := TJSONObject.ParseJSONValue(temp) as TJSONObject;finallyJ.Free;end;end;
