FTP下载取进度 下载速度的问题

2382750702

  

子程序名	返回值类型	公开	备 注
_下载_远程_被选择

下载_表项 ＝ 超级列表框_下载.插入表项 (, , , , , )
启动线程 (&获取文件, , )
启动线程 (&启动下载, , )

子程序名	返回值类型	公开	备 注
启动下载

远程_列表框项目文本 ＝ 超级列表框_远程.取标题 (超级列表框_远程.现行选中项, 0)
调试输出 (“ftp://” ＋ 编辑框_FTP用户名.内容 ＋ “:” ＋ 编辑框_FTP密码.内容 ＋ “@” ＋ “007.3vftp.com” ＋ ftp.取现行目录 () ＋ 远程_列表框项目文本)
Taskparam.类型 ＝ #传送常量 .下载
Taskparam.类型 ＝ #传送常量 .覆盖
Taskparam.本地文件路径 ＝ 取运行目录 () ＋ “\” ＋ 远程_列表框项目文本
Taskparam.文件地址 ＝ “ftp://” ＋ 编辑框_FTP用户名.内容 ＋ “:” ＋ 编辑框_FTP密码.内容 ＋ “@” ＋ “007.3vftp.com” ＋ ftp.取现行目录 () ＋ 远程_列表框项目文本
Taskparam.默认线程数 ＝ 5
Taskparam.交互回调函数 ＝ &goback
Download.增加新任务 (Taskparam)

子程序名	返回值类型	公开	备 注
goback	整数型		交互回调函数
参数名	类 型	参考	可空	数组	备 注
Msgtype	整数型
ThreadInfo	整数型
MsgtypeA	整数型
MsgtypeB	整数型
ObjInfo	整数型

' 成员“交互回调函数”所在数据类型为“任务参数”，英文名称为“MutualCallBack”，类型为“子程序指针（SubPtr）”。
' 注册一个回调函数，系统产生需要交互的消息时调用此函数，具体消息请参见传送常量中设置的消息常量。如果为0则不接收，默认为0。回调函数需要有5个参数，一个整数型的返回值。返回值根据消息类型的不同而不同，如果没有说明，则返回值没有意义。参见具体的消息。第一个参数，消息类型（整数型），参见“#传送常量.*”；第二个参数，线程信息（整数型），可以通过”取线程信息“获得每个上传或下载对象的线程信息，与本参数比较从而确定发送本消息的对象，此参数值可能为0，表示不与特定线程有关；第三个参数（整数型）根据消息类型的不同而不同，参见具体的消息；第四个参数（整数型）根据消息类型的不同而不同，参见具体的消息；第五个参数，对象信息（整数型），可以通过“取对象信息()”获得下载或上传对象的信息与本参数比较，从而确定本消息属于哪个对象。
如果真 (Msgtype ＝ #传送常量 .新下载线程启动)
调试输出 (“请稍后，正在全力启动下载引擎...” ＋ #换行符 )
调试输出 (MsgtypeA ＝ #传送常量 .收到数据)
如果真 (Msgtype ＝ #传送常量 .下载上传开始)
调试输出 (“开始下载...” ＋ #换行符 )
时钟_下载引擎.时钟周期 ＝ 1000
如果真 (Msgtype ＝ #传送常量 .发送数据)
调试输出 (“正在发送数据到服务器...” ＋ #换行符 )
如果真 (Msgtype ＝ #传送常量 .设置新名)
调试输出 (“交互：设置文件名” ＋ #换行符 )
如果真 (Msgtype ＝ #传送常量 .线程正常结束)
调试输出 (“正在结束下载...” ＋ #换行符 )
如果真 (Msgtype ＝ #传送常量 .下载上传结束)
调试输出 (“下载完成...” ＋ #换行符 )
时钟_下载引擎.时钟周期 ＝ 0
返回 (0)

子程序名	返回值类型	公开	备 注
_下载时钟_周期事件

' 超级列表框_下载.置标题 (下载_表项, 3, 到文本 (取整 (Download.取下载速度 () ÷ 1024)) ＋ “kb/s”)
标签5.标题 ＝ 到文本 (取整 (Download.取下载速度 () ÷ 1024)) ＋ “kb/s”
超级列表框_下载.置标题 (下载_表项, 4, Download.取已下载长 () ÷ 提取文件尺寸 × 100)

子程序名	返回值类型	公开	备 注
获取文件

远程_列表框项目文本 ＝ 超级列表框_远程.取标题 (超级列表框_远程.现行选中项, 0)
提取文件尺寸 ＝ 超级列表框_远程.取标题 (超级列表框_远程.现行选中项, 1)  ' 通过目录列表提出来的尺寸属性是放在数组里的，转化为长整数
超级列表框_下载.置标题 (下载_表项, 0, 远程_列表框项目文本)
超级列表框_下载.置标题 (下载_表项, 1, 提取文件尺寸)
调试输出 (提取文件尺寸)
' 文件大小标签.标题 ＝ “文件大小：” ＋ 到文本 (四舍五入 (提取文件尺寸 ÷ 1024 ÷ 1024, 1)) ＋ “MB”

i支持库列表	支持库注释
iext	扩展界面支持库一
EThread	多线程支持库
spec	特殊功能支持库
downlib	网络传送支持库

.版本 2<br /> .支持库 iext<br /> .支持库 EThread<br /> .支持库 spec<br /> .支持库 downlib<br /> <br /> .子程序 _下载_远程_被选择<br /> <br /> 下载_表项 ＝ 超级列表框_下载.插入表项 (, , , , , )<br /> 启动线程 (&获取文件, , )<br /> 启动线程 (&启动下载, , )<br /> <br /> .子程序 启动下载<br /> <br /> 远程_列表框项目文本 ＝ 超级列表框_远程.取标题 (超级列表框_远程.现行选中项, 0)<br /> 调试输出 (“ftp://” ＋ 编辑框_FTP用户名.内容 ＋ “:” ＋ 编辑框_FTP密码.内容 ＋ “@” ＋ “007.3vftp.com” ＋ ftp.取现行目录 () ＋ 远程_列表框项目文本)<br /> Taskparam.类型 ＝ #传送常量.下载<br /> Taskparam.类型 ＝ #传送常量.覆盖<br /> Taskparam.本地文件路径 ＝ 取运行目录 () ＋ “\” ＋ 远程_列表框项目文本<br /> Taskparam.文件地址 ＝ “ftp://” ＋ 编辑框_FTP用户名.内容 ＋ “:” ＋ 编辑框_FTP密码.内容 ＋ “@” ＋ “007.3vftp.com” ＋ ftp.取现行目录 () ＋ 远程_列表框项目文本<br /> Taskparam.默认线程数 ＝ 5<br /> Taskparam.交互回调函数 ＝ &goback<br /> Download.增加新任务 (Taskparam)<br /> <br /> .子程序 goback, 整数型, , 交互回调函数<br /> .参数 Msgtype, 整数型<br /> .参数 ThreadInfo, 整数型<br /> .参数 MsgtypeA, 整数型<br /> .参数 MsgtypeB, 整数型<br /> .参数 ObjInfo, 整数型<br /> <br /> ' 成员“交互回调函数”所在数据类型为“任务参数”，英文名称为“MutualCallBack”，类型为“子程序指针（SubPtr）”。<br /> ' 注册一个回调函数，系统产生需要交互的消息时调用此函数，具体消息请参见传送常量中设置的消息常量。如果为0则不接收，默认为0。回调函数需要有5个参数，一个整数型的返回值。返回值根据消息类型的不同而不同，如果没有说明，则返回值没有意义。参见具体的消息。第一个参数，消息类型（整数型），参见“#传送常量.*”；第二个参数，线程信息（整数型），可以通过”取线程信息“获得每个上传或下载对象的线程信息，与本参数比较从而确定发送本消息的对象，此参数值可能为0，表示不与特定线程有关；第三个参数（整数型）根据消息类型的不同而不同，参见具体的消息；第四个参数（整数型）根据消息类型的不同而不同，参见具体的消息；第五个参数，对象信息（整数型），可以通过“取对象信息()”获得下载或上传对象的信息与本参数比较，从而确定本消息属于哪个对象。<br /> .如果真 (Msgtype ＝ #传送常量.新下载线程启动)<br />     调试输出 (“请稍后，正在全力启动下载引擎...” ＋ #换行符)<br />     调试输出 (MsgtypeA ＝ #传送常量.收到数据)<br /> .如果真结束<br /> .如果真 (Msgtype ＝ #传送常量.下载上传开始)<br />     调试输出 (“开始下载...” ＋ #换行符)<br />     时钟_下载引擎.时钟周期 ＝ 1000<br /> .如果真结束<br /> .如果真 (Msgtype ＝ #传送常量.发送数据)<br />     调试输出 (“正在发送数据到服务器...” ＋ #换行符)<br /> .如果真结束<br /> .如果真 (Msgtype ＝ #传送常量.设置新名)<br />     调试输出 (“交互：设置文件名” ＋ #换行符)<br /> .如果真结束<br /> .如果真 (Msgtype ＝ #传送常量.线程正常结束)<br />     调试输出 (“正在结束下载...” ＋ #换行符)<br /> .如果真结束<br /> .如果真 (Msgtype ＝ #传送常量.下载上传结束)<br />     调试输出 (“下载完成...” ＋ #换行符)<br />     时钟_下载引擎.时钟周期 ＝ 0<br /> .如果真结束<br /> 返回 (0)<br /> <br /> .子程序 _下载时钟_周期事件<br /> <br /> ' 超级列表框_下载.置标题 (下载_表项, 3, 到文本 (取整 (Download.取下载速度 () ÷ 1024)) ＋ “kb/s”)<br /> 标签5.标题 ＝ 到文本 (取整 (Download.取下载速度 () ÷ 1024)) ＋ “kb/s”<br /> 超级列表框_下载.置标题 (下载_表项, 4, Download.取已下载长 () ÷ 提取文件尺寸 × 100)<br /> <br /> .子程序 获取文件<br /> <br /> 远程_列表框项目文本 ＝ 超级列表框_远程.取标题 (超级列表框_远程.现行选中项, 0)<br /> 提取文件尺寸 ＝ 超级列表框_远程.取标题 (超级列表框_远程.现行选中项, 1)  ' 通过目录列表提出来的尺寸属性是放在数组里的，转化为长整数<br /> 超级列表框_下载.置标题 (下载_表项, 0, 远程_列表框项目文本)<br /> 超级列表框_下载.置标题 (下载_表项, 1, 提取文件尺寸)<br /> 调试输出 (提取文件尺寸)<br /> ' 文件大小标签.标题 ＝ “文件大小：” ＋ 到文本 (四舍五入 (提取文件尺寸 ÷ 1024 ÷ 1024, 1)) ＋ “MB”

2382750702

文件能正常下载  但是下载时钟里的 速度 进度 无法显示  求解答！

2382750702

没有大佬吗