header = 整数到单字节集 (位或 (选择 (frame.fin, 128, 位或 (0, 左移 (frame.rsv, 4))), frame.opcode)) ' 封包数据第一字节
header = header + { 1, 0, 0 } + 整数到单字节集 (frame.length) + { 1, 0, 0 }
调试输出 (header)
.判断开始 (frame.length ≤ 125) ' 封包数据第二字节
header = header + 整数到单字节集 (位或 (128, frame.length))
.默认
.判断开始 (frame.length > 125 且 frame.length < 65536) ' 数据长度设为短整数型
header = header + 整数到单字节集 (位或 (128, 126))
header = header + 到字节集 (到短整数 (frame.length))
.默认
.判断开始 (frame.length > 65536 且 frame.length < 4294967296) ' 数据长度设为整数型
header = header + 整数到单字节集 (位或 (128, 127))
header = header + 到字节集 (0)
header = header + 到字节集 (frame.length)
.默认
调试输出 (“Send frame size too large”) ' 发送的数据太大了