openssl pkcs12 -clcerts -nokeys -in apiclient_cert.p12 -out apiclient_cert.pem 这个命令不变
openssl pkcs12 -nocerts -in apiclient_cert.p12 -out apiclient_key.pem 这个需要改一下,不然每次输出key文件的时候,总是要输入一个 密码,烦死了
最后看了下帮助文件,加一个参数 openssl pkcs12 -nocerts -nodes -in apiclient_cert.p12 -out apiclient_key.pem 就好了
sll.SSLoptions 的 certfile 与 keyfile 分别对应那2个文件。
procedure TForm1.button1Click(Sender: TObject); begin WXPay.ClearData; WXPay.addParams('body','开发测试商品'); WXPay.addParams('out_Trade_no','PXBSDPHD000000002'); WXPay.addParams('total_fee','1'); WXPay.addParams('auth_code',Edit1.Text); Memo1.lines.Add(WXPay.micropay); end; procedure TForm1.btn1Click(Sender: TObject); begin WXPay.ClearData; WXPay.addParams('out_Trade_no','PXBSDPHD000000002'); WXPay.addParams('out_refund_no','PXBSDTHD000000002'); WXPay.addParams('total_fee','1'); WXPay.addParams('refund_fee','1'); WXPay.addParams('op_user_ID','pxb001'); Memo1.lines.Add(WXPay.refund); end; procedure TForm1.FormShow(Sender: TObject); begin WXPay := TWXPay.create(IDhtp1); end; procedure TForm1.FormDestroy(Sender: TObject); begin WXPay.Free; end;
总结以上是内存溢出为你收集整理的delphi如何使用微信退款全部内容,希望文章能够帮你解决delphi如何使用微信退款所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)