Delphi XE7 用indy开发微信公众平台（8）- 自定义菜单

const
CreateMenuUrl = 'https://api.weixin.qq.com/cgi-bin/menu/create?access_token=%s';

function CreateMenus(AccessToken: String): TJSONObject;
var
Url: string;
J: TJSONObject;
m1: TJSONObject;
m2, m21, m22: TJSONObject;
m3, m31, m32, m33: TJSONObject;
temp: RawByteString;
begin
J := TJSONObject.Create;
try
Url := Format(CreateMenuUrl, [AccessToken]);
J.AddPair('button', TJSONArray.Create);
with J.GetValue('button') as TJSONArray do
begin
m1 := TJSONObject.Create;
m1.AddPair('type', 'view');
m1.AddPair('name', '微商城');
m1.AddPair('url', 'http://wd.koudai.com/?userid=169004500');
Add(m1);

m2 := TJSONObject.Create;
m2.AddPair('name', '微会员');
m2.AddPair('sub_button', TJSONArray.Create);
with m2.GetValue('sub_button') as TJSONArray do
begin
m21 := 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 do
begin
m31 := TJSONObject.Create;
m31.AddPair('type', 'view');
m31.AddPair('name', '买彩票');
m31.AddPair('url',
'http://tc.w-caipiao.tenpay.com/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',
'http://chong.qq.com/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;
finally
J.Free;
end;
end;