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;