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');