粘包分包修复代码

王之能够21wz

无实际宣传意义，纯手搓项目，重复访问频繁将限制使用软件Qea

  

客户1.发送数据 (到字节集 (取字节集长度 (内容)) ＋ 内容)

客户1.发送数据 (到字节集 (取字节集长度 (内容)) ＋ 内容)

  

子程序名	返回值类型	公开	备 注
_服务器1_数据到达

变量名	类 型	静态	数组	备 注
内容	字节集
长度	整数型
内容1	字节集
次数

内容 ＝ 内容 ＋ 服务器1.取回数据 ()
判断循环首 (取字节集长度 (内容) ＞ 0)
长度 ＝ 取字节集数据 (内容, #整数型, )
如果真 (取字节集长度 (内容) ≥ 长度 ＋ 4)
内容1 ＝ 取字节集中间 (内容, 5, 长度)
内容 ＝ 字节集替换 (内容, 1, 长度 ＋ 4, {  })
解析命令 (内容1, 服务器1.取回客户 ())
次数 ＝ 次数 ＋ 1
判断 (次数 ≥ 到整数 (编辑框_防粘包.内容))
如果 (选择框_防粘包_自动.选中)
解析命令 (内容, 服务器1.取回客户 ())
内容 ＝ 字节集替换 (内容, 1, 长度 ＋ 4, {  })
跳出循环 ()
次数 ＝ 0



判断循环尾 ()

子程序名	返回值类型	公开	备 注
解析命令
参数名	类 型	参考	可空	数组	备 注
命令	字节集
ip	文本型				传入的客户ip

.版本 2<br /> <br /> .子程序 _服务器1_数据到达<br /> .局部变量 内容, 字节集, 静态<br /> .局部变量 长度, 整数型<br /> .局部变量 内容1, 字节集<br /> .局部变量 次数, , 静态<br /> <br />     内容 ＝ 内容 ＋ 服务器1.取回数据 ()<br />     .判断循环首 (取字节集长度 (内容) ＞ 0)<br />         长度 ＝ 取字节集数据 (内容, #整数型, )<br />         .如果真 (取字节集长度 (内容) ≥ 长度 ＋ 4)<br />             内容1 ＝ 取字节集中间 (内容, 5, 长度)<br />             内容 ＝ 字节集替换 (内容, 1, 长度 ＋ 4, {  })<br />             解析命令 (内容1, 服务器1.取回客户 ())<br />         .如果真结束<br />         次数 ＝ 次数 ＋ 1<br />         .判断开始 (次数 ≥ 到整数 (编辑框_防粘包.内容))<br />             .如果 (选择框_防粘包_自动.选中)<br />                 解析命令 (内容, 服务器1.取回客户 ())<br />                 内容 ＝ 字节集替换 (内容, 1, 长度 ＋ 4, {  })<br />             .否则<br />                 跳出循环 ()<br />             .如果结束<br />             次数 ＝ 0<br />         .默认<br /> <br />         .判断结束<br /> <br />     .判断循环尾 ()<br /> <br /> .子程序 解析命令<br /> .参数 命令, 字节集<br /> .参数 ip, 文本型, 可空, 传入的客户ip

有做缓存清理的，次数最好越大越好，可以改一下改为不限，但是如果其他发送数据前不发送字节集长度的会卡住