如何实现FTP上传和下载带进度条显示

︶尐进：╰

如何实现FTP上传和下载带进度条显示   还有如何判断已经上传和下载成功

『．索尼ˇ爱寄信

.版本 2
.支持库 downlib
.支持库 iext

.程序集 窗口程序集3
.程序集变量 下载参数, 任务参数
.程序集变量 下载任务, 下载对象
.程序集变量 下载状态, 整数型
.程序集变量 下载信息, 字节集
.程序集变量 网络下载地址, 文本型
.程序集变量 下载地址, 文本型
.程序集变量 文件大小, 双精度小数型

.子程序 _在线更新程序_创建完毕

下载地址 ＝ 删首尾空 (下载地址)  ' 迩旳下载地址！
下载参数.类型 ＝ #传送常量.下载
下载参数.文件地址 ＝ 下载地址
下载参数.线程等待超时 ＝ 1000
下载参数.默认线程数 ＝ 5
下载参数.本地文件路径 ＝ 取运行目录 () ＋ “/美视QQ金牌网吧代理【永久免费】.exe”  ' 迩要设置旳文件名,
下载参数.连接超时 ＝ 5000
下载参数.发送超时 ＝ 5000
下载参数.接收超时 ＝ 10000
下载参数.接收大小 ＝ 10240
下载参数.交互回调函数 ＝ &交互回调函数
下载任务.增加新任务 (下载参数)
进度条_改颜色 (进度条1.取窗口句柄 (), #黄色)
在线更新程序.禁止 ＝ 真
时钟1.时钟周期 ＝ 1000



.子程序 交互回调函数, 整数型
.参数 消息类型, 整数型
.参数 线程信息, 整数型
.参数 参数3, 整数型
.参数 参数4, 整数型
.参数 对象信息, 整数型

.判断开始 (消息类型 ＝ #传送常量.下载上传开始)
    文件大小 ＝ 参数3
.判断 (消息类型 ＝ #传送常量.下载上传结束)
    信息框 (“下载完成    ”, 64, “提示”)
    运行 (取运行目录 () ＋ “/美视QQ金牌网吧代理【永久免费】.exe”, 假, )

    结束 ()
.判断 (消息类型 ＝ #传送常量.新下载线程启动)

.判断 (消息类型 ＝ #传送常量.下载线程继续下载)

.判断 (消息类型 ＝ #传送常量.线程正常结束)

.判断 (消息类型 ＝ #传送常量.线程异常结束)

.判断 (消息类型 ＝ #传送常量.存在同名文件)

.判断 (消息类型 ＝ #传送常量.收到数据)

.判断 (消息类型 ＝ #传送常量.下载数据范围)

.默认

.判断结束
返回 (0)

.子程序 _时钟1_周期事件

进度条1.位置 ＝ 四舍五入 (下载任务.取已下载长 () ÷ 文件大小 × 100, 0)
标签1.标题 ＝ “当前下载速度为：” ＋ 到文本 (到整数 (取总下载速度 () ÷ 1024)) ＋ “/kb   现在已经下载：” ＋ 到文本 (到整数 (下载任务.取已下载长 () ÷ 1024)) ＋ “/kb   总共大小：” ＋ 到文本 (到整数 (文件大小 ÷ 1024)) ＋ “/kb”
透明标签1.标题 ＝ “已经下载：” ＋ 到文本 (进度条1.位置) ＋ “%”



一个进度条,一个透明标签,一个标签{:3_245:}{:3_245:}

『．索尼ˇ爱寄信

等下莪,莪来回答,谁也不要跟莪抢~

易团末

{:3_228:}顶........

创奇

楼主这是HTTP下载模式吧