请给一个串口通讯的例子，另如何调试串口通信程序， 在线等...(100分)

如题

如果你有两个串口,可以一个用来发,一个用来收
如果你有两台电脑,可以用串口线连起来,一台发,一台收
如果用MScomm
//·¢ËÍ
var
buffer_send:Variant;
begin
buffer_send:=VarArrayCreate([0,4], varbyte);
buffer_send[0]:=78;
buffer_send[1]:=56;
buffer_send[2]:=34;
buffer_send[3]:=12;
buffer_send[4]:=4;
mscomm1.output:=buffer_send;
end;



//½ÓÊÜ,Ê×ÏÈÊôÐÔInputModeÉèÖóÉcomInputModebinary.

procedure TForm1.MSComm1Comm(Sender: TObject);

var
buffer_receive:Variant;
b:array of byte;
i:integer;
begin
buffer_receive:=mscomm1.input;
setlength(b,MSComm1.InBufferCount);
for i:=low(b) to high(b) do b:=buffer_receive;
end;

用SPCOMM也很好用，还省得在发布时还要发布MSCOMM的OCX控件

如何读取我写到串口缓冲区的数据呢？

在另一端的ONRECIEVE事件中读呀（事件名记不清了）

但我想将数据写到断口的缓冲区中，然后检测该断口是否写入了数据，请问如何检测，小弟初学，请勿烦

不用检测呀！一般只要发送出去了，发送缓冲区就应该空了

谢谢蒋劲刚的热心回答，不知有否用过 Comport 控件，能否给发个例子，或不用三方控件的例子，先行谢过。

多人接受答案了。