Delphi版 AlipaySDK的Demo程序,简单实用
代码片段
uses
Alipay.Client,
Alipay.Trade.Pay.Request,
Alipay.Trade.Pay.Response;
var
AlipayClient: TAlipayClient;
Request: IAlipayTradePayRequest;
Response: IAlipayTradePayResponse;
begin
AlipayClient := TAlipayClientBuilder.New.
.AppId(‘1234567890’) //APPID 即创建应用后生成
.Sandbox(True)//是否沙箱环境
.SignType(RSA2) //商户生成签名字符串所使用的签名算法类型,目前支持 RSA2 和 RSA,推荐商家使用 RSA2
.Charset(UTF-8) //请求和签名使用的字符编码格式,支持 GBK和 UTF-8
.PrivateKey(‘dfsagsg’) //开发者应用私钥,由开发者自己生成
.AlipayPublicKey(‘4646465’) //支付宝公钥,由支付宝提供
.Build;
Request := TAlipayTradePayRequest.Create;
Request.BizModel.OutTradeNo := ‘1313131121;
Request.BizModel.Scene := Tscene. BAR_CODE;
Request.BizModel.AuthCode := ‘111111’;
Request.BizModel.Subject := ‘商品’;
Request.BizModel.TotalAmount := 0.01;
Response:= AlipayClient.Execute(Request);
end;
1