spcomm接收串口数据的问题?

Question

我按照下面这段代码接收串口数据,但不知道为什么不能解发串口的receive事件?
var
  canSend : boolean;procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var
  receiveStr : string;
begin
  SetLength (receiveStr,bufferLength);
  Move (buffer^,PChar (receiveStr)^,bufferLength);
  if Pos ('!',receiveSt) > 0 then
    canSend := true;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  sendSend := true;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if canSend then
  begin
    comm1.WriteCommData(...);
    canSend := false;
  end;
end;

Answer 1

程序没有问题，可以把SPCOMM的串口号，波特率，数据位，停止位，校验，控制方式，都查一下，线接对了没有，在计算机端为3发2收。