请选择 进入手机版 | 继续访问电脑版

大富翁Delphi开发技术网站

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 2740|回复: 0

使用Delphi Xe8 开发微信功能 -- (三)微信支付商户平台之查询退款详情

[复制链接]

69

主题

96

帖子

846

积分

管理员

哈哈哈哈

Rank: 9Rank: 9Rank: 9

积分
846
发表于 2016-8-27 10:54:04 | 显示全部楼层 |阅读模式
精品文章
支持版本: Delphi XE8 
资源分类: 网络 
发布平台: Windows 
转载地址: -

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
接上一篇,这次是微信支付商户平台的退款查询功能。此功能与订单查询功能代码几乎完全相同,只是接口网址稍有区别。
  1. unit weixinapi;

  2. interface
  3. uses  IdHTTP,//indy HttpClient
  4.       //使用RealThinClientSDK_v628中的rtcInfo的Utf8Decode函数来消除中文乱码问题,
  5.       //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.       //不同版本的SSL会使idHTTP需要使用到IOHandler参数
  12.       IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL;
  13.       function weixinapi_downloadbill(bill_date:string): string;
  14.       function weixinapi_orderquery(out_trade_no:string):string;
  15.       function weixinapi_refundquery(out_trade_no: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.             refundquery_url='https://api.mch.weixin.qq.com/pay/refundquery';//查询退款网址

  21. implementation

  22. //微信商户对账功能-查询退款详情
  23. //out_trade_no是需要查询的商户订单号,也可以使用微信订单号来查询
  24. function weixinapi_refundquery(out_trade_no:string):string;
  25. var xmldd:TNativeXml;
  26.     fsparams:TFileStream;
  27.     idhttp_bill:TIdHTTP;
  28.     //Nativexml中没有发现如何赋值已有的xml,只好重新加入系统自带的xml
  29.     sRe_XML:TXMLDocument;
  30.     stringA:string;
  31.     stringTEMP:string;
  32.     nonce_str:string;
  33.     sign:string;
  34.     sResponse:string;
  35.     iohandssl:TIdSSLIOHandlerSocketOpenSSL;
  36. begin
  37.   Randomize;
  38.   nonce_str:=IntToStr(Random(1000000));//得到随机数nonce_str
  39.   stringA:='appid='+api_id+'&mch_id='+mch_id+'&nonce_str='+nonce_str+'&out_trade_no='+
  40.            out_trade_no;
  41.   stringTEMP:=stringA+'&key='+api_key;
  42.   sign:=MD5_encrypt(stringTEMP);//使用MD5加密函数对stringTEMP进行加密,得到sign签名
  43.   try
  44.     //创建通过idhttp POST 的xml文件
  45.     xmldd:=TNativeXml.CreateName('xml');
  46.     xmldd.EncodingString:='utf-8';
  47.     xmldd.XmlFormat:=xfReadable;
  48.     xmldd.Root.WriteString('appid',api_id);
  49.     xmldd.Root.WriteString('mch_id',mch_id);
  50.     xmldd.Root.WriteString('nonce_str',nonce_str);
  51.     xmldd.Root.WriteString('out_trade_no',out_trade_no);
  52.     xmldd.Root.WriteString('sign',sign);
  53.     xmldd.SaveToFile('weixin_refund_'+out_trade_no+'.xml');
  54.   except
  55.     on e: Exception do
  56.       Result:=e.Message;
  57.   end;
  58.   //根据创建的xml文件创建fsparams文件流,
  59.   //试验过多种格式的post内容,string、TStrings、标准xml文件,
  60.   //最后发现使用TFileStream POST过去的内容
  61.   //微信接口才识别为xml格式,其他格式都会报XML Format Error等错误
  62.   fsparams:=TFileStream.Create('.\weixin_refund_'+out_trade_no+'.xml',fmOpenRead or fmShareDenyWrite);
  63.   try
  64.     sRe_XML:=TXMLDocument.Create(nil);
  65.     //对于不同版本的SSL库需要加上TIdSSLIOHandlerSocketOpenSSL,
  66.     //不然会报IOHandler value is not valid错误
  67.     iohandssl:=TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  68.     idhttp_bill:=tIdHTTP.Create();
  69.     idhttp_bill.Request.ContentType:='text/xml';
  70.     idhttp_bill.Request.CharSet:='UTF-8';
  71.     idhttp_bill.IOHandler:=iohandssl;
  72.     //使用的UTF8Decode函数是rtcInfo里面的,不是system里面的,system中的还是会乱码
  73.     sRe_XML.XML.Text:=Utf8Decode(idhttp_bill.Post(refundquery_url,fsparams));
  74.     sRe_XML.XML.SaveToFile('weixin_refundquery_'+out_trade_no+'.xml');
  75.     Result:=sRe_XML.XML.Text;//返回从微信接口收到的数据
  76.     FreeAndNil(fsparams);
  77.     FreeAndNil(idhttp_bill);
  78.     FreeAndNil(sre_XML);
  79.   except
  80.     on e: Exception do
  81.       Result:=e.Message;
  82.   end;
  83. end;

  84. //MD5加密,试过多种方法包括 SQLServer、MD5单元来进行MD5加密,却都得不到正确的MD5加密值,
  85. //无奈使用了mysql的MD5函数来进行,有更好更简洁的方法吗
  86. function MD5_encrypt(str_TEMP:string):string;
  87. var adoc_md5:TADOConnection;
  88.     adoq_md5:TADOQuery;
  89. begin
  90.   try
  91.     adoc_md5:=TADOConnection.Create(nil);
  92.     adoc_md5.ConnectionString:='Provider=MSDASQL.1;Persist Security Info=False;Data Source=my;';
  93.     adoc_md5.LoginPrompt:=False;
  94.     adoc_md5.Connected;
  95.     adoq_md5:=TADOQuery.Create(nil);
  96.     adoq_md5.Connection:=adoc_md5;
  97.     adoq_md5.SQL.Text:='select upper(md5('''+str_TEMP+''')) as sign_str';
  98.     adoq_md5.Open;
  99.     Result:=adoq_md5.FieldByName('sign_str').AsString;
  100.   finally
  101.     FreeAndNil(adoc_md5);
  102.     FreeAndNil(adoq_md5);
  103.   end;
  104. end;
  105. end.
复制代码



转载请保留当前帖子的链接:http://www.dfwlt.com/forum.php?mod=viewthread&tid=2264 谢谢!

搜索简单,分享不易,且分享且珍惜,您难道不想分享下您的心得?如果觉得本文章好的话,您可以在我们网站上注册,然后发布您的好的心得,让大家共同进步,谢谢!

最新添加

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

申请友链|Archiver|手机版|小黑屋|大富翁Delphi开发技术网站 ( 苏ICP备12065705号-4 苏ICP备12065705号-4

GMT+8, 2020-7-13 08:45 , Processed in 0.116479 second(s), 36 queries .

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表