使用Delphi Xe8 开发微信功能 -- （一）微信支付商户平台之对账单下载

Delphi 开发微信功能相对于其他编程方式热火朝天的局面在互联网上可借鉴的真是太少了，除了几位大神的 信息交互和查询关注功能，几乎找不到关于微信支付的内容。最近一个关于微信的业务项目逼得没办法了，只好东拼西凑搞出了一个Delphi Xe调用微信商户平台的方法，在这里跟大家分享一下，也希望大家能够一起完善Delphi开发微信接口的工作。先把微信支付商户平台的对账单功能源码放一下，里面有些基础功能都没有实现得很顺畅，是通过拐弯抹角的方法来实现得，比如MD5加密就是通过MySQL数据库的MD5函数才得到了正确的值，有没有能够正确使用的单元文件呢？

1. unit weixinapi;
   
2. 
   
3. interface
   
4. uses  IdHTTP,//indy HttpClient
   
5.       //使用RealThinClientSDK_v628中的rtcInfo的Utf8Decode函数来消除中文乱码问题，System中自带的Utf8Decode有问题
   
6.       rtcInfo,
   
7.       IWNativeXml,//NativeXML
   
8.       System.Classes,//FileStream
   
9.       System.Variants,//使用随机数初始化函数Randomize
   
10.       System.SysUtils,Xml.XMLDoc,Data.Win.ADODB,//使用XMLDocument、AdoConnection、AdoQuery
    
11.       IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL;//不同版本的SSL会使idHTTP需要使用到IOHandler参数
    
12.       function weixinapi_downloadbill(bill_date:string): string;
    
13.       function MD5_encrypt(str_TEMP:string):string;
    
14.       const api_id='你的公众账号ID';//你的公众账号ID
    
15.             mch_id='你的商户号';//你的商户号
    
16.             api_key='你的API密钥';//你的API密钥，自定义的32为密钥
    
17.             download_bill_url='https://api.mch.weixin.qq.com/pay/downloadbill';//下载对账单网址
    
18. implementation
    
19. 
    
20. //微信商户对账功能-下载对账单
    
21. //bill_date是需要下载对账单的日期，格式是不带分隔符的字符串，如'20150601'
    
22. function weixinapi_downloadbill(bill_date:string): string;
    
23. var xmldd:TNativeXml;
    
24.     fsparams:TFileStream;
    
25.     idhttp_bill:TIdHTTP;
    
26.     sRe_XML:TXMLDocument;//Nativexml中没有发现
    
27.     stringA:string;
    
28.     stringTEMP:string;
    
29.     nonce_str:string;
    
30.     sign:string;
    
31.     sResponse:string;
    
32.     iohandssl:TIdSSLIOHandlerSocketOpenSSL;
    
33. begin
    
34.   Randomize;
    
35.   nonce_str:=IntToStr(Random(1000000));//得到随机数nonce_str
    
36.   stringA:='appid='+api_id+'&bill_date='+bill_date+'&bill_type=ALL'+'&mch_id='+mch_id+'&nonce_str='+nonce_str;
    
37.   stringTEMP:=stringA+'&key='+api_key;
    
38.   sign:=MD5_encrypt(stringTEMP);//使用MD5加密函数对stringTEMP进行加密，得到sign签名
    
39.   try
    
40.     //创建通过idhttp POST 的xml文件
    
41.     xmldd:=TNativeXml.CreateName('xml');
    
42.     xmldd.EncodingString:='utf-8';
    
43.     xmldd.XmlFormat:=xfReadable;
    
44.     xmldd.Root.WriteString('appid',api_id);
    
45.     xmldd.Root.WriteString('bill_date',bill_date);
    
46.     xmldd.Root.WriteString('bill_type','ALL');
    
47.     xmldd.Root.WriteString('mch_id',mch_id);
    
48.     xmldd.Root.WriteString('nonce_str',nonce_str);
    
49.     xmldd.Root.WriteString('sign',sign);
    
50.     xmldd.SaveToFile('weixin_bill_'+bill_date+'.xml');
    
51.   except
    
52.     on e: Exception do
    
53.       Result:=e.Message;
    
54.   end;
    
55.   //根据创建的xml文件创建fsparams文件流，
    
56.   //试验过多种格式的post内容，string、TStrings、标准xml文件，最后发现使用TFileStream POST过去的内容
    
57.   //微信接口才识别为xml格式，其他格式都会报XML Format Error等错误
    
58.   fsparams:=TFileStream.Create('.\weixin_bill_'+bill_date+'.xml',fmOpenRead or fmShareDenyWrite);
    
59.   try
    
60.     sRe_XML:=TXMLDocument.Create(nil);
    
61.     //对于不同版本的SSL库需要加上TIdSSLIOHandlerSocketOpenSSL，不然会报IOHandler value is not valid错误
    
62.     //详见http://blog.csdn.net/beiguofengguang/article/details/7396878
    
63.     iohandssl:=TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    
64.     idhttp_bill:=tIdHTTP.Create();
    
65.     idhttp_bill.Request.ContentType:='text/xml';
    
66.     idhttp_bill.Request.CharSet:='UTF-8';
    
67.     idhttp_bill.IOHandler:=iohandssl;
    
68.     //使用的UTF8Decode函数是rtlInfo里面的，不是system里面的，system中的还是会乱码
    
69.     sRe_XML.XML.Text:=Utf8Decode(idhttp_bill.Post(download_bill_url,fsparams));
    
70.     sRe_XML.XML.SaveToFile('weixin_bill_download_'+bill_date+'.xml');
    
71.     Result:=sRe_XML.XML.Text;//返回从微信收到的数据
    
72.     FreeAndNil(fsparams);
    
73.     FreeAndNil(idhttp_bill);
    
74.     FreeAndNil(sre_XML);
    
75.   except
    
76.     on e: Exception do
    
77.       Result:=e.Message;
    
78.   end;
    
79. end;
    
80. 
    
81. //MD5加密，试过多种方法包括 SQLServer、MD5单元来进行MD5加密，却都得不到正确的MD5加密值，
    
82. //无奈使用了mysql的MD5函数来进行，有更好更简洁的方法吗
    
83. function MD5_encrypt(str_TEMP:string):string;
    
84. var adoc_md5:TADOConnection;
    
85.     adoq_md5:TADOQuery;
    
86. begin
    
87.   try
    
88.     adoc_md5:=TADOConnection.Create(nil);
    
89.     adoc_md5.ConnectionString:='Provider=MSDASQL.1;Persist Security Info=False;Data Source=my;';
    
90.     adoc_md5.LoginPrompt:=False;
    
91.     adoc_md5.Connected;
    
92.     adoq_md5:=TADOQuery.Create(nil);
    
93.     adoq_md5.Connection:=adoc_md5;
    
94.     adoq_md5.SQL.Text:='select upper(md5('''+str_TEMP+''')) as sign_str';
    
95.     adoq_md5.Open;
    
96.     Result:=adoq_md5.FieldByName('sign_str').AsString;
    
97.   finally
    
98.     FreeAndNil(adoc_md5);
    
99.     FreeAndNil(adoq_md5);
    
100.   end;
     
101. end;
     
102. end.

复制代码