分享一个FTP上传下载控件。前几天看到有吧友在问FTP上传下 - vb吧

level 13

xuqiancun3 楼主

分享一个FTP上传下载控件。
前几天看到有吧友在问FTP上传下载的帖子，但是没时间弄，今天终于休息了，带着浓厚的兴趣写了这个控件，现在分享给吧友们，希望大家能够多多顶贴，多多点赞支持。
纯代码编写，没有用 inet 控件、winsock控件，有参考借鉴网上的源码。
控件采用了分包上传和下载的方式，测试了最大200M的上传，再大的就没测试了。传输期间不会出现卡住、无响应的情况。
上传和下载都有详细的信息显示，如总大小，已传输，未传输，剩余大小，已用时间，剩余时间，传输百分比，以及进度条显示。
使用界面：
应用示例：

2019年06月30日 06点06分 1

level 13

xuqiancun3 楼主

控件功能说明：
****************************************************************************************
方法：
1、CnnServer----连接FTP服务器
参数：
aServerAddress---ftp地址
aUser---登录名
aPsw----密码
aPort--端口
[aSiteName]---连接命名，可选参数。
[aConnType]---连接模式，可选参数。"0"--主动模式；"1"--被动模式，更稳定。默认为"1"
返回：执行结果。"0"--操作失败；"1"--操作成功
2、DisCnnServer---断开服务器连接
参数：无
返回：执行结果。"0"--操作失败；"1"--操作成功
3、Upload----上传文件。本方法调用之前，需要调用 CnnServer 方法和服务器建立连接
参数：
aLocalFile---本地文件全路径
aServerFileName---上传至服务器保存路径。如："Test/123.zip"
返回：执行结果。"0"--操作失败；"1"--操作成功
4、Download----下载文件。本方法调用之前，需要调用 CnnServer 方法和服务器建立连接
参数：
aServerFileName---上传至服务器保存路径。如："Test/123.zip"
aLocalFile---本地文件全路径
返回：执行结果。"0"--操作失败；"1"--操作成功
5、GetVersion---获取控件版本
参数：无
返回：版本号。
****************************************************************************************

2019年06月30日 06点06分 2

level 13

xuqiancun3 楼主

事件：
1、UpLoadDone(ByVal aFileSize As String, ByVal aTime As String)
---上传完毕。aFileSize--传递文件大小；aTime--传递耗费时间，单位为秒。
2、DownLoadDone(ByVal aFileSize As String, ByVal aTime As String)
---下载完毕。aFileSize--传递文件大小；aTime--传递耗费时间，单位为秒。
****************************************************************************************
属性：
1、BackColor---设置控件的背景色
2、BordColor---设置控件和滚动条的边框色
3、TopColor----设置滚动条的颜色
4、ForeColor---设置字体颜色
5、RoundRC-----设置控件和滚动条的圆角大小，默认为5
6、ShowBord----设置是否显示控件边框
7、ShowDetail-----设置默认是否显示详细信息
****************************************************************************************
应用响应：
1、运行时，鼠标单击界面【详细】左侧的 "+" "-" 图标，可以 "折叠"或者"展开" 详细信息
****************************************************************

2019年06月30日 06点06分 3

level 13

xuqiancun3 楼主

发个帖子真难，搞了一个小时。在电脑上编辑好了，点发送竟然失败，提示未知错误，1100003，没办法，只有手机重新编辑发，真是无语啊

2019年06月30日 07点06分 5