29 lines
1011 B
VB.net
29 lines
1011 B
VB.net
Public Class NT_CAM
|
|
'包头
|
|
Public Shared HeadData As Byte() = {&H55, &HAA}
|
|
'协议版本
|
|
Public Shared protocolVersion As Byte = &H1
|
|
|
|
'数据组包
|
|
Public Shared Function PackData(cmd As Byte, parbyf As Byte()) As Byte()
|
|
Dim li As List(Of Byte) = New List(Of Byte)()
|
|
li.AddRange(HeadData) '2
|
|
li.Add(protocolVersion) '1
|
|
li.Add(cmd) '1
|
|
li.AddRange(SharedFunction.IntToByteLB(parbyf.Length)) '2
|
|
li.AddRange(parbyf)
|
|
li.Add(SharedFunction.GetCheckSumMod2(li.ToArray))
|
|
Return li.ToArray
|
|
End Function
|
|
|
|
'判断数据是否合法
|
|
Public Shared Function IsDataValid(data As Byte()) As Boolean
|
|
If data.Length < 7 Then Return False '数据长度小于7
|
|
If data(0) <> HeadData(0) OrElse data(1) <> HeadData(1) Then Return False '包头不正确
|
|
If data(data.Length - 1) <> SharedFunction.GetCheckSumMod(data) Then Return False '校验和不正确
|
|
Return True
|
|
End Function
|
|
|
|
|
|
End Class
|