delphi xe7 中对数组操作做了很多扩充，比如加入了类似字符串处理的功能。例如，数组相加var A: array of integer; B: TBytes = [1,2,3,4]; //Initialization can be done from declarationbegin ....
分类：
编程语言 时间：
2015-02-10 13:15:23
阅读次数：
173
自定义菜单创建接口1、创建菜单constCreateMenuUrl = 'https://api.weixin.qq.com/cgi-bin/menu/create?access_token=%s';function CreateMenus(AccessToken: String): TJSONOb...
分类：
微信 时间：
2015-02-10 00:31:50
阅读次数：
391
用户管理1、获取用户列表constFansListUrl = 'https://api.weixin.qq.com/cgi-bin/user/get?access_token=%s&next_openid=%s';function GetOpenIDList(AccessToken, NextOpe...
分类：
微信 时间：
2015-02-10 00:26:08
阅读次数：
1663
高级群发接口1、上传多媒体文件（这里以上传图片为例）uses IdMultipartFormData;const UpMediaUrl ='http://file.api.weixin.qq.com/cgi-bin/media/upload?access_token=%s&type=%s';func...
分类：
微信 时间：
2015-02-10 00:26:04
阅读次数：
383
被动回复用户消息1、回复文本消息function ReplyText(Msg: TMessage; MsgText: String): RawByteString;var X: IXMLDocument;begin X := NewXMLDocument; try X.Xml.text ...
分类：
微信 时间：
2015-02-10 00:24:34
阅读次数：
741
接收事件推送type TEventType = (subscribe, unsubscribe, SCAN, LOCATION, CLICK, VIEW);function ResponseEvent(M: TMessage; X: IXMLDocument): RawByteString;var....
分类：
微信 时间：
2015-02-09 22:59:38
阅读次数：
1790
接收普通消息type TMsgType = (event, text, image, voice, video, location, link); TMessage = Record ToUserName: String; FromUserName: String; Creat...
分类：
微信 时间：
2015-02-09 22:56:53
阅读次数：
488
获取微信服务器IP地址constServerIpUrl = 'https://api.weixin.qq.com/cgi-bin/getcallbackip?&access_token=%s';procedure GetServerList(out List: TStringList; Access...
分类：
微信 时间：
2015-02-09 22:51:19
阅读次数：
799
验证消息真实性uses IdHashSHA, IdGlobal;function SHA1(Input: String): String;begin with TIdHashSHA1.Create do try Result := LowerCase(HashBytesAsHex(...
分类：
微信 时间：
2015-02-09 22:49:29
阅读次数：
3028
获取access_token、expires_infunction GetMethod(HTTP: TIdHTTP; Url: String; Max: Integer): String;var RespData: TStringStream;begin RespData := TStringS.....
分类：
微信 时间：
2015-02-09 21:41:11
阅读次数：
423
