使用Delphi Xe8 开发微信功能 -- （四）微信支付商户平台之申请退款

接上篇。这次是商户平台的申请退款功能。此功能要点是商户平台退款功能要求使用HTTPS双向证书，所以通过TIdSSLIOHandlerSocketOpenSSL.SSLOptions.CertFile加载微信颁发的证书文件，TIdSSLIOHandlerSocketOpenSSL.SSLOptions.KeyFile加载证书密钥文件。需要注意的是，该接口在收到客户端发送的正确（格式、数据、证书等）请求后，会立即执行退款操作，没有审核环节，执行成功及开始退款流程，所以需要客户端应用程序把好审核关，防止错退的情况发生。代码如下：

1. unit weixinapi;
   
2. 
   
3. interface
   
4. uses  IdHTTP,//indy HttpClient
   
5.       //使用RealThinClientSDK_v628中的rtcInfo的Utf8Decode函数来消除中文乱码问题，
   
6.       //System中自带的Utf8Decode有问题
   
7.       rtcInfo,
   
8.       IWNativeXml,//NativeXML
   
9.       System.Classes,//FileStream
   
10.       System.Variants,//使用随机数初始化函数Randomize
    
11.       System.SysUtils,Xml.XMLDoc,Data.Win.ADODB,//使用XMLDocument、AdoConnection、AdoQuery
    
12.       //退款功能要求使用颁发的证书文件和密钥文件
    
13.       IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL;
    
14.       function weixinapi_refund(op_user_id,out_refund_no,out_trade_no,refund_fee,
    
15.                               total_fee,transaction_id:string):string;
    
16.       function MD5_encrypt(str_TEMP:string):string;
    
17.       const api_id='你的公众账号ID';//你的公众账号ID
    
18.             mch_id='你的商户号';//你的商户号
    
19.             api_key='你的API密钥';//你的API密钥
    
20.             refund_url='https://api.mch.weixin.qq.com/secapi/pay/refund';//申请退款网址
    
21. 
    
22. implementation
    
23. 
    
24. //微信商户对账功能-申请退款
    
25. //op_user_id:操作员,out_refund_no:商户退款单号,out_trade_no商户订单号,
    
26. //refund_fee:退款金额,total_fee：总金额, transaction_id:微信订单号
    
27. function weixinapi_refund(op_user_id,out_refund_no,out_trade_no,refund_fee,
    
28.     total_fee,transaction_id:string):string;
    
29. var xmldd:TNativeXml;
    
30.     fsparams:TFileStream;
    
31.     idhttp_refund:TIdHTTP;
    
32.     //Nativexml中没有发现如何赋值已有的xml，只好重新加入系统自带的xml
    
33.     sRe_XML:TXMLDocument;
    
34.     stringA:string;
    
35.     stringTEMP:string;
    
36.     nonce_str:string;
    
37.     sign:string;
    
38.     sResponse:string;
    
39.     iohandssl:TIdSSLIOHandlerSocketOpenSSL;
    
40. begin
    
41.   Randomize;
    
42.   nonce_str:=IntToStr(Random(1000000));//得到随机数nonce_str
    
43.   stringA:='appid='+api_id+'&mch_id='+mch_id+'&nonce_str='+nonce_str+
    
44.           '&op_user_id='+op_user_id+'&out_refund_no='+out_refund_no+
    
45.           '&out_trade_no='+out_trade_no+'&refund_fee='+refund_fee+
    
46.           '&total_fee='+total_fee+'&transaction_id='+transaction_id;
    
47.   stringTEMP:=stringA+'&key='+api_key;
    
48.   sign:=MD5_encrypt(stringTEMP);//使用MD5加密函数对stringTEMP进行加密，得到sign签名
    
49.   try
    
50.     //创建通过idhttp POST 的xml文件
    
51.     xmldd:=TNativeXml.CreateName('xml');
    
52.     xmldd.EncodingString:='utf-8';
    
53.     xmldd.XmlFormat:=xfReadable;
    
54.     xmldd.Root.WriteString('appid',api_id);
    
55.     xmldd.Root.WriteString('mch_id',mch_id);
    
56.     xmldd.Root.WriteString('nonce_str',nonce_str);
    
57.     xmldd.Root.WriteString('op_user_id',op_user_id);
    
