admin管理员组

文章数量:1572326

PB通过Http协议上传、下载文件

       PB自身也有http组件,但使用起来较为繁琐。VDN作者将http功能通过API的形式封装为HttpClient组件,PB直接调用即可,通过该组件可以便捷的实现文件上传、文件下载或Blob上传、下载到Blob的功能,支持HTTP及HTTPS协议,客户端组件免费供PB开发者使用。也可通过VDN快速搭建自己的HTTP服务器。

    QQ技术交流群: 130377874 获取最新版本VDN组件

一、导入组件

1.1、首先将Example\IE运行导入组件\导入组件\PB*\uo_vdncore.sru组件导入到PB项目中

   将uo_vdncore组件拖到窗体,更名为uo_vdn

      

1.2、将DataClient\VesnDataCleint.dll拷贝到程序目录。

二、上传到服务器

2.1、 上传文件

If  uo_vdn.hc_upfile("http://www.xxx/Default.aspx","j:\1.png") = 1 Then
       MessageBox("成功","文件上传完毕")
Else
       MessageBox('错误',uo_vdn.LastError)
End If

       注、 函数还有更多的可选参数,详细见示例代码

2.2、上传BLOB

If uo_vdn.hc_upfile("http://www.xxx/Default.aspx",lb_data,"test.txt") = 1 Then
       MessageBox("成功","文件上传完毕")
Else
       MessageBox('错误',uo_vdn.LastError)
End If

三、下载文件

3.1、下载文件

ls_url="https://www.baidu/img/baidu_jgylogo3.gif"
if uo_vdn.downfile(ls_url,ls_path) =1 then 
       mle_1.text="文件下载完毕 存储在:"+uo_vdn.FilePath
end if

3.2、下载文件到BLOB


blob a_blob
if uo_vdn.downfile("https://www.baidu/img/baidu_jgylogo3.gif",ref a_blob)=1 then
       p_1.setpicture(a_blob)
else
       messagebox("错误",uo_vdn.LastError)
end if

小结

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

 

HttpClient 示例截图

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

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

 

本文标签: 协议上传文件pbhttp