微信公众平台——自定义菜单

微信公众平台——自定义菜单

微信公众平台——自定义菜单

服务号和通过认证的订阅号可以申请自定义菜单。自定义菜单接口可实现click、view两种类型的按钮。

1、创建菜单

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;