TCP粘包传输丢包处理示例

分包长度 ＝ 取字节集数据 (取字节集左边 (包数据, 4), #整数型, )
包长 ＝ 取字节集长度 (包数据)
.如果 (包长 ＝ 分包长度)
调试输出 (包数据, 到文本 (包数据))
分包长度数据 ＝ 取字节集中间 (包数据, p, 4)
分包长度 ＝ 取字节集数据 (分包长度数据, #整数型, )
分包数据 ＝ 取字节集中间 (包数据, p ＋ 4, 分包长度)
str ＝ 到文本 (分包数据)
.否则
p ＝ 1
.判断循环首 (p ≤ 包长)
分包长度数据 ＝ 取字节集中间 (包数据, p, 4)
分包长度 ＝ 取字节集数据 (分包长度数据, #整数型, )
.如果 (分包长度 ＞ 0)
分包数据 ＝ 取字节集中间 (包数据, p ＋ 4, 分包长度)
p ＝ p ＋ 分包长度 ＋ 4
str ＝ 到文本 (分包数据)
.否则
分包长度数据 ＝ 取字节集中间 (包数据, p ＋ 4, 8)
分包长度 ＝ 取字节集数据 (分包长度数据, #整数型, )
分包数据 ＝ 取字节集中间 (包数据, p ＋ 8, 分包长度)
p ＝ p ＋ 分包长度 ＋ 8
str ＝ 到文本 (分包数据)
调试输出 (str)
暂停 ()
.如果结束

.判断循环尾 ()
易语言TCP粘包传输丢包处理示例例子。