易语言解决服务器与客户端组件粘包的方法

.版本 2
.支持库 spec
.支持库 sock

.程序集 窗口程序集_启动窗口

.子程序 _按钮2_被单击

客户1.发送数据 (取重复字节集 (10000, 到字节集 (“1”)) ＋ 到字节集 (“分隔符”))
客户1.发送数据 (取重复字节集 (20000, 到字节集 (“2”)) ＋ 到字节集 (“分隔符”))
客户1.发送数据 (取重复字节集 (30000, 到字节集 (“3”)) ＋ 到字节集 (“分隔符”))
客户1.发送数据 (取重复字节集 (40000, 到字节集 (“4”)) ＋ 到字节集 (“分隔符”))
客户1.发送数据 (取重复字节集 (50000, 到字节集 (“5”)) ＋ 到字节集 (“分隔符”))
客户1.发送数据 (取重复字节集 (60000, 到字节集 (“6”)) ＋ 到字节集 (“分隔符”))
客户1.发送数据 (取重复字节集 (70000, 到字节集 (“7”)) ＋ 到字节集 (“分隔符”))
客户1.发送数据 (取重复字节集 (80000, 到字节集 (“8”)) ＋ 到字节集 (“分隔符”))
客户1.发送数据 (取重复字节集 (90000, 到字节集 (“9”)) ＋ 到字节集 (“分隔符”))
客户1.发送数据 (取重复字节集 (100000, 到字节集 (“0”)) ＋ 到字节集 (“结尾符”))

.子程序 _服务器1_数据到达
.局部变量 取回数据, 字节集
.局部变量 数据数组, 文本型, , "0"
.局部变量 次数, 整数型
.局部变量 临时数据, 字节集, 静态
.局部变量 得到的封包, 文本型

取回数据 ＝ 服务器1.取回数据 ()
.判断开始 (取字节集右边 (取回数据, 6) ≠ 到字节集 (“结尾符”))  ' 6为结尾符的长度；这里检测封包是否全部发送完毕，如果没有发送完毕就会把发送来的封包数据进行累加
    临时数据 ＝ 临时数据 ＋ 取回数据
.默认
    临时数据 ＝ 临时数据 ＋ 取回数据  ' 检测到结尾符出现，说明数据已经发送完毕，这里把最后发送来的带有结尾符的数据加上就OK了。
    临时数据 ＝ 子字节集替换 (临时数据, 到字节集 (“结尾符”), , 取字节集长度 (临时数据) － 6, 6)  ' 6为结尾符的长度；这里把结尾符替换尾空，剩余数据尾完整的纯净数据。
    数据数组 ＝ 分割文本 (到文本 (临时数据), “分隔符”, )  ' 这里把收到的数据进行分割处理，无论服务器发送了多少次，都统一按分隔符分割
    调试输出 (“封包数量：” ＋ 到文本 (取数组成员数 (数据数组)))
    .计次循环首 (取数组成员数 (数据数组), 次数)
        得到的封包 ＝ 数据数组 [次数]  ' 这里得到分割后的封包文本。
        调试输出 (“第” ＋ 到文本 (次数) ＋ “个封包的大小：” ＋ 到文本 (取文本长度 (得到的封包)))  ' 这里的大小和上面发送封包的大小相同，可以看到封包的分割次数。
    .计次循环尾 ()
    临时数据 ＝ {  }
.判断结束


.子程序 __启动窗口_创建完毕

客户1.连接 (取本机名 (), 8888)

@lu_2014