P
pyalhm
Unregistered / Unconfirmed
GUEST, unregistred user!
下位以采样频率50Hz不停向上位机发送数据
接收数据程序如下:
procedure TFrmMain.CommCzyReceiveData(Sender: TObject;
Buffer: Pointer;
BufferLength: Word);
var
pByte:^Byte;
begin
try
pByte:= Buffer;
//调写日志函数 结果返回值设为 A
for i:= 0 to BufferLength-1do
begin
//解析数据
//调函数1
//调写日志函数 结果返回值为 B
//调函数2
//调写日志函数 结果返回值为 C
。。。。
//保存数据
end
inc(pByte);
end;
//for结束
except
on E:Exceptiondo
begin
//错误处理;
end;
end;
end;
跟踪这个事件,.CommCzyReceiveData事件运行结里如下:
1、 有时流程是A—B—C 然后再A—B—C 顺序执行
2、 有时流程是A—B—B—C
3、 有时流程是A—B—A—B
等等各种结里都有,
这究竟是怎么回事?该怎么办
接收数据程序如下:
procedure TFrmMain.CommCzyReceiveData(Sender: TObject;
Buffer: Pointer;
BufferLength: Word);
var
pByte:^Byte;
begin
try
pByte:= Buffer;
//调写日志函数 结果返回值设为 A
for i:= 0 to BufferLength-1do
begin
//解析数据
//调函数1
//调写日志函数 结果返回值为 B
//调函数2
//调写日志函数 结果返回值为 C
。。。。
//保存数据
end
inc(pByte);
end;
//for结束
except
on E:Exceptiondo
begin
//错误处理;
end;
end;
end;
跟踪这个事件,.CommCzyReceiveData事件运行结里如下:
1、 有时流程是A—B—C 然后再A—B—C 顺序执行
2、 有时流程是A—B—B—C
3、 有时流程是A—B—A—B
等等各种结里都有,
这究竟是怎么回事?该怎么办