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