急:spcomm与TADOQuery

[symsss]

我用SPCOMM做了一个串口应用程序,在SPCOMM的recievedata事件中一打开TADOQuery就报'未指定的错误',代码如下
procedure TFmTest.CommRecieveReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
strSql:string;
begin
if (not DMMain.QIDReturn.Active) then
begin
strSql:='SELECT a.* FROM T_QC_IDReturn a '+
'INNER JOIN T_QC_Device b ON a.F_Device=b.F_SN '+
'WHERE b.F_Dept='''+DeviceConfigInfo.Hospital+'''';
execQuery(DMMain.ConnMain,DMMain.QIDReturn,strSql);
end;
end;
以上代码放在按钮的click事件中就没任何问题
如有知道的朋友,还请帮忙,非常感谢

[无条件为你]

代码放在这里理论上是没问题的。但实际你这段代码中未用到 Buffer 变量，所以不明白你放进这个事件是何用意。你这段代码的问题在于硬件返回任何数据都会执行SQL命令，这是严重不合理的。你说放在按扭里没有问题，那是因为你的按扭你一般只单击一次，如果你在一秒内连续单击按扭三次以上，照样会报你这样的错误。

一句话：问题出在SQL命令尚未执行完毕后又被再次执行。

此事件一般根据 Buffer 变量做出不同响应，但实现代码一般写到过程或函数里，而不是直接写到CommRecieveReceiveData事件。

另外就是spcomm要禁用流控制。由于串口通讯不像网络通讯那么多异常，所以我对spcomm非常熟悉。

[bdmh]

听 mwy654321 的 ，把操作数据库的代码拿出去，你应该做一个线程，把接收到的buffer放入内存列表，线程中循环列表写入数据库

[kaikai_kk]

ReceiveData你可看做是一个线程，有数据就启动了
比如第1个数据来了，开始执行代码，但未结束；
第2个数据又来了，又触发了事件
但not DMMain.QIDReturn.Active条件还是成立的，所以又执行代码，肯定就会出错了

把他分离出来，或者改1下条件

[我看见佛]

[Quote=引用 3 楼 kaikai_kk 的回复:]
ReceiveData你可看做是一个线程，有数据就启动了
比如第1个数据来了，开始执行代码，但未结束；
第2个数据又来了，又触发了事件
但not DMMain.QIDReturn.Active条件还是成立的，所以又执行代码，肯定就会出错了

把他分离出来，或者改1下条件
[/Quote]++!!