Delphi XE7 用indy开发微信公众平台（8）- 自定义菜单
加我微信：Leedege一起交流Delphi开发经验 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