易语言文件传输查看进度

标签2.标题 ＝ “速度：” ＋ 到文本 (到整数 (下载客户端.取下载速度 () ÷ 1024)) ＋ “KB/S”
标签1.标题 ＝ “已下载：” ＋ 到文本 (到整数 (下载客户端.取已下载长 () ÷ 1024)) ＋ “KB”
进度条1.位置 ＝ 到整数 (下载客户端.取已下载长 () ÷ 文件大小 × 100)

.如果真 (通用对话框1.文件名 ＝ “”)
服务器1.断开客户 (服务器1.取回客户 ())
返回 ()
.如果真结束
发送数据 ＝ 到字节集 (#常量1)
发送数据 ＝ 子字节集替换 (发送数据, 到字节集 (“filename2”), 到字节集 (文本_取文件名 (通用对话框1.文件名)), , 1)
发送数据 ＝ 子字节集替换 (发送数据, 到字节集 (“filesize”), 到字节集 (到文本 (取文件尺寸 (通用对话框1.文件名))), , 1)
发送数据 ＝ 子字节集替换 (发送数据, 到字节集 (“文件数据”), 到字节集 (读入文件 (通用对话框1.文件名)), , 1)
服务器1.发送数据 (客户, 发送数据, )
服务器1.断开客户 (客户)