局域网文件传输软件带进度条数据传送

.如果 (取字节集左边 (数据, 3) ＝ 头 且 取字节集中间 (数据, 8, 3) ＝ 头)
文件大小 ＝ 取字节集数据 (取字节集中间 (数据, 4, 4), #整数型)
编辑框1.内容 ＝ 到文本 (取字节集数据 (取字节集中间 (数据, 4, 4), #整数型))
文件名长 ＝ 取字节集数据 (取字节集中间 (数据, 11, 4), #整数型)
文件名 ＝ 取字节集数据 (取字节集中间 (数据, 11 ＋ 4 ＋ 3, 文件名长), #文本型)
通用对话框1.文件名 ＝ 文件名
通用对话框1.打开 ()
文件号 ＝ 打开文件 (通用对话框1.文件名, #重写, )
写出字节集 (文件号, 取字节集右边 (数据, 取字节集长度 (数据) － 3 － 4 － 3 － 4 － 3 － 文件名长 － 3))
' 临时字节 ＝ 临时字节 ＋ 取字节集右边 (数据, 取字节集长度 (数据) － 3 － 4 － 3 － 4 － 3 － 文件名长 － 3)
编辑框3.内容 ＝ 文件名
客户1.发送数据 (头)
输出调试文本 (到文本 (取读写位置 (文件号)))
时钟1.时钟周期 ＝ 100
.否则
.如果 (取字节集左边 (数据, 3) ＝ 头 且 取字节集中间 (数据, 8, 3) ≠ 头)
.如果 (取字节集长度 (临时字节) ＜ 到数值 (编辑框1.内容))
写出字节集 (文件号, 取字节集右边 (数据, 取字节集长度 (数据) － 3))
' 临时字节 ＝ 临时字节 ＋ 取字节集右边 (数据, 取字节集长度 (数据) － 3)
客户1.发送数据 (头)
输出调试文本 (到文本 (取读写位置 (文件号)))