TCP粘包处理

解决TCP传输数据丢包/粘包的处理示例，TCP粘包处理例子。

.如果 (客户1.连接 (“127.0.0.1”, 19730))
l ＝ 到数值 (编辑框1.内容)
c ＝ 到数值 (编辑框2.内容)
bin ＝ 到字节集 (“开始传输数据,附加信息:你好！”)
bin ＝ { 255, 255, 255, 255 } ＋ 到字节集 (取字节集长度 (bin)) ＋ bin
客户1.发送数据 (bin)
.计次循环首 (c, i)
序号字节集 ＝ 到字节集 (到文本 (i))
len ＝ (l × 2 － 取字节集长度 (序号字节集)) ÷ 2
str ＝ 文本_取随机汉字 (len, )
bin ＝ 到字节集 (str) ＋ 序号字节集
bin ＝ 到字节集 (取字节集长度 (bin)) ＋ bin
客户1.发送数据 (bin)
延迟 (1)
.计次循环尾 ()
bin ＝ 到字节集 (“结束传输数据,附加信息:拜拜！”)
bin ＝ { 254, 255, 255, 255 } ＋ 到字节集 (取字节集长度 (bin)) ＋ bin
客户1.发送数据 (bin)
客户1.断开连接 ()
调试输出 (“发送完毕”)
.否则
调试输出 (“连接失败”)