FTP下载上传的工具进度条同步

.子程序 _按钮文件上传_被单击
.局部变量 要上传的, 文本型, , "0"

.如果真 (通用对话框1.打开 ())
上传文件的大小 ＝ 取文件尺寸 (通用对话框1.文件名)
任务参数.类型 ＝ #传送常量.上传
要上传的 ＝ 分割文本 (通用对话框1.文件名, “\”, )
任务参数.文件地址 ＝ “ftp://” ＋ 服务器IP ＋ “:” ＋ 到文本 (服务器端口) ＋ “/” ＋ 要上传的 [取数组成员数 (要上传的)]
任务参数.本地文件路径 ＝ 通用对话框1.文件名
任务参数.用户名 ＝ 服务器账号
任务参数.用户密码 ＝ 服务器密码
任务参数.默认线程数 ＝ 50
任务参数.日志回调函数 ＝ &日志回调函数
FTP上传对象.上传文件 (任务参数)
透明标签1.可视 ＝ 真
.如果真结束


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

透明标签下载速度.标题 ＝ “上传速度” ＋ 到文本 (取整 (FTP上传对象.取上传速度 () ÷ 1024)) ＋ “KB/S”
进度条1.位置 ＝ 取整 (FTP上传对象.取已上传长 () ÷ 上传文件的大小 × 100)
透明标签1.标题 ＝ 到文本 (取整 (FTP上传对象.取已上传长 () ÷ 上传文件的大小 × 100)) ＋ “%”