串口收不到数据

Question

用cport方式
Comm1 : TComPort;
state : emunState;
//////////////////
Comm1 := TComPort.Create(qOwner);
Comm1.BaudRate := br9600;
Comm1.OnRxBuf := Com1ReceiveData;
Comm1.Port := hp;
Comm1.Open;
state := psREADY;
//////////////////////
procedure Cprinter.Com1ReceiveData(Sender: TObject; const Buffer; Count: Integer);
type
    TBytes = Array[0..256 - 1] of byte;                   //检测端口有没有收到数据
var
    i : integer;
begin
        if DonotCheck then exit;
        for i := 0 to Count-1 do
        begin
            if TBytes(buffer)[i] = $88 then
            begin
                break;
            end
            else
            begin
                //做其他的事情
            end;
         end;
end;
现在硬件是正常的
然后无论是串口有没有连接它都没有收到任何的数据
是什么原因呢
高手们请指点一下小弟的哦

Answer 1

建议在if DonotCheck then exit;这一行上设置断点，看程序会不会在这一行上停下来。
如果会，说明发生了串口的数据到达事件，串口接收数据没问题。