|
发表于 2012-8-30 10:15:00
|
显示全部楼层
河北省张家口市
包是有大小限制的,图像文件一次发不完,客户端发送数据前面加个标识,
服务端:
.版本 2
.子程序 _服务器1_数据到达
.局部变量 数据包, 字节集
.局部变量 头标识, 文本型
.局部变量 数据, 字节集
数据包 = 服务器1.取回数据 ()
头标识 = 到文本 (取字节集左边 (数据包, 4))
数据 = 取字节集右边 (数据包, 取字节集长度 (数据包) - 4)
.判断开始 (头标识 = “txzj”) ' 图像字集
总字节集 = { }
.如果 (取字节集数据 (取字节集右边 (数据, 4), #文本型, ) = “txzj”)
总字节集 = 取字节集左边 (数据, 取字节集长度 (数据) - 4)
是否有数据 = 假
画板1.底图 = 总字节集
.否则
总字节集 = 数据
是否有数据 = 真
.如果结束
.判断 (是否有数据 = 真)
.如果 (取字节集数据 (取字节集右边 (数据包, 4), #文本型, ) = “txzj”)
总字节集 = 总字节集 + 取字节集左边 (数据包, 取字节集长度 (数据包) - 4)
是否有数据 = 假
画板1.底图 = 总字节集
总字节集 = { }
.否则
总字节集 = 总字节集 + 数据包
返回 ()
.如果结束
.默认
|
|