请问用DELPHI的MSComm控件怎么编写串口的程序啊？我是菜鸟 请给个详细的例子从添加控件开始 详细些 谢谢

1、 mscomm控件安装。
Mscomm控件默认存在于delphi的ActiveX面板上，如果不存在，需要先导入该控件，步骤 ：通过菜单 component---Import Activex component 打开Import Acitvex对话框。如下图：

如果列表中找不到该Microsoft Comm Control，那么点Add按钮找到Mscomm32ocx,最后点Install即可。
2、 需要了解的属性：
需要了解的几个属性：
CommPort：设置通信端口号，用该串口与外界通信。
Setting：以字符串的形式设置数据传输速率、奇偶校验、数据比特、停止比特；
PortOpen：设置并返回通信端口的状态，用来可以打开和关闭端口；
Input：从接收缓冲区返回和删除字符；
Output：向传输缓冲区定一个字符串)
RThreshold：设置接收几个字符触发控件响应函数。
CTSHolding：该属性确定是否可通过查询CTS线的状态发送数据。CTS是调制解调器发送到相连计算机的信号，指示传输可以进行。该属性在设计时无效，在运行时为只读。
如果CTS线为低电平(CTSHolding = FALSE)并且超时时，MSComm控件设置CommEvent属性为comEventCTSTO(Clear To Send Timeout)并产生OnComm事伯。CTS线用于RTS/CTS硬件握手。如果需要确定CTS线的状态，CTSHolding属性给出一种手工查询方法。
SThreshold：设置发送缓冲区中有几个字符时候触发oncomm
InputMode:用于设置或者返回传输数据的类型。
ComInputModeText(缺省) 0 通过Input属性以文本方式取回数据
ComInputModeBinary 1 通过Input属性以二进制方式取回数据
InputLen:该属性用于设置并返回Input属性从接收缓冲区读取的字符数。
InBuffersize:设置输入缓冲区的大小，默认值为1024字节。
InBufferCount: InBufferCount属性用于返回输入缓冲区内的等待读取的字节个数，可以通过该属性值为0来清除接收缓冲区。
Output:void SetOutput(const VARIANT & newValue);
Output属性用于向发送缓冲区写数据流。注意：Output属性可以发送文本数据或二进制数据。传输文本数据时，应该将字符型 数据放入VARIANT变量中；传输二进制数据(即按字节传送)时，应将字节型数据放入VARIANT型变量中。如果通常给应用程序发送ANSI字符串，可以以文本方式发送。如果数据包含了内嵌控制字符、NULL字符等，必须将其作为二进制传递过去。
DTREnable:确定在通信时是否使用DTR线有效，DTR是计算机发送到调制解调器的信号，表明计算机在等待数据传输。
RTSEnable:确定是否使用RTS线有效。一般情况下，由计算机发送RTS信号到连接的调制解调器，请求允许发送数据。
EOFEnable:确定在输入过程中MSComm控件是否寻找文件结尾(EOF)字符。如果找到EOF字符，将停止输入并激活OnComm事件，此时CommEvent属性设置为comEvEOF，这里bNewValue为布尔表达式，确定当找到EOF字符时，OnComm事件是否被激活。当bNewValue的设置值TRUE时，EOF字符找到时OnComm事件被激活。否则当VALUE值设为FALSE(默认)时，EOF字符找到时OnComm事件不被激活。
注意：当EOFEnable属性设置为FALSE时，OnComm控件将不在输入流中寻找EOF字符。
CDHolding:通过查询CD线的状态确定当前是否有传输。CD是从调制解调器发送到相连计算机的一个信号，指示调制解调器正在联机。该属性在设计时无效，在运行时为只读。属性的设置值为：当bNewValue为TRUE时，CD线为高电平；当bNewValue为FALSE时，CD线为低电平。注意当CD线为高电平(CDHolding=TRUE)且超时时，MSComm控件设置CommEvent属性为comEventCDTO(CD超时错误)，并产生OnComm事件。
注意：在主机应用程序中捕获一个丢失的传输是特别重要的，例如一个公告板，因为呼叫者可以随时挂起(放弃传输)。CD也被称为Receive Line Signal Detect(RLSD)。
DSRHolding:确定DSR线的状态。DSR信号由调制解调器发送到相连计算机，指示作好 *** 作准备。该属性在设计时无效，在运行时为只读。DSRHolding属性返回为TRUE时，表示DSR线高，返回FALSE时，表示DSR线低。当DSR线为高电平时(DSRHolding=TRUE)超时时，MSComm控件设置CommEvent属性为comEventDSRTO(数据准备超时)并产生OnComm事件。当为DTE(Data Terminal Equipment)机器写DSR/DTR握手例程时该属性是分有用的。
3、 控件安装后，在AcitveX面板上可以看到一个电话机样式的图标，把它拖到delphi工程窗体上设置属性后就可以使用了
打开串口： mscomm1portopen:=true;
关闭串口： mscomm1portopen:=false;
处理接收的数据，在oncomm事件中，下面给出点提示例子（只是一个函数，缺乏桩函数不能运行，只是用来说明使用）
procedure TF_ComMSCommComm(Sender: TObject);
var
i,j,itemp:integer;
pcurDeviceSer:pdevicepro;
begin
if mscommCommEvent = 2 then
begin
inBuf:=F_ComMSCommInput;
for i:=0 to vararrayhighbound(inBuf,1) do
begin
if m_sourceLen > 500 then
m_sourceLen := 0;
m_pSourceBuf[m_sourceLen]:=inBuf[i];
m_sourceLen:=m_sourceLen+1;
end;
if(CommDataAnalysis()) then //如果分帧成功
begin
m_ReSendTimes := 0; //重发次数为0
for j:=0 to m_nRecDataLength-1 do
showstr:=showstr + inttohex(inBuf[j],2)+' '; // _GetByte(inBuf[i]);
if not bPauseFlag then
showframe(showstr,true)
else
begin
if length(showstr)>5000 then
showstr:='';
end;
pcurDeviceSer:=nil;
if(m_nRecDataLength = 5) then//固定帧处理
begin
for itemp:=0 to numberofdec do // numberofdec//装置个数 ,遍历,查找需要的装置
begin
if BDeviceSer[itemp]addr=RecBuf[2] then
begin
pcurDeviceSer:=@BDeviceSer[itemp]; //指针指向被召唤的装置的结构体
break;
end;
end;
if pcurDeviceSer=nil then //所召唤的装置不存在
else
FrameFix(pcurDeviceSer);
end
else //可变帧处理
begin
for itemp:=0 to numberofdec do // numberofdec//装置个数 ,遍历,查找需要的装置
begin
if BDeviceSer[itemp]addr=RecBuf[4] then
begin
pcurDeviceSer:=@BDeviceSer[itemp];
break;
end;
end;
if pcurDeviceSer=nil then //所召唤的装置不存在
else
FrameUnFix(pcurDeviceSer);
end;
end;
end;
// end;
end;
发送串口数据：
procedure SendComData();
var
i,j:integer;
begin // Main_FormdqcConvertStr2Hex(tempstr,SendBuf,m_nSendDataLength);
if (SendBuf[0]=$10) then
m_nSendDataLength:=5
else
m_nSendDataLength:=((SendBuf[1] and $ff)+6); //+号比&(按位与运算符)优先级高
outBuf := VarArrayCreate([0,m_nSendDataLength-1], varByte);
for i:=0 to m_nSendDataLength-1 do
outBuf[i]:=SendBuf[i];
F_ComMSCommOutput:=outBuf;
上面的例子只是为了说明使用方法，并不可运行。

试试一个叫单片机小精灵v12的工具吧，可以帮你生成指定波特率的代码。
这段代码是用软件生成的，51代码，12T，9600波特率。
主程序部分在大循环之前别忘了初始化串口和定时器(InitUART()已经初始化好了)，当你的串口每接收到一个字节，就会产生一个串行中断，就会执行UARTInterrupt(void) interrupt 4里面的代码，做好数据接收处理就行。
#include <reg51h>
void InitUART(void)
{
TMOD = 0x20;
SCON = 0x50;
TH1 = 0xFD;
TL1 = TH1;
PCON = 0x00;
EA = 1;
ES = 1;
TR1 = 1;
}
void main(void)
{
InitUART();
while(1);
}
void UARTInterrupt(void) interrupt 4
{
if(RI)
{
RI = 0;
//add your code here!
}
else
TI = 0;
}
void SendOneByte(unsigned char c)
{
SBUF = c;
while(!TI);
TI = 0;
}

---