PB调用http协议接口（WebAPI）

最新推荐文章于 2024-09-05 23:11:29 发布

softvery

最新推荐文章于 2024-09-05 23:11:29 发布

阅读量3.5k

点赞数

分类专栏： VDN 文章标签： PB HTTP

本文链接：https://blog.csdn.net/softvery/article/details/125662880

版权

VDN 专栏收录该内容

7 篇文章

订阅专栏

PB通过导入组件uo_vdncore实际方便快捷的访问http协议，支持GET\POST\PUT等操作，可以方便的对接微信、支付宝、钉钉、各种银行的支付接口等基于http的接口

QQ技术交流群: 130377874 获取最新版本VDN组件
示例在:下载的文件包Example\PB演示示例\VDNDemo.pbw w_http窗口，针对常用的情况做了各种示例

详见：PB使用http协议、https协议(简单便捷)_softvery的博客-CSDN博客

1、 GET

//=====================================================
// 描述: 通过hc_get函数可以直接以Get方式向指定的URL发起请求
//=====================================================
string ls_html
if uo_vdn.hc_get("http://www.xxx.com/",ref ls_html)=1 then
       mle_1.text=ls_html
else
       messagebox("错误",uo_vdn.LastError)
end if

还可以设置设定接收服务器端返回的数据的格式Accept（Content-Type）

uo_vdn.accept= uo_vdn.ContentType_JSON //返回JSON格式:application/json

扩展示例通过GET方式从第三方平台获取快递信息

//=============================================
// 描述:演示通过第三方平台查询快递
//=============================================
String ls_rtn,ls_message
String ls_parm
//该ID为测试ID，如需正式使用请联系：http://q.kdpt.net/
ls_parm = '?id=***&com=auto&nu='+sle_no.Text +'&show=json&order=desc'
//返回格式
uo_vdn.accept = uo_vdn.ContentType_JSON //返回JSON格式:application/json
//获取
If uo_vdn.hc_get("http://q.kdpt.net/api"  + ls_parm,Ref ls_rtn) = 1 Then
       mle_1.Text = ls_rtn
       //解析返回值
       nvo_json n_json
       n_json = Create nvo_json
       n_json.Parse(ls_rtn)
       //关键消息 ok为成功
       ls_message = n_json.GetValue("message")
       If ls_message = "ok" Then
              //状态
              sle_state.text=n_json.GetValue("state")
              //解析到DW或者DS中
              n_json.item2dw("data",dw_1)
       Else
              MessageBox("错误",ls_message)
       End If
       Destroy n_json
Else
       MessageBox("错误",uo_vdn.LastError)
End If

2、 POST

///=============================================
// 描述: 通过hc_post函数可以直接以Post方式向指定的URL发起请求
//=============================================
string ls_html
uo_vdn.contenttype=uo_vdn.contenttype_urlencoded //指定发送的内容类型 可选
if uo_vdn.hc_post(sle_server.text,"wd=vdn",ref ls_html)=1 then
       mle_1.text=ls_html
else
       messagebox("错误",uo_vdn.LastError)
end if

小结
也可以异步上传和下载文件，更多示例代码（Example\PB演示示例）及说明文档HttpClient一节。该组件同时支持Http(Https)协议的Get、Post，获取和设置页面内容、Header、Cookie等常规的Http操作

通过VDN组件PB还可以支持JOSN、加密、解密、压缩、解压缩、二维码、发送手机短信、查询快递等功能。

VDN还可以搭建自己的服务器端，快速的实现C/S转B/S运行、自动升级、微信公众号、微信企业公众号、微信扫码支付、钉钉平台、互联网数据库高速连接、Web App\WebAPI等功能