|
楼主 |
发表于 2018-1-9 09:49:26
|
显示全部楼层
河南省许昌市
.版本 2
.支持库 downlib
.支持库 iext6
.计次循环首 (5, i)
子程序_下载 ()
.计次循环尾 ()
.子程序 子程序_下载
下载参数设置.类型 = #传送常量.下载
下载参数设置.文件地址 = 编辑框1.内容
下载参数设置.默认线程数 = 3
下载参数设置.本地文件路径 = “e:\”
下载参数设置.连接超时 = 5000
下载参数设置.发送超时 = 5000
下载参数设置.接收超时 = 5000
下载参数设置.日志回调函数 = &日志回调
下载参数设置.交互回调函数 = &交互回调
下载任务.增加新任务 (下载参数设置)
.子程序 日志回调
.参数 线程信息, 整数型
.参数 消息产生的时间, 文本型
.参数 消息的正文, 文本型
.参数 消息类型, 整数型
.参数 对象信息, 整数型
.子程序 交互回调
.参数 消息类型, 整数型
.参数 线程信息, 整数型
.参数 消息的正文, 整数型
.参数 消息产生的时间, 整数型
.参数 对象信息, 整数型
.判断开始 (消息类型 = #传送常量.下载上传开始) ' 这里为什么用消息类型=#传送常量.下载上传开始 程序才可以才下载,提示里不是说第二个参数才是线程信息吗?
下载任务.取任务数据 (程序集_字节集)
程序集_欲下载文件大小 = 下载任务.取任务数据项 (程序集_字节集, 1, 0)
多功能条1.最大位置 = 程序集_欲下载文件大小
.判断 (消息类型 = #传送常量.收到数据)
下载任务.取任务数据 (程序集_字节集)
程序集_已下载文件大小 = 下载任务.取任务数据项 (程序集_字节集, 2, 0)
多功能条1.位置 = 程序集_已下载文件大小
标签_下载速度.标题 = “下载速度” + 数值到格式文本 (下载任务.取下载速度 () ÷ 1000, 1, 假) + “KB”
.判断 (消息类型 = #传送常量.下载上传结束)
信息框 (“已完成下载”, 0, , )
.默认
.判断结束
|
|