串口!急急急!(100分)

偶编了一个串口接受的程序,用的是spcomm控件,
但是
在电脑一上:显示error opening port!
在电脑二上:无显示(就是打开串口没有出错),但是不响应onreceievedata,
真是把偶搞死了!
那位大虾救偶!
3x3x3x!

对电脑一：检查一下是否开着一些病毒防火墙之类的东东，
如瑞星等，若有，关之即可。
对电脑二：如果程序没问题的话，看一下线是否插紧了，
而且要查一下用来连接的串口线是否对，若是自己接的线，
要注意数据发送端和接受端的对应关系是否正确。

都没有这方面的问题,就是不能收到数据!下面有一个程序,能不能帮忙看一下!
接受到数据的话,会有显示吧!
var
comm1:tcomm;

procedure TForm1.FormCreate(Sender: TObject);
begin
comm1:=tcomm.Create(self);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
comm1.StartComm;
end;


procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word);
~~~~~~~~~~~~~~~~~~----OnReceievedata
begin
showmessage('hehe');
end;

end.

你可以先用超级终端试一下，看能否收到数据。
你在程序中是否设好了com口的参数，如波特率，有无校验等等？
你贴出的这些代码应该没什么问题。

接受答案了.