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

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.com/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.com/Default.aspx",lb_data,"test.txt") = 1 Then
       MessageBox("成功","文件上传完毕")
Else
       MessageBox('错误',uo_vdn.LastError)
End If

三、下载文件

3.1、下载文件

ls_url="https://www.baidu.com/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.com/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等功能