PB中打开url链接

PB中打开url链接

公司项目中,第三方发来个说明,说是要通过打开url连接地址的方式,将参数传给对方的平台,参数的封装采用Json格式,

百度了一通,看了网友们的方法,发现pb中有个inet控件可以实现功能,我开始想,应该是将参数传给对方以后,对方同

样将返回值以json的格式传给我们,所以,用户不需要看到url打开的页面,所以需要使用的是GetURL方法,并获取返回值,

于是有了以下的方法

复制代码

/*先建立一个nuo_cst_internet.sru对象,来获取返回值*/
forward
global type nuo_cst_internet from internetresult
end type
end forward

global type nuo_cst_internet from internetresult
end type
global nuo_cst_internet nuo_cst_internet

type variables
string is_data
end variables

forward prototypes
public function integer internetdata (blob data)
end prototypes

public function integer internetdata (blob data);is_data = string(data)
return 1
end function

on nuo_cst_internet.create
call super::create
TriggerEvent( this, "constructor" )
end on

on nuo_cst_internet.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on

复制代码

以GetURL方法调用url地址

复制代码

/*uf_get_url
string as_url //封装好的url地址
return string
*/
string ls_result
integer li_rc 
inet linet_main
nuo_cst_internet luo_data 
linet_main = CREATE inet
luo_data = CREATE nuo_cst_internet
li_rc = linet_main.GetURL(as_url, luo_data)
ls_result = luo_data.is_data

DESTROY luo_data
DESTROY linet_main

RETURN ls_result 

复制代码

后来发现,对方传过来的也是一个网页,然后还需在这个页面的做提交,于是最后采用了HyperLinkToURL方法,于是不用获取返回值了

string ls_result
integer li_rc
inet linet_main
linet_main = CREATE inet
li_rc = linet_main.HyperLinkToURL(as_url)
RETURN li_rc

 

 
发布了108 篇原创文章 · 获赞 41 · 访问量 157万+
展开阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 大白 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览