HP-Socket TCP 粘包 处理例子

a657938016

如题看了半天的hp中文支持库，没整明白该咋处理，请论坛大佬们给个例子.
hp-tcp pull模型例子，感谢

气质征服一切

TestEcho-PackClient.e (395.26 KB, 下载次数: 141)

2022-4-6 15:12 上传

点击文件名下载附件    客户Duan
TestEcho-PackServer.e (611.92 KB, 下载次数: 112)

2022-4-6 15:12 上传

点击文件名下载附件 服务端

sinewtec

PACK模式 自动处理！

鹏书

其实就是加一个包头。一般模块也有给你处理了这个问题，没处理就自己加一个包头了

冬夏

用Pack模型即可，区别不大的

阿杰大大

除了pack模型以外,要处理粘分问题要自己写代码处理,其实处理的话也是在数据上带有标识,也是要做pack模型做的事情,所以不如直接用pack模型.

有妖气

去了解下通讯协yi的格式，报文报头报尾的处理

骑着王八追兔子1

  

子程序名	返回值类型	公开	备 注
粘包处理
参数名	类 型	参考	可空	数组	备 注
客户端句柄	整数型
连接ID	整数型
缓冲区指针	整数型
回调子程序	整数型

变量名	类 型	静态	数组	备 注
pData	字节集
包数据长度	整数型
原始长度	整数型
包数据指针	整数型

判断循环首 (真)
如果真 (_取出数据 (缓冲区指针, 4, pData) ≠ 1)  ' 取出数据长度
跳出循环 ()  ' 数据不足

判断 (取字节集左边 (pData, 1) ＝ { 0 })  ' 判断字节序大小端
包数据长度 ＝ SYS_SwapEndian32 (_HP_GetDword (取变量数据地址 (pData), 0))
包数据长度 ＝ _HP_GetDword (取变量数据地址 (pData), 0)

原始长度 ＝ 包数据长度 ＋ 4
如果真 (原始长度 ＜ 0)  ' 可能是不规范的协议
跳出循环 ()

如果真 (_取出数据 (缓冲区指针, 原始长度, pData, 真) ≠ 1)
跳出循环 ()

包数据指针 ＝ 取变量数据地址 (pData) ＋ 4  ' 去掉数据长度
如果真 (包数据指针 ＝ 4)  ' 未知异常
跳出循环 ()

__调用子程序 (回调子程序, 客户端句柄, 连接ID, 包数据指针, 包数据长度)
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_取出数据	整数型		成功返回1 失败返回0
参数名	类 型	参考	可空	数组	备 注
缓冲区指针	整数型
取出的数据长度	整数型
取出的数据	字节集
移除数据	逻辑型				从缓冲区移除被取出的数据

变量名	类 型	静态	数组	备 注
局_缓冲区	IBufferPtr
局_剩余的数据长度	整数型
局_剩余的数据	字节集

局_缓冲区.Attach (缓冲区指针)
如果真 (局_缓冲区.Size () ＜ 取出的数据长度)
返回 (0)
局_剩余的数据长度 ＝ 局_缓冲区.Size () － 取出的数据长度
取出的数据 ＝ 指针到字节集 (局_缓冲区.Get (), 取出的数据长度)
如果真 (移除数据)
局_剩余的数据 ＝ 指针到字节集 (局_缓冲区.Get (取出的数据长度), 局_剩余的数据长度)
局_缓冲区.Free ()
如果真 (局_剩余的数据长度 ＞ 0)
局_缓冲区.Cat (局_剩余的数据)

返回 (1)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 粘包处理, , 公开<br /> .参数 客户端句柄, 整数型<br /> .参数 连接ID, 整数型<br /> .参数 缓冲区指针, 整数型<br /> .参数 回调子程序, 整数型<br /> .局部变量 pData, 字节集<br /> .局部变量 包数据长度, 整数型<br /> .局部变量 原始长度, 整数型<br /> .局部变量 包数据指针, 整数型<br /> <br /> .判断循环首 (真)<br />     .如果真 (_取出数据 (缓冲区指针, 4, pData) ≠ 1)  ' 取出数据长度<br />         跳出循环 ()  ' 数据不足<br />     .如果真结束<br /> <br />     .判断开始 (取字节集左边 (pData, 1) ＝ { 0 })  ' 判断字节序大小端<br />         包数据长度 ＝ SYS_SwapEndian32 (_HP_GetDword (取变量数据地址 (pData), 0))<br />     .默认<br />         包数据长度 ＝ _HP_GetDword (取变量数据地址 (pData), 0)<br />     .判断结束<br /> <br />     原始长度 ＝ 包数据长度 ＋ 4<br />     .如果真 (原始长度 ＜ 0)  ' 可能是不规范的协议<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     .如果真 (_取出数据 (缓冲区指针, 原始长度, pData, 真) ≠ 1)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     包数据指针 ＝ 取变量数据地址 (pData) ＋ 4  ' 去掉数据长度<br />     .如果真 (包数据指针 ＝ 4)  ' 未知异常<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     __调用子程序 (回调子程序, 客户端句柄, 连接ID, 包数据指针, 包数据长度)<br /> .判断循环尾 ()<br /> <br /> .子程序 _取出数据, 整数型, 公开, 成功返回1 失败返回0<br /> .参数 缓冲区指针, 整数型<br /> .参数 取出的数据长度, 整数型<br /> .参数 取出的数据, 字节集, 参考<br /> .参数 移除数据, 逻辑型, 可空, 从缓冲区移除被取出的数据<br /> .局部变量 局_缓冲区, IBufferPtr<br /> .局部变量 局_剩余的数据长度, 整数型<br /> .局部变量 局_剩余的数据, 字节集<br /> <br /> 局_缓冲区.Attach (缓冲区指针)<br /> .如果真 (局_缓冲区.Size () ＜ 取出的数据长度)<br />     返回 (0)<br /> .如果真结束<br /> 局_剩余的数据长度 ＝ 局_缓冲区.Size () － 取出的数据长度<br /> 取出的数据 ＝ 指针到字节集 (局_缓冲区.Get (), 取出的数据长度)<br /> .如果真 (移除数据)<br />     局_剩余的数据 ＝ 指针到字节集 (局_缓冲区.Get (取出的数据长度), 局_剩余的数据长度)<br />     局_缓冲区.Free ()<br />     .如果真 (局_剩余的数据长度 ＞ 0)<br />         局_缓冲区.Cat (局_剩余的数据)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (1)

我用的push模型 pull改下那个取出数据应该可以用的

灵海雪缘

HP-Socket TCP 粘包 处理例子HP-Socket TCP 粘包 处理例子

灵海雪缘