pb支付宝支付

来源：互联网发布：支付宝怎么解绑淘宝号? 编辑：程序博客网时间：2024/06/02 15:05

要接入支付宝，首先需要了解支付宝的接入流程，可以通过官方文档了解快速接入

支付宝接入需要密钥，密钥如果保存在客户端，存在泄漏的风险，推荐密钥保存在服务端

PB可以通过 SATRDA 组件实现服务器接入支付宝，

SATRDA下载地址：http://download.csdn.net/detail/pcwe2002/9620563

下载完成后，可以开始配置详细配置可以参考说明文档。

PB端调用代码

long ll_rtn,ll_http,ll_lenulong ll_data,ll_buffer,ll_json,ll_rsString ls_json,ls_null,ls_server,ls_codelong ll_startls_null = ""ls_server = sle_url.text + "/alipay/precreate"ll_http = n_api.SATHTTP_Create()n_api.SatHttp_addformdata( ll_http, "out_trade_no", sle_no.text)n_api.SatHttp_addformdata( ll_http, "subject", n_api.ansi_to_utf8(sle_subject.text))n_api.SatHttp_addformdata( ll_http, "total_amount", sle_je.text)//n_api.SATHTTP_UseGZIP( ll_http, true)ll_rtn = n_api.SATHTTP_PostForm(ll_http,ls_server)if ll_rtn <> 200 and ll_rtn <> 500 thenmessagebox("","失败," + string(ll_rtn))else//得到Http返回数据ll_buffer = n_api.SATHTTP_GetBuffer(ll_http)n_api.Buffer_Append(ll_buffer,n_api.StringToPtr(ls_null),1) ////插入1个0ll_data = n_api.Buffer_Data(ll_buffer)//数据内容ll_len =  n_api.Buffer_Size(ll_buffer)  //取大小ls_json = string(ll_data,"address")if ll_rtn = 500 thenmessagebox("内部错误",n_api.UTF8_TO_ANSI(ls_json))returnend ifmessagebox("",ls_json)ll_json = n_api.JsonObject_Create(ls_json)ll_rs = n_api.JsonObject_Get(ll_json, "alipay_trade_precreate_response")ls_code = n_api.JsonObject_GetString(ll_rs,"code")if ls_code = "10000" thenls_code = n_api.JsonObject_GetString(ll_rs,"qr_code")of_qrcode(ls_code,128)end ifend ifn_api.SATHTTP_Destroy(ll_http)

示例界面

QQ群：345559891 (交流、下载最新版本）

0 0