一个关于ApdComPort的奇怪问题

iwillgo2 2003-10-09 03:38:59

用ApdComPort发送接收数据，有两种处理方式，一是我自己等待接收，二是通过Trigger事件接收处理，同一个程序里我两种情况都使用了，不知道是否有限制Trigger事件触发的属性，我是通过标志来判断是否处理Trigger事件。
同样一个函数，执行所用的时间相差很大，单独执行用0.05秒时间，但放在下面Trigger事件理执行用3-4秒的时间，为什么相差那么多？下面把函数，和Trigger事件列出来：
函数体：
function TF_Watch.LawLess(StrAddr:String):Boolean;
var
SendBuf1:array[0..0] of byte;
SendBuf2:array[0..2] of byte;
RecBuf:array of Byte;
Timer1:TTime;
IntI:Integer;
begin
Result:=False;
SendBuf1[0]:=StrToInt(StrAddr);
ComPort1.PutBlock(SendBuf1,length(SendBuf1));

Timer1:=Time;
Repeat
Application.ProcessMessages;
until ((Time-Timer1) * 86400 >=10) Or (ComPort1.InBuffUsed>=2);
if ComPort1.InBuffUsed=0 then Exit;
try
SetLength(RecBuf,ComPort1.InBuffUsed);
for IntI:=0 to ComPort1.InBuffUsed-1 do
begin
RecBuf[IntI]:=ord(ComPort1.GetChar);
end;

except
end;
end;

Trigger事件：
APW_TRIGGERAVAIL :
begin
try
if BoolFlag<>True then Exit;//判断是否处理（因为有部分函数的数据有我自己等待处理，不在事件里处理）
if Data<10 then//等待接收完数据
begin
StrCommand:='S';
Exit;
end;
SetLength(RecBuf,Data);
for IntI:=0 to Data-1 do
begin
RecBuf[IntI]:=ord(ComPort1.GetChar);
end;
//...其它操作
BoolFlag:=False;
a:=Time;
LawLess('18');
Caption:=FloatToStr((Time-a)*86400);
end;

Button3Click：
begin
BoolFlag:=False;
a:=Time;
LawLess('18');
Caption:=FloatToStr((Time-a)*86400);//时间显示0.05秒
end;

...全文