delphi如何使用微信退款

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;