模拟传送文件软件

-- >发送端的代码
读取_文件号 ＝ 打开文件 (编辑框1.内容, #读写, )
标签3.标题 ＝ 到文本 (取文件长度 (读取_文件号))
传输大小_ ＝ 20480 × 1 ' 20480B = 20KB 每次传送大小
' -- >接收端的代码
保存_文件号 ＝ 打开文件 (编辑框2.内容, #改写, )
.如果真 (保存_文件号 ＝ 0) ' 文件不存在
保存_文件号 ＝ 打开文件 (编辑框2.内容, #重写, )
.如果真结束
读写位置_ ＝ 取文件长度 (保存_文件号) ' 即将要读取文件数据地址
.循环判断首 ()
数据 ＝ 发送文件数据 (读取_文件号, 读写位置_, 传输大小_, 选择框_使用压缩.选中, 使用压缩) ' -- >发送端的代码
读写位置_ ＝ 接收文件数据 (保存_文件号, 数据, 使用压缩) ' -- >接收端的代码
处理事件 ()
.循环判断尾 (数据 ≠ { })