3630人阅读
PB 通过 PostRul
一 创建Standard Class对象 type为&internetresult& n_ir
global type n_ir from internetresult
end forward
global type n_ir from internetresult
global n_ir n_ir
type variables
string is_data
ib_finished
end variables
forward prototypes
public function integer internetdata (blob data)
public function boolean wf_get_data (ref string as_html, ref blob ab_blob)
end prototypes
public function integer internetdata (blob data);
//messagebox('返回结果',string(data))
ib_finished = False
= string(data)
ib_finished = True
end function
public function boolean wf_get_data (ref string as_html, ref blob ab_blob);
as_html = is_data
ab_blob = ib_blob
return ib_finished
end function
on n_ir.create
call super::create
TriggerEvent( this, &constructor& )
on n_ir.destroy
TriggerEvent( this, &destructor& )
call super::destroy
二 创建Standard Class对象 type为&inet&
global type n_inet from inet
end forward
global type n_inet from inet
global n_inet n_inet
on n_inet.create
call super::create
TriggerEvent( this, &constructor& )
on n_inet.destroy
TriggerEvent( this, &destructor& )
call super::destroy
三 创建非可视化对象nvo_string 用来转参数的编码类型
global type nvo_string from nonvisualobject
end forward
global type nvo_string from nonvisualobject autoinstantiate
type prototypes
FUNCTION long WideCharToMultiByte(uint CodePage, ulong dwFlags, ref blob lpWideCharStr, long cchWideChar,
ref blob lpMultiByteStr, long cbMultiByte, long lpDefaultChar,long lpUsedDefaultChar) Library
&kernel32.dll&
FUNCTION long MultiByteToWideChar(uint CodePage, ulong dwFlags, ref blob lpMultiByteStr,long
cchMultiByte,ref blob lpWideCharStr,
long cchWideChar) LIBRARY &kernel32.dll&
end prototypes
type variables
long CP_ACP = 0
long CP_UTF8 = 65001
end variables
forward prototypes
public function integer of_unicode_utf8 (ref blob ablb_source, ref blob ablb_target)
public function string of_utf8_asni (blob ablb_source)
public function integer of_utf8_unicode (ref blob ablb_source, ref blob ablb_target)
public function integer of_ansi_unicode (string as_ansi, ref blob ablb_unicode)
public function integer of_ansi_utf8 (ref string as_ansi, ref blob ablb_utf8)
end prototypes
public function integer of_unicode_utf8 (ref blob ablb_source, ref blob
ablb_target);//====================================================================
// 函数: of_unicode_utf8()
//--------------------------------------------------------------------
// 描述: Unicode编码转换为UTF8编码
//--------------------------------------------------------------------
// reference blob ablb_source
源Unicode字节
// reference blob ablb_target
目标UTF8字节
//--------------------------------------------------------------------
// 返回值:
integer 转换后的字节长度
//--------------------------------------------------------------------
// 作者: David 日期:
//--------------------------------------------------------------------
// 修改历史:
//====================================================================
ll_Unicode_Size,ll_UTF8_Size
string ls_res
ll_Unicode_Size = len(ablb_source)
if ll_Unicode_Size & 1 then
ll_Unicode_Size = ll_Unicode_Size / 2
ll_UTF8_Size = WideCharToMultiByte(CP_UTF8, 0, ablb_source, ll_Unicode_Size, ablb_target, 0, 0, 0)
if ll_UTF8_Size & 1 then
ablb_target = Blob(space(ll_UTF8_Size))
ll_UTF8_Size = WideCharToMultiByte(CP_UTF8, 0, ablb_source, ll_Unicode_Size, ablb_target, ll_UTF8_Size, 0,
if ll_UTF8_Size & 1 then
return ll_UTF8_Size
end function
public function string of_utf8_asni (blob
ablb_source);//====================================================================
// 函数: of_utf8_asni()
//--------------------------------------------------------------------
// 描述: utf8编码转换为asni字符
//--------------------------------------------------------------------
// reference blob ablb_source
//--------------------------------------------------------------------
// 返回值:
string 转换后字符串
//--------------------------------------------------------------------
// 作者: David 日期:
//--------------------------------------------------------------------
// 修改历史:
//====================================================================
string ls_res
lblb_Unicode
ll_Unicode_Size
ll_Unicode_Size = of_UTF8_Unicode(ablb_source, lblb_Unicode)
if ll_Unicode_Size & 1 then
ls_res = FromUnicode(lblb_Unicode)
return ls_res
end function
public function integer of_utf8_unicode (ref blob ablb_source, ref blob
ablb_target);//====================================================================
// 函数: of_utf8_unicode()
//--------------------------------------------------------------------
// 描述: UTF-8 编码转换为 Unicode 编码格式
//--------------------------------------------------------------------
// reference blob ablb_source
// reference blob ablb_target
//--------------------------------------------------------------------
// 返回值:
integer 多少字节被转换
//--------------------------------------------------------------------
// 作者: david 日期:
//--------------------------------------------------------------------
// 修改历史:
//====================================================================
long ll_UTF8_Size
long ll_Unicode_Byte_Size, ll_Unicode_WChar_Size
blob lblb_null
setnull(lblb_null)
ll_UTF8_Size = len(ablb_source)
//获取转换后需要的内存空间
ll_Unicode_WChar_Size = MultiByteToWideChar(CP_UTF8, 0, ablb_source, ll_UTF8_Size, lblb_null, 0)
if ll_Unicode_WChar_Size & 1 then
ll_Unicode_Byte_Size = ll_Unicode_WChar_Size * 2
ablb_target = blob(space(ll_Unicode_Byte_Size))
//开始转换
ll_Unicode_WChar_Size = MultiByteToWideChar(CP_UTF8, 0, ablb_source, ll_UTF8_Size, ablb_target,
ll_Unicode_Byte_Size)
if ll_Unicode_WChar_Size & 1 then
return ll_Unicode_Byte_Size
end function
public function integer of_ansi_unicode (string as_ansi, ref blob
ablb_unicode);//====================================================================
// 函数: of_ANSI_Unicode()
//--------------------------------------------------------------------
// 描述: ANSI 编码转换为 Unicode 编码格式
//--------------------------------------------------------------------
string as_ANSI
// reference blob
ablb_unicode
//--------------------------------------------------------------------
// 返回值:
long 多少字节被转换
//--------------------------------------------------------------------
// 作者: David 日期:
//--------------------------------------------------------------------
// 修改历史:
//====================================================================
long ll_ANSI_Size
long ll_Unicode_Byte_Size, ll_Unicode_WChar_Size
blob lblb_ANSI
blob lblb_null
setnull(lblb_null)
lblb_ANSI = BLOB(as_ansi)
ll_ANSI_Size = len(lblb_ANSI)
//获取转换后需要的内存空间
ll_Unicode_WChar_Size = MultiByteToWideChar(CP_ACP, 0, lblb_ANSI, ll_ANSI_Size, lblb_null, 0)
if ll_Unicode_WChar_Size & 1 then
ll_Unicode_Byte_Size = ll_Unicode_WChar_Size * 2
ablb_unicode = blob(space(ll_Unicode_Byte_Size))
//开始转换
ll_Unicode_WChar_Size = MultiByteToWideChar(CP_ACP, 0, lblb_ANSI, ll_ANSI_Size, ablb_unicode,
ll_Unicode_Byte_Size)
if ll_Unicode_WChar_Size & 1 then
return ll_Unicode_Byte_Size
end function
public function integer of_ansi_utf8 (ref string as_ansi, ref blob
ablb_utf8);//====================================================================
// 函数: of_ANSI_UTF8()
//--------------------------------------------------------------------
// 描述: ANSI 字符串 转换为 UTF8 编码
//--------------------------------------------------------------------
// reference string as_ANSI
// reference blob
//--------------------------------------------------------------------
// 返回值:
long 转换后的字节数
//--------------------------------------------------------------------
// 作者: David 日期:
//--------------------------------------------------------------------
// 修改历史:
//====================================================================
blob lblb_Unicode
long ll_Unicode_Size, ll_UTF8_Size
if isnull(as_ansi) or len(as_ansi) = 0 then
lblb_Unicode
= ToUnicode(as_ansi)
ll_Unicode_Size = len(lblb_Unicode)
of_ANSI_Unicode(as_ansi, lblb_Unicode)
ll_Unicode_Size = len(lblb_Unicode)
if ll_Unicode_Size & 1 then
ll_UTF8_Size = of_unicode_utf8( lblb_Unicode, ablb_utf8)
return ll_UTF8_Size
end function
on nvo_string.create
call super::create
TriggerEvent( this, &constructor& )
on nvo_string.destroy
TriggerEvent( this, &destructor& )
call super::destroy
创建非可视化对象 nvo_inet_args 用来处理参数
global type nvo_inet_args from nonvisualobject
end forward
global type nvo_inet_args from nonvisualobject autoinstantiate
type variables
string is_key[]
string is_value[]
end variables
forward prototypes
public subroutine uf_add (string as_key, string as_value)
public subroutine uf_clear ()
public function string uf_get_value (string as_key)
end prototypes
public subroutine uf_add (string as_key, string as_value);integer li_i
li_i = upperbound(is_key) + 1
is_key[li_i] = as_key
is_value[li_i] = as_value
end subroutine
public subroutine uf_clear ();string ls_empty[]
is_key = ls_empty
is_value = ls_empty
end subroutine
public function string uf_get_value (string as_key);integer li_i,li_count
string ls_value
li_count = upperbound(is_key)
for li_i = 1 to li_count
if is_key[li_i] = as_key then
ls_value = is_value[li_i]
return ls_value
end function
on nvo_inet_args.create
call super::create
TriggerEvent( this, &constructor& )
on nvo_inet_args.destroy
TriggerEvent( this, &destructor& )
call super::destroy
创建非可视化对象 nvo_inet_res 用来处理返回结果
global type nvo_inet_res from nonvisualobject
end forward
global type nvo_inet_res from nonvisualobject autoinstantiate
type variables
string is_data
end variables
forward prototypes
public function string uf_get_value (string as_key)
public subroutine uf_set_data (string as_data)
end prototypes
public function string uf_get_value (string as_key);string ls_begin,ls_end,ls_data,ls_res
li_pos_begin,li_pos_end
ls_begin = &&& + lower(as_key) + &&&
ls_end = &&/& + lower(as_key) + &&&
ls_data = lower(is_data)
li_pos_begin = pos(ls_data,ls_begin)
if li_pos_begin = 0 then return &&
li_pos_end = pos(ls_data,ls_end,li_pos_begin + len(ls_begin))
if li_pos_end = 0 then return &&
if li_pos_begin &= li_pos_end then return &&
li_pos_begin = li_pos_begin + len(ls_begin)
ls_res = mid(is_data,li_pos_begin,li_pos_end - li_pos_begin)
return ls_res
end function
public subroutine uf_set_data (string as_data);is_data = as_data
end subroutine
on nvo_inet_res.create
call super::create
TriggerEvent( this, &constructor& )
on nvo_inet_res.destroy
TriggerEvent( this, &destructor& )
call super::destroy
六 创建非可视化对象 nvo_inet 用来处理HTTP请求
global type nvo_inet from nonvisualobject
end forward
global type nvo_inet from nonvisualobject
global nvo_inet nvo_inet
type variables
string is_URL
n_inet in_inet
n_ir in_ir
end variables
forward prototypes
public function integer wf_geturl (string as_url, string as_args, ref blob ab_rtn, ref string as_info)
public subroutine of_set_url (string as_url)
public function string of_get_url ()
public function boolean of_post (string as_method, nvo_inet_args anv_args, ref nvo_inet_res anv_res, ref
string as_info)
public function boolean of_get (string as_method, nvo_inet_args anv_args, ref nvo_inet_res anv_res, ref
string as_info)
protected function integer wf_posturl (string as_url, blob ab_args, ref blob ab_rtn, ref string as_info)
public function integer wf_posturl_json (string as_url, blob ab_args, ref blob ab_rtn, ref string as_error)
public function boolean of_post_json (string as_method, nvo_inet_args anv_args, ref nvo_inet_res anv_res,
ref string as_error)
public function integer wf_posturl_all (string as_url, blob ab_args, ref blob ab_rtn, ref string as_info,
string as_headers, long al_port)
public function boolean of_post_all (string as_method, nvo_inet_args anv_args, ref nvo_inet_res anv_res,
ref string as_info, string as_headers, long al_port)
end prototypes
public function integer wf_geturl (string as_url, string as_args, ref blob ab_rtn, ref string
as_info);////////////////////////////////////////////////////////////////////////
////INET Geturl 获取数据
////参数:as_url
如:/SaleActivity/GetSum?
////参数:as_args 其它参数 如:a1=3&a2=4
////返回参数:ab_rtn 请求结果
////返回值:1:成功;其它:失败
////add by kevin
////////////////////////////////////////////////////////////////////////
ls_url,ls_rtn
ls_url = as_url + as_args
li_rtn = in_inet.geturl(ls_url,in_ir)
if li_rtn && 1 then
choose case li_rtn
as_info = &General error!&
as_info = &Invalid URL!&
as_info = &Cannot connect to the Internet!&
as_info = &Unsupported secure (HTTPS) connection attempted!&
as_info = &Internet request failed!&
as_info = &其它未知错误!&
end choose
IF in_ir.wf_get_data(ls_rtn,lb_rtn) THEN
ab_rtn = lb_rtn
return li_rtn
end function
public subroutine of_set_url (string as_url);//as_url = lower(trim(as_url))
as_url = trim(as_url) //URL不能强制转换成小写，有些接口区分大小写
if left(as_url,7) && 'http://' then
as_url = &http://& + as_url
if right(as_url,1) && &/& then
as_url = as_url + &/&
is_url = as_url
end subroutine
public function string of_get_url ();return is_url
end function
public function boolean of_post (string as_method, nvo_inet_args anv_args, ref nvo_inet_res anv_res, ref
string as_info);string
ls_url,ls_args
lb_args,lb_rtn
li_i,li_count,li_rtn
nvo_string lnv_str
ls_url = is_url + as_method + &?&
for li_i = 1 to upperbound(anv_args.is_key)
ls_args = ls_args + anv_args.is_key[li_i] + &=& + anv_args.is_value[li_i] + &&&
if right(ls_args,1) = &&& then
ls_args = left(ls_args,len(ls_args) - 1)
lb_args = blob(ls_args)
li_rtn = wf_posturl(ls_url,lb_args,lb_rtn,as_info)
if li_rtn = 1 then
anv_res.uf_set_data(lnv_str.of_utf8_asni( lb_rtn ))
lb_res = true
lb_res = false
return lb_res
end function
public function boolean of_get (string as_method, nvo_inet_args anv_args, ref nvo_inet_res anv_res, ref
string as_info);string
ls_url,ls_args
lb_args,lb_rtn
li_i,li_count,li_rtn
nvo_string lnv_str
ls_url = is_url + as_method + &?&
for li_i = 1 to upperbound(anv_args.is_key)
ls_args = ls_args + anv_args.is_key[li_i] + &=& + anv_args.is_value[li_i] + &&&
if right(ls_args,1) = &&& then
ls_args = left(ls_args,len(ls_args) - 1)
li_rtn = wf_geturl(ls_url,ls_args,lb_rtn,as_info)
if li_rtn = 1 then
anv_res.uf_set_data(lnv_str.of_utf8_asni( lb_rtn ))
lb_res = true
lb_res = false
return lb_res
end function
protected function integer wf_posturl (string as_url, blob ab_args, ref blob ab_rtn, ref string
as_info);////////////////////////////////////////////////////////////////////////
////INET Posturl 获取数据
////参数:as_url
如:/SaleActivity/GetSum?
////参数:as_args 其它参数 如:a1=3&a2=4
////返回参数:ab_rtn 请求结果
////返回参数:as_info 错误信息
////返回值:1:成功;其它:失败
////add by kevin
////////////////////////////////////////////////////////////////////////
ls_headers,ls_url,ls_rtn
SetNull(lb_rtn)
ll_length = Len(ab_args)
////各种编码UNICODE、UTF-8、ANSI、ASCII、GB2312、GBK
//ls_headers = &Content-Type: application/x-www-form-charset=ANSI~n& + &
//ls_headers = &Content-Type: application/x-www-form-urlencoded~n& + &
ls_headers = &Content-Type: application/x-www-form-charset=UTF-8~n& + &
&Content-Length: & + String(ll_length) + &~n~n&
li_rtn = in_inet.PostURL(as_url,ab_args,ls_headers,in_ir)
if li_rtn && 1 then
choose case li_rtn
as_info = &General error!&
as_info = &Invalid URL!&
as_info = &Cannot connect to the Internet!&
as_info = &Unsupported secure (HTTPS) connection attempted!&
as_info = &Internet request failed!&
as_info = &其它未知错误!&
end choose
IF in_ir.wf_get_data(ls_rtn,lb_rtn) THEN
ab_rtn = lb_rtn
return li_rtn
end function
public function integer wf_posturl_json (string as_url, blob ab_args, ref blob ab_rtn, ref string
as_error);////////////////////////////////////////////////////////////////////////
////INET Posturl 获取数据
////wf_posturl_json
////参数:string as_url
如:/SaleActivity/GetSum?
////参数: blob
ab_args 其它参数 如:a1=3&a2=4
////返回参数:blob
ab_rtn 请求结果
////返回参数:string as_eeror 错误信息
////返回值:int
1:成功;其它:失败
////add by kevin
////////////////////////////////////////////////////////////////////////
ls_headers,ls_url,ls_rtn
SetNull(lb_rtn)
ll_length = Len(ab_args)
////各种编码UNICODE、UTF-8、ANSI、ASCII、GB2312、GBK
//ls_headers = &Content-Type: application/x-www-form-charset=ANSI~n& + &
//ls_headers = &Content-Type: application/x-www-form-charset=UTF-8~n& + &
&Content-Length: & + String(ll_length) + &~n~n&
ls_headers = &Content-Type: application/charset=UTF-8~n& + &
&Content-Length: & + String(ll_length) + &~n~n&
li_rtn = in_inet.PostURL(as_url,ab_args,ls_headers,in_ir)
if li_rtn && 1 then
choose case li_rtn
as_error = &General error!&
as_error = &Invalid URL!&
as_error = &Cannot connect to the Internet!&
as_error = &Unsupported secure (HTTPS) connection attempted!&
as_error = &Internet request failed!&
as_error = &其它未知错误!&
end choose
IF in_ir.wf_get_data(ls_rtn,lb_rtn) THEN
ab_rtn = lb_rtn
return li_rtn
end function
public function boolean of_post_json (string as_method, nvo_inet_args anv_args, ref nvo_inet_res anv_res,
ref string as_error);////////////////////////////////////////////////////////////////////////
////INET Posturl 获取数据
////of_post_json()
////参数:string as_method : GetSum
////参数: nvo_inet_args
anv_args 传递参数对象
////返回参数:nvo_inet_res
anv_res 请求结果
////返回参数:string as_error 错误信息
////返回值:int
1:成功;其它:失败
////add by kevin
////////////////////////////////////////////////////////////////////////
ls_url,ls_args
lb_args,lb_rtn
li_i,li_count,li_rtn
nvo_string lnv_str
ls_url = is_url + as_method + &?&
for li_i = 1 to upperbound(anv_args.is_key)
ls_args = ls_args + anv_args.is_key[li_i] + &=& + anv_args.is_value[li_i] + &&&
if right(ls_args,1) = &&& then
ls_args = left(ls_args,len(ls_args) - 1)
lb_args = blob(ls_args)
li_rtn = wf_posturl_json(ls_url,lb_args,lb_rtn,as_error)
if li_rtn = 1 then
anv_res.uf_set_data(lnv_str.of_utf8_asni( lb_rtn ))
lb_res = true
lb_res = false
return lb_res
end function
public function integer wf_posturl_all (string as_url, blob ab_args, ref blob ab_rtn, ref string as_info,
string as_headers, long al_port);////////////////////////////////////////////////////////////////////////
////INET Posturl 获取数据 所有参数都包含
////参数:as_url
如:/SaleActivity/GetSum?
////参数:as_args 其它参数 如:a1=3&a2=4
////返回参数:ab_rtn 请求结果
////返回参数:as_info 错误信息
////参数:端口:al_port 默认8080
////返回值:1:成功;其它:失败
////add by kevin
////////////////////////////////////////////////////////////////////////
ls_headers,ls_url,ls_rtn
if isnull(al_port) or al_port = 0 then al_port = 8080
SetNull(lb_rtn)
ll_length = Len(ab_args)
////各种编码UNICODE、UTF-8、ANSI、ASCII、GB2312、GBK
//ls_headers = &Content-Type: application/x-www-form-charset=ANSI~n& + &
//ls_headers = &Content-Type: application/x-www-form-urlencoded~n& + &
if isnull(as_headers) or as_headers = '' then
as_headers = &Content-Type: application/x-www-form-charset=UTF-8~n&
ls_headers = as_headers + &Content-Length: & + String(ll_length) + &~n~n&
li_rtn = in_inet.PostURL(as_url,ab_args,ls_headers,al_port,in_ir)
if li_rtn && 1 then
choose case li_rtn
as_info = &General error!&
as_info = &Invalid URL!&
as_info = &Cannot connect to the Internet!&
as_info = &Unsupported secure (HTTPS) connection attempted!&
as_info = &Internet request failed!&
as_info = &其它未知错误!&
end choose
IF in_ir.wf_get_data(ls_rtn,lb_rtn) THEN
ab_rtn = lb_rtn
return li_rtn
end function
public function boolean of_post_all (string as_method, nvo_inet_args anv_args, ref nvo_inet_res anv_res,
ref string as_info, string as_headers, long al_port);//带header信息和端口信息的的POST方法
ls_url,ls_args
lb_args,lb_rtn
li_i,li_count,li_rtn
nvo_string lnv_str
ls_url = is_url + as_method + &?&
for li_i = 1 to upperbound(anv_args.is_key)
ls_args = ls_args + anv_args.is_key[li_i] + &=& + anv_args.is_value[li_i] + &&&
if right(ls_args,1) = &&& then
ls_args = left(ls_args,len(ls_args) - 1)
lb_args = blob(ls_args)
li_rtn = wf_posturl_all(ls_url,lb_args,lb_rtn,as_info,as_headers,al_port)
if li_rtn = 1 then
anv_res.uf_set_data(lnv_str.of_utf8_asni( lb_rtn ))
lb_res = true
lb_res = false
return lb_res
end function
on nvo_inet.create
call super::create
TriggerEvent( this, &constructor& )
on nvo_inet.destroy
TriggerEvent( this, &destructor& )
call super::destroy
in_inet = create n_inet
in_ir = create n_ir
destroy in_inet
destroy in_ir
下边贴一部分调用调用的代码
ls_key,ls_info,ls_error,ls_token,ls_item_info,ls_wx_name,ls_url,ls_username,ls_password
ls_pay_url,ls_success,ls_msg,ls_code,ls_title
ll_branch_id,ll_row,ll_key
ldec_pay_amt
datawindow ldw_sale
nvo_inet_args lnv_args
nvo_inet_res lnv_res
nvo_string
lblob_item_info,lb_username
//获取token
lnvo_inet = create nvo_inet
ls_url = gf_get_sys_param(&APIURL&,&/SaleActivity&)
ls_pay_url = gf_get_sys_param(&APIPayURL&,&/pay&)
ls_username = gf_get_sys_param(&APIUserName&,&&)
ls_password = gf_get_sys_param(&APIPassword&,&&)
lnvo_inet.of_set_url(ls_url )
//用户名转换为utf8
lnv_str.of_ansi_utf8(ls_username,lb_username)
ls_username = string(lb_username)
lnv_args.uf_add( &username&, ls_username)
lnv_args.uf_add( &password&, ls_password)
lnv_args.uf_add( &tokenType&, &5&)
lnv_args.uf_add( &format&, &xml&)
if lnvo_inet.of_post( &GetAccessToken&, lnv_args, lnv_res, ls_error) then
ls_info = lnv_res.is_data
ls_code = lnv_res.uf_get_value( &Code&)
ls_msg = lnv_res.uf_get_value(&Message&)
if ls_code && '0' then //获取Token失败
if ls_msg = '' or isnull(ls_msg) then
ls_msg = '发生未知错误'
Messagebox(&提示&,ls_msg)
cb_pay.enabled = true
ls_token = lnv_res.uf_get_value( &access_token&)
Messagebox(&false&,ls_error)
cb_pay.enabled = true
//开始刷卡付款
lnv_args.uf_clear( )
ls_wx_name = sle_wx_name.text
lnvo_inet.of_set_url(ls_pay_url)
lnv_args.uf_add( &access_token&, ls_token)
lnv_args.uf_add( &payamt&,string(ldec_pay_amt,&0.00&))
ls_item_info = ls_title + &订单号:& + is_flowno
lnv_str.of_ansi_utf8( ls_item_info,lblob_item_info)
ls_item_info = string(lblob_item_info)
lnv_args.uf_add( &iteminfo&,ls_item_info)
lnv_args.uf_add( &code&,ls_wx_name )
lnv_args.uf_add( &jxcpayid&, is_flowno)
lnv_args.uf_add( &jxcsheetno&, is_flowno)
lnv_args.uf_add( &format&, &xml&)
if lnvo_inet.of_post( &AlipayBarCodePay&, lnv_args, lnv_res, ls_error) then
ls_info = lnv_res.is_data
ls_success = lnv_res.uf_get_value(&Success&)
ls_msg = lnv_res.uf_get_value( &Message&)
if lower(ls_success) && 'true' then
//支付失败
if ls_msg = '' or isnull(ls_msg) then
ls_msg = '发生未知错误'
Messagebox(&提示&,ls_msg)
cb_pay.enabled = true
Messagebox(&false&,ls_error)
cb_pay.enabled = true
&&相关文章推荐
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：13917次
排名：千里之外
原创：10篇
(1)(2)(1)(1)(1)(1)(3)(2)(1)(1)(1)}