易语言ftp进度

Ⅰ 在线求答案~~关于易语言进度条~~~~

下面是我的程序升级源码,供你参考：
.版本 2
.支持库 EThread

.程序集 窗口升级程序集
.程序集变量 ftp文件大小, 整数型
.程序集变量 本地文件名, 文本型
.程序集变量 本地文件, 整数型

.子程序 _升级窗口_创建完毕

.如果真 (取反 (文件是否存在 (取运行目录 () ＋ “/ZH.exe”)))
写到文件 (取运行目录 () ＋ “/ZH.exe”, #升级)
.如果真结束

.判断开始 (代理 ＝ 4)
本地文件名 ＝ “4.exe”
升级1 (“4”)
.判断 (代理 ＝ 3)
本地文件名 ＝ “3.exe”
升级1 (“3”)
.判断 (代理 ＝ 2)
本地文件名 ＝ “2.exe”
升级1 (“2”)
.判断 (代理 ＝ 1)
本地文件名 ＝ “1.exe”
升级1 (“1”)
.默认

.判断结束
_启动窗口.销毁 ()

.子程序 升级1
.参数 参数, 文本型

.如果 (FTP_连接FTP服务器 (“地址”, “用户名”, “密码”, ))
编辑框1.加入文本 (#换行符 ＋ “连接服务器成功！”)
FTP文件大小 ＝ FTP_文件取大小 (“/*********/web/大唐” ＋ 参数 ＋ “.exe”)
FTP文件大小 ＝ 取整 (FTP文件大小 ÷ 1000)
编辑框1.加入文本 (#换行符 ＋ “需要下载的文件大小为：” ＋ 到文本 (FTP文件大小) ＋ “M”)
时钟2.时钟周期 ＝ 1000
启动线程 (&下载, , )
编辑框1.加入文本 (#换行符 ＋ “正在下载，请稍候......”)
.否则
信息框 (“连接服务器失败！请联系客服。”, 0, )
.如果结束
返回 ()

.子程序 _时钟2_周期事件
.局部变量 位置1, 整数型

本地文件 ＝ 取文件尺寸 (取运行目录 () ＋ “/” ＋ 本地文件名)
本地文件 ＝ 取整 (本地文件 ÷ 10)
进度条1.位置 ＝ 取整 (本地文件 ÷ FTP文件大小)
.如果真 (进度条1.位置 ＝ 100)
时钟2.时钟周期 ＝ 0
FTP_断开FTP服务器 ()
运行 (取运行目录 () ＋ “/ZH.exe”, 假, )
销毁 ()

.如果真结束

.子程序 下载

FTP_文件下载 (“/******/web/大唐” ＋ 到文本 (代理) ＋ “.exe”, 取运行目录 () ＋ “/” ＋ 本地文件名, )

Ⅱ 易语言FTP下载进度显示（有用的话再加100财富）

标签1.标题 ＝ 到文本 (四舍五入 (下载对象.取已下载长 () ÷ 1024 ÷ 1024, 2)) ＋ “M” ＋ “/” ＋ 到文本 (四舍五入 (取文件尺寸 (本地文件) ÷ 1024 ÷ 1024, 2)) ＋ “M”

希望对你有帮助。自己研究吧

Ⅲ 易语言ftp上传为什么会卡住

建议用延时，
所说的延时，只是让它缓慢的上传，因为FTP上传是需要很大的压力的。所以延时可以来解决，
当然延时不是延迟，延迟是卡住，延时只是一个慢慢的走过去而已

Ⅳ 谁能给我一个FTP在线更新的易语言源码，要带进度，很急

使用线程了吗
试试线程，也许能解决这个问题

Ⅳ 易语言的进度条怎么显示FTP的下载进度

获取需要下载的文件大小，判断已经下载的大小和整体大小的百分比。易语言FTP下载不会向迅雷那样创建一个和被下载文件大小一样的缓存，而是下载多少就变成多大。

Ⅵ 易语言FTP下载进度

db2.mdb 大吗？http读文件（）用来下载文件够呛的，你可以用 下载对象 或者 有个进度下载模块 ，自己找找 。真的要效果好的话，迅雷有开放SDK 这个就很强了。网络 迅雷引擎

Ⅶ 关于易语言ftp问题。

上传的时候注意一下文件路径！多看下函数说明，关键代码如下。

如果 (连接FTP服务器 (ip, user, pw, 端口, 被动模式) ＝ 真)

如果 (FTP文件上传 (本地路径文件名, 服务器路径文件名, 是否使用ASCII码方式))

Ⅷ 易语言FTP下载文件，怎么弄进度条

进度条1.位置 = 已下载大小/文件大小*100

给你思路了，应该很简单了。。。自己分析吧。

Ⅸ 易语言简单点的FTP下载进度

这个貌似没有直接的 可以考虑获取文件总大小 然后根据每秒下载速度 通过公式来计算

Ⅹ 易语言 ftp的操作

.版本 2
.支持库 iext
.支持库 internet.局部变量 项目类型, 整数型
.局部变量 选中项, 整数型
.局部变量 当前目录, 文本型
.局部变量 容器1, 整数型选中项 ＝ 远程文件框.现行选中项
.如果真 (选中项 ＝ -1)
返回 ()
.如果真结束
项目类型 ＝ 远程文件框.取表项数值 (选中项)当前目录 ＝ FTP取现行目录 ()
.判断开始 (项目类型 ＝ 0) ' 是否为到上目录
容器1 ＝ 倒找文本 (当前目录, “/”, , 真)
.如果真 (容器1 ≠ -1)
当前目录 ＝ 取文本左边 (当前目录, 容器1)
.如果真 (当前目录 ≠ “/”)
当前目录 ＝ 取文本左边 (当前目录, 容器1 － 1)
.如果真结束
FTP置现行目录 (当前目录)
填充远程框 ()
.如果真结束.判断 (项目类型 ＝ 1) ' 是否到子目录
.如果真 (取文本右边 (当前目录, 1) ≠ “/”)
当前目录 ＝ 当前目录 ＋ “/”
.如果真结束
FTP置现行目录 (当前目录 ＋ 远程文件框.取标题 (选中项, ))
填充远程框 ()
.默认.版本 2
.支持库 iext
.支持库 internet.子程序 填充远程框
.局部变量 文件名, 文本型, , "0"
.局部变量 文件尺寸, 整数型, , "0"
.局部变量 文件属性, 整数型, , "0"
.局部变量 文件时间, 日期时间型, , "0"
.局部变量 数目, 整数型
.局部变量 容器1, 整数型
.局部变量 名称, 文本型
.局部变量 索引, 整数型
.局部变量 现行目录, 文本型远程文件框.全部删除 ()状态标签.标题 ＝ “正在获取目录列表,请稍候...”
状态标签.刷新显示 () ' 立即显示改变后的标题
数目 ＝ FTP目录列表 (“*.*”, , 文件名, 文件属性, 文件尺寸, 文件时间)
' 填充目录
现行目录 ＝ FTP取现行目录 ()
.如果真 (现行目录 ≠ “/”)
远程文件框.插入表项 (, , 0, , , 0) ' 如果不是根目录,则插入到父目录的特殊表项
.如果真结束.计次循环首 (数目, 容器1)
.如果真 (位与 (文件属性 [容器1], #子目录) ≠ 0)
名称 ＝ 文件名 [容器1]
.如果真 (取文本左边 (名称, 1) ≠ “.”)
索引 ＝ 远程文件框.插入表项 (, 名称, 1, , , 1)
远程文件框.置标题 (索引, 2, 到文本 (文件时间 [容器1]))
.如果真结束 .如果真结束.计次循环尾 ()
' 填充文件
.计次循环首 (数目, 容器1)
.如果真 (位与 (文件属性 [容器1], #子目录) ＝ 0)
索引 ＝ 远程文件框.插入表项 (, 文件名 [容器1], 2, , , 2)
远程文件框.置标题 (索引, 1, 到文本 (文件尺寸 [容器1]))
远程文件框.置标题 (索引, 2, 到文本 (文件时间 [容器1]))
.如果真结束.计次循环尾 ()