本人有一个数据包结构
type TStControlProxyNew = packed record
StartCode : array[0..5] of Char;
MessageType: Word;
SubType : Word;
MsgID : Word;
MsgDataNum : Word;
ByData : array[0..MAX_CONTROL_DATA_PROXY_SIZE - 1] of Char;
EndCode : array[0..5] of Char;
end;
在这个回调函数中解析数据包
function TForm1.SaveToDB(const AServerInfo: TServerInfo;
const Msg: TStControlProxyNew): Boolean;//解释Msg,再把解析后的结果写入数据库
begin
LbLog.Items.Add(Format('WSN设备的状态%d',[Msg.ByData[0]]));
Result := False;
end;
跟踪到Msg.ByData(#3,#0,L,#0,#0,#0,#0..........)实际应该得到03,0L。
遇到的困难是数据显示不出来,求教如何解析
type TStControlProxyNew = packed record
StartCode : array[0..5] of Char;
MessageType: Word;
SubType : Word;
MsgID : Word;
MsgDataNum : Word;
ByData : array[0..MAX_CONTROL_DATA_PROXY_SIZE - 1] of Char;
EndCode : array[0..5] of Char;
end;
在这个回调函数中解析数据包
function TForm1.SaveToDB(const AServerInfo: TServerInfo;
const Msg: TStControlProxyNew): Boolean;//解释Msg,再把解析后的结果写入数据库
begin
LbLog.Items.Add(Format('WSN设备的状态%d',[Msg.ByData[0]]));
Result := False;
end;
跟踪到Msg.ByData(#3,#0,L,#0,#0,#0,#0..........)实际应该得到03,0L。
遇到的困难是数据显示不出来,求教如何解析
解决方案 »
- Delphi 关于TCriticalSection类,求证这句话是否正确?
- 如何把在dbgrideh中修改的记录保存到另一个表中?
- 请问通过TServerSocket和TClientSocket能实现两个客户端之间的文件传输吗?
- tnt unicode 控件 tntstrings 的问题
- 在Image中绘制曲线的问题?(给菜鸟一点建议吧,各位!)
- 求建议:“工作半年了,觉得用本科生的身份混下去,前途不会太好,打算考研!”顺便散分。
- 我的控件为什么设计的时候都好的,可运行时候却不灵了。
- 高分求救!!
- 如何得到本地及网络(局域网)中所有SQL Server的名称????????????????????
- 为什么总是提示数值溢出啊~~
- onclick写一事件
- Excel导数据到SQL问题
比如 case msg.bydata[i] of
#3: str:= str + '3';