58.     xmldd.Root.WriteString('out_refund_no',out_refund_no);
    
59.     xmldd.Root.WriteString('out_trade_no',out_trade_no);
    
60.     xmldd.Root.WriteString('refund_fee',refund_fee);
    
61.     xmldd.Root.WriteString('total_fee',total_fee);
    
62.     xmldd.Root.WriteString('transaction_id',transaction_id);
    
63.     xmldd.Root.WriteString('sign',sign);
    
64.     xmldd.SaveToFile('weixin_refundd_'+out_trade_no+'.xml');
    
65.   except
    
66.     on e: Exception do
    
67.       Result:=e.Message;
    
68.   end;
    
69.   //根据创建的xml文件创建fsparams文件流，
    
70.   //试验过多种格式的post内容，string、TStrings、标准xml文件，
    
71.   //最后发现使用TFileStream POST过去的内容
    
72.   //微信接口才识别为xml格式，其他格式都会报XML Format Error等错误
    
73.   fsparams:=TFileStream.Create('.\weixin_refundd_'+out_trade_no+'.xml',fmOpenRead or fmShareDenyWrite);
    
74.   try
    
75.     sRe_XML:=TXMLDocument.Create(nil);
    
76.     //对于不同版本的SSL库需要加上TIdSSLIOHandlerSocketOpenSSL，
    
77.     //不然会报IOHandler value is not valid错误
    
78.     //同时退款功能要求使用颁发的证书文件和密钥文件   
    
79.     iohandssl:=TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    
80.     idhttp_refund:=tIdHTTP.Create();
    
81.     idhttp_refund.Request.ContentType:='text/xml';
    
82.     idhttp_refund.Request.CharSet:='UTF-8';
    
83.     idhttp_refund.IOHandler:=iohandssl;
    
84.     //加载微信支付商户平台颁发的证书文件
    
85.     iohandssl.SSLOptions.CertFile:='cert_api/apiclient_cert.pem';
    
86.     //加载微信支付商户平台颁发的密钥文件
    
87.     iohandssl.SSLOptions.KeyFile:='cert_api/apiclient_key.pem';
    
88.     idhttp_refund.HandleRedirects:=True;
    
89. //    idhttp_refund.IOHandler.Close;
    
90.     //使用的UTF8Decode函数是rtcInfo里面的，不是system里面的，system中的还是会乱码
    
91.     sRe_XML.XML.Text:=Utf8Decode(idhttp_refund.Post(refund_url,fsparams));
    
92.     sRe_XML.XML.SaveToFile('weixin_refunddetial_'+out_trade_no+'.xml');
    
93.     Result:=sRe_XML.XML.Text;//返回从微信接口收到的数据
    
94.     FreeAndNil(fsparams);
    
95.     FreeAndNil(idhttp_refund);
    
96.     FreeAndNil(sre_XML);
    
97.   except
    
98.     on e: Exception do
    
99.       Result:=e.Message;
    
100.   end;
     
101. end;
     
102. 
     
103. //MD5加密，试过多种方法包括 SQLServer、MD5单元来进行MD5加密，却都得不到正确的MD5加密值，
     
104. //无奈使用了mysql的MD5函数来进行，有更好更简洁的方法吗
     
105. function MD5_encrypt(str_TEMP:string):string;
     
106. var adoc_md5:TADOConnection;
     
107.     adoq_md5:TADOQuery;
     
108. begin
     
109.   try
     
110.     adoc_md5:=TADOConnection.Create(nil);
     
111.     adoc_md5.ConnectionString:='Provider=MSDASQL.1;Persist Security Info=False;Data Source=my;';
     
112.     adoc_md5.LoginPrompt:=False;
     
113.     adoc_md5.Connected;
     
114.     adoq_md5:=TADOQuery.Create(nil);
     
115.     adoq_md5.Connection:=adoc_md5;
     
116.     adoq_md5.SQL.Text:='select upper(md5('''+str_TEMP+''')) as sign_str';
     
117.     adoq_md5.Open;
     
118.     Result:=adoq_md5.FieldByName('sign_str').AsString;
     
119.   finally
     
120.     FreeAndNil(adoc_md5);
     
121.     FreeAndNil(adoq_md5);
     
122.   end;
     
123. end;
     
124. end.

复制代码