![](https://img-blog.csdnimg.cn/20201014180756724.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
微信公众号
文章平均质量分 74
Devin.Lee
这个作者很懒,什么都没留下…
展开
-
Delphi XE7 用indy开发微信公众平台(1)- 获取access_token、expires_in
微信公众平台官方的资料都是PHP的,这几天闲来无事,用Delphi实现了部分功能,希望能抛砖引玉,大家共同完善开发平台:Delphi XE7主要涉及JSON、XML的解析,SHA1加密,indy的IdHTTP、IdSSLIOHandlerSocketOpenSSL、IdHTTPServer控件完全使用Delphi自带控件获取access_token、expires_infunction GetMe...原创 2018-06-25 10:40:42 · 895 阅读 · 0 评论 -
Delphi XE7 用indy开发微信公众平台(2)- 获取微信服务器IP地址
constServerIpUrl = 'https://api.weixin.qq.com/cgi-bin/getcallbackip?&access_token=%s';procedure GetServerList(out List: TStringList; AccessToken: String);var Url: string; J: TJSONObject;...原创 2018-06-25 10:42:11 · 714 阅读 · 0 评论 -
Delphi XE7 用indy开发微信公众平台(3)- 验证消息真实性
uses IdHashSHA, IdGlobal;function SHA1(Input: String): String;begin with TIdHashSHA1.Create do try Result := LowerCase(HashBytesAsHex(TidBytes(Bytesof(Input)))); finally Free; end;...原创 2018-06-25 10:43:30 · 509 阅读 · 0 评论 -
Delphi XE7 用indy开发微信公众平台(4)- 接收普通消息
type TMsgType = (event, text, image, voice, video, location, link); TMessage = Record ToUserName: String; FromUserName: String; CreateTime: Integer; MsgType: String; end;uses System.Sys...原创 2018-06-25 10:45:08 · 588 阅读 · 0 评论 -
Delphi XE7 用indy开发微信公众平台(5)- 接收事件推送
type TEventType = (subscribe, unsubscribe, SCAN, LOCATION, CLICK, VIEW);function ResponseEvent(M: TMessage; X: IXMLDocument): RawByteString;var event: TEventType; temp, menu: String;begin ...原创 2018-06-25 10:46:35 · 373 阅读 · 0 评论 -
Delphi XE7 用indy开发微信公众平台(6)- 被动回复用户消息
function ReplyText(Msg: TMessage; MsgText: String): RawByteString;var X: IXMLDocument;begin X := NewXMLDocument; try X.Xml.text := TextMsg; X.Active := true; with X.DocumentElement...原创 2018-06-25 10:48:09 · 465 阅读 · 0 评论 -
Delphi XE7 用indy开发微信公众平台(7)- 用户管理
1、获取用户列表constFansListUrl = 'https://api.weixin.qq.com/cgi-bin/user/get?access_token=%s&next_openid=%s';function GetOpenIDList(AccessToken, NextOpenID: String): TStringList;var Url: string; ...原创 2018-06-25 10:56:22 · 549 阅读 · 0 评论 -
Delphi XE7 用indy开发微信公众平台(8)- 自定义菜单
constCreateMenuUrl = '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, m2...原创 2018-06-25 10:57:22 · 550 阅读 · 0 评论 -
Delphi XE7 用indy开发微信公众平台(9)- 高级群发接口
1、上传多媒体文件(这里以上传图片为例)uses IdMultipartFormData;const UpMediaUrl = 'http://file.api.weixin.qq.com/cgi-bin/media/upload?access_token=%s&type=%s';function UpMedia(HTTP: TIdHTTP; AccessToken, MediaT...原创 2018-06-25 10:59:21 · 976 阅读 · 0 评论