Delphi 开发微信功能相对于其他编程方式热火朝天的局面在互联网上可借鉴的真是太少了,除了几位大神的 信息交互和查询关注功能,几乎找不到关于微信支付的内容。最近一个关于微信的业务项目逼得没办法了,只好东拼西凑搞出了一个Delphi Xe调用微信商户平台的方法,在这里跟大家分享一下,也希望大家能够一起完善Delphi开发微信接口的工作。先把微信支付商户平台的对账单功能源码放一下,里面有些基础功能都没有实现得很顺畅,是通过拐弯抹角的方法来实现得,比如MD5加密就是通过mysql数据库的MD5函数才得到了正确的值,有没有能够正确使用的单元文件呢?
unit weixinapi;
interface
uses IdHTTP,//indy HttpClient
//使用RealThinClientSDK_v628中的rtcInfo的Utf8Decode函数来消除中文乱码问题,System中自带的Utf8Decode有问题
rtcInfo,
IWNativeXml,//NativeXML
System.Classes,//FileStream
System.Variants,//使用随机数初始化函数Randomize
System.SysUtils,Xml.XMLDoc,Data.Win.ADODB,//使用XMLDocument、AdoConnection、AdoQuery
IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL;//不同版本的SSL会使idHTTP需要使用到IOHandler参数
function weixinapi_downloadbill(bill_date:string): string;
f