:3.226KB : :1 :2020-07-25 18:30:17
.如果 (到文本 (取字节集左边 (服务器1.取回数据 (), 4)) = “完毕”)
标签1.标题 = “接收完毕,请保存”
类型 = 分割文本 (到文本 (服务器1.取回数据 ()), “:”, )
通用对话框1.过滤器 = 类型 [2]
按钮1.禁止 = 假
.否则
.如果真 (x ≥ 1)
标签1.标题 = “接收中请稍等。。。。”
数据 [x] = 服务器1.取回数据 ()
文件 = 文件 + 数据 [x]
调试输出 (取字节集长度 (文件))
x = 0
.如果真 (客户1.连接 (“127.0.0.1”, 19730) = 真)
传输 [1] = 取字节集左边 (文件, 10000) ' 单条数据封顶50000,一次性传输太卡,分开传输'文件传输软件支持图片、EXE、压缩文件等。
客户1.发送数据 (传输 [1])
.计次循环首 (取字节集长度 (文件) ÷ 10000, x)
调试输出 (x)
延迟 (10)
传输 [x + 1] = 取字节集中间 (文件, 10000 × x + 1, 10000)
客户1.发送数据 (传输 [x + 1])
传输进度.宽度 = 四舍五入 (x ÷ 到整数 (取字节集长度 (文件) ÷ 10000) × 100, )
.计次循环尾 ()
剩余 = 取字节集右边 (文件, 取字节集长度 (文件) % 10000)
延迟 (100)
类型 = 分割文本 (通用对话框1.文件名, “.”, )
客户1.发送数据 (“完毕:” + 类型 [2])
传输进度.宽度 = 0
x = 0
11-21简易文本、文件传输工具C#版
09-20局域网文件传输工具 输入接收速度很快