- 博客(11)
- 资源 (3)
- 收藏
- 关注
原创 Delphi XE10编写的《海康摄像机SDK测试DEMO》
type TShowStr = record X: Word; Y: Word; S: array [0 .. 43] of AnsiChar; end;type TCamera = record pHWND: HWND; strict private aCam: LongInt; g_nPort: LongInt; st...
2018-06-25 10:20:38 3349
原创 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 958
原创 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 533
原创 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 510
原创 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 453
原创 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 358
原创 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 578
原创 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 496
原创 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 694
原创 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 875
Delphi XE10编写的《海康摄像机SDK测试DEMO》
2018-06-25
用Delphi XE7 Indy写的微信公众平台示例
2015-01-27
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人