再补充新的发现:
procedure openem(commname,m):integer;
begin
myclass.startcomm(commname);
sleep(1000);
sbuf[1]:=byte($0); //帧头
for j:=2 to 10 do
sbuf[j]:=byte($30); //命令号
i:=strtoint('$'+inttostr(10+m));
sbuf[11]:=byte(i); //帧尾
myclass.send;
case rbuf[1] of
49: openem:=1;
48:
begin
myclass.stopcomm(commname);
openem:=-1;
end;
else openem:=0 ;
end;
end;
跟踪得出myclass.send;语句后并未直接进入RecieveData事件,而是继续下面的case判断,openem()过程结束后再进入RecieveData事件
我该怎么办?