转载：https://blog.csdn.net/dongyue786/article/details/8177047
MSComm 控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能。MSComm控件在串口编程时非常方便，程序员不必去花时间去了解较为复杂的API函数，而且在VC、VB、Delphi等语言中均可使用。 Microsoft Communications Control（以下简称MSComm）是Microsoft公司提供的简化Windows下串行通信编程的ActiveX控件，它为应用程序提供了通过串行接口收发数据的简便方法。具体的来说，它提供了两种处理通信问题的方法：一是事件驱动(Event－driven)方法，一是查询法。
1.MSComm控件两种处理通讯的方式
1.1 事件驱动方式
事件驱动通讯是处理串行端口交互作用的一种非常有效的方法。在许多情况下，在事件发生时需要得到通知，例如，在串口接收缓冲区中有字符，或者 Carrier Detect (CD) 或 Request To Send (RTS) 线上一个字符到达或一个变化发生时。在这些情况下，可以利用 MSComm 控件的 OnComm 事件捕获并处理这些通讯事件。OnComm 事件还可以检查和处理通讯错误。所有通讯事件和通讯错误的列表，参阅 CommEvent 属性。在编程过程中，就可以在OnComm事件处理函数中加入自己的处理代码。这种方法的优点是程序响应及时，可靠性高。每个MSComm 控件对应着一个串行端口。如果应用程序需要访问多个串行端口，必须使用多个 MSComm 控件。
1.2 查询方式
查询方式实质上还是事件驱动，但在有些情况下，这种方式显得更为便捷。在程序的每个关键功能之后，可以通过检查 CommEvent 属性的值来查询事件和错误。如果应用程序较小，并且是自保持的，这种方法可能是更可取的。例如，如果写一个简单的电话拨号程序，则没有必要对每接收一个字符都产生事件，因为唯一等待接收的字符是调制解调器的“确定”响应。
2.MSComm控件的常用属性
MSComm1.Settings:=’9600,n,8,1’ //设置波特率 ,校验位,数据位,停止位
Settings属性: 设置串口的波特率 ,校验位,数据位,停止位, ’9600,n,8,1’表示波特率为9600,无奇偶校验,数据位为8为,1位停止位
MSComm1.InBufferSize:=1024 //接受缓冲区大小
InBufferSize 属性:接收缓冲区的大小,默认值为1024,也可以自己设定,比如, MSComm1.InBufferSize:=2000,则接收缓冲区的大小为2000字节
MSComm1.OutBufferSize:=1024 //发送缓冲区大小
OutBufferSize属性:发送缓冲区的大小,默认值为1024,也可以自己设定。
MSComm1.InBufferCount:=0 //清空接受缓冲区
InBufferCount属性:当前接收缓冲区接收到的数据的长度, count:=MSComm1.InBufferCount,则count值接收缓冲区接收到的数据的长度,对InBufferCount赋值
MSComm1.InBufferCount:=0 //可以清空接受缓冲区
MSComm1.OutBufferCount:=0 //清空发送缓冲区
OutBufferCount属性:当前发送缓冲区中数据的长度,对OutBufferCount 赋值
MSComm1. OutBufferCount:=0 //可以清空发送缓冲区
MSComm1.InputMode:=comInputModeText // 以文本方式取回数据
MSComm1.InputMode:=comInputModeBinary //设置接收数据模式为二进制形式
InputMode属性:串口接收数据的模式, comInputModeText(0)表示以文本(ASCII)方式取回数据,
comInputModeBinary(1)表示以二进制方式取回数据
comInputModeText, comInputModeBinary为预定义常量,分别表示0,1
RcvByte:=MSComm1.Input
Input属性:通过Input属性可以读取串口中接收到的数据,RcvByte:=MSComm1.Input表示读取串口接收到的数据 ,其中RcvByte的数据类型为: array of Byte 或array of Variant.
在读取之前先设置RcvByte的长度:SetLength(RcvByte,len),如果一次读取所有数据,则SetLength(RcvByte, MSComm1.InBufferCount)
MSComm1.Output:= OutputDat
Output属性:通过Output属性可以发送数据, MSComm1.Output:=OutputDat,将OutputDat中的数据发送出去,其中OutputDat数据类型array of Byte,
发送前要设置OutputDat的长度, SetLength(OutputDat,len),然后向OutputDat中填入数据,再清空发送缓冲区MSComm1.OutBufferCount:=0,然后再发送MSComm1.Output:=OutputDat
MSComm1.InputLen:=0 // 一次读取所有数据
InputLen属性:一次从Input属性中读取数据的长度, MSComm1.InputLen:=1,表示一次读取一个字节,如果MSComm1.InputLen:=0,则表示一次读取全部数据
MSComm1.SThreshold:=0 //一次发送所有数据 ,发送数据时不产生OnComm 事件
SThreshold属性:通过该属性设置产生OnComm 事件(发送时产生)的阀值,若MSComm1.SThreshold:=0, 则一次发送所有数据 ,发送数据时不产生OnComm 事件,
若MSComm1.SThreshold:=5,当发送缓冲区的字节数从5字节减少到4字节时, 产生OnComm 事件
MSComm1.RThreshold:=1 //每接收1个字节就产生一个OnComm 事件
RThreshold属性: 通过该属性设置产生OnComm 事件(接收时产生)的阀值,若MSComm1.RThreshold:=0,不产生OnComm 事件,
若MSComm1.RThreshold:=5,接收缓冲区每收到5字节时,则产生OnComm 事件
MSComm1.PortOpen:=True //打开串口
PortOpen属性:设置端口的打开与关闭,打开端口MSComm1.PortOpen:=True,
MSComm1.PortOpen:=False //关闭端口
MSComm1.CommPort:=CommPort
CommPort属性:设置端口号, MSComm1.CommPort:=1, 设置端口号为COM1
CommEvent属性: 常用的两个comEvReceive, comEvSend
3.常数
| 常数 | 值 | 描述 |
| comNone | 0 | 无握手 |
| comXonXoff | 1 | XOn/Xoff 握手 |
| comRTS | 2 | Request-to-send/clear-to-send 握手 |
| comRTSXOnXOff | 3 | Request-to-send 和 clear-to-send 握手皆可 |
| 常数 | 值 | 描述 |
| comEvSend | 1 | 发送事件 |
| comEvReceive | 2 | 接收事件 |
| comEvCTS | 3 | clear-to-send 线变化 |
| comEvDSR | 4 | data-set ready 线变化 |
| comEvCD | 5 | carrier detect 线变化 |
| comEvRing | 6 | 振铃检测 |
| comEvEOF | 7 | 文件结束 |
| 常数 | 值 | 描述 |
| comEventBreak | 1001 | 接收到中断信号 |
| comEventCTSTO | 1002 | Clear-to-send 超时 |
| comEventDSRTO | 1003 | Data-set ready 超时 |
| comEventFrame | 1004 | 帧错误 |
| comEventOverrun | 1006 | 端口超速 |
| comEventCDTO | 1007 | Carrier detect 超时 |
| comEventRxOver | 1008 | 接收缓冲区溢出 |
| comEventRxParity | 1009 | Parity 错误 |
| comEventTxFull | 1010 | 传输缓冲区满 |
| comEventDCB | 1011 | 检索端口 设备控制块 (DCB) 时的意外错误 |
| 常数 | 值 | 描述 |
| comInputModeText | 0 | （缺省）通过 Input 属性以文本方式取回数据 |
| comInputModeBinary | 1 | 通过 Input 属性以二进制方式检取回数据 |
4.属性及应用说明
CDHolding属性：通过查询 Carrier Detect (CD) 线的状态确定当前是否有传输。Carrier Detect 是从调制解调器发送到相联计算机的一个信号，指示调制解调器正在联机。
该属性在设计时无效，在运行时为只读。语法 object.CDHolding 设置值：CDHolding
属性的设置值为：
设置 描述
True Carrier Detect 线为高电平
False Carrier Detect 线为低电平
说明：注意当 Carrier Detect 线为高电平 (CDHolding = True) 且超时时，MSComm 控件设置CommEvent 属性为 comEventCDTO（Carrier Detect 超时错误），并产生 OnComm 事件。
注意 在主机应用程序中捕获一个丢失的传输是特别重要的，例如一个公告板，因为呼叫者可以随时挂起（放弃传输）。Carrier Detect 也被称为 Receive Line Signal Detect (RLSD)。
数据类型 Boolean
DSRHolding属性：确定 Data Set Ready (DSR) 线的状态。Data Set Ready 信号由调制解调器发送到相连计算机，指示作好操作准备。该属性在设计时无效，在运行时为只读。
语法：object.DSRHolding
object 所在处表示对象表达式，其值是“应用于”列表中的对象。
DSRHolding 属性返回以下值：
值 描述
True Data Set Ready 线高
False Data Set Ready 线低
说明：当 Data Set Ready 线为高电平 (DSRHolding = True) 且超时时，MSComm 控件设置 CommEvent 属性为 comEventDSRTO（数据准备超时）并产生 OnComm 事件。
当为 Data Terminal Equipment (DTE) 机器写 Data Set Ready/Data Terminal Ready 握手例程时该属性是十分有用的。数据类型：Boolean
Setting属性： 设置并返回波特率、奇偶校验、数据位、停止位参数。
语法: object.Settings[ = value]
说明：当端口打开时，如果 value 非法，则 MSComm 控件产生错误 380（非法属性值）。
Value 由四个设置值组成，有如下的格式：
"BBBB,P,D,S"
BBBB 为波特率，P 为奇偶校验，D 为数据位数，S 为停止位数。value 的缺省值是："9600,N,8,1"
InputLen属性：设置并返回 Input 属性从接收缓冲区读取的字符数。
语法 object.InputLen [ = value]
InputLen 属性语法包括下列部分：
value 整型表达式，说明 Input 属性从接收缓冲区中读取的字符数。
说明：InputLen 属性的缺省值是 0。设置 InputLen 为 0 时，使用 Input 将使 MSComm 控件读取接收缓冲区中全部的内容。
若接收缓冲区中 InputLen 字符无效，Input 属性返回一个零长度字符串 ("")。在使用 Input 前，用户可以选择检查 InBufferCount 属性来确定缓冲区中是否已有需要数目的字符。
该属性在从输出格式为定长数据的机器读取数据时非常有用。
EofEnable属性：确定在输入过程中 MSComm 控件是否寻找文件结尾 (EOF) 字符。如果找到 EOF 字符，将停止输入并激活 OnComm 事件，此时 CommEvent 属性设置为 comEvEOF，
语法：object.EOFEnable [ = value ]
EOFEnable 属性语法包括下列部分：
value 布尔表达式，确定当找到 EOF 字符时，OnComm 事件是否被激活，如“设置值”中所描述。
value 的设置值：
True 当 EOF 字符找到时 OnComm 事件被激活。
False （缺省）当 EOF 字符找到时 OnComm 事件不被激活。
说明：当 EOFEnable 属性设置为 False，OnComm 控件将不在输入流中寻找 EOF 字符。
5.错误消息
下表列出 MSComm 控件可以捕获的错误：
| 值 | 描述 |
| 380 | 无效属性值 comInvalidPropertyValue |
| 383 | 属性为只读 comSetNotSupported |
| 394 | 属性为只读 comGetNotSupported |
| 8000 | 端口打开时操作不合法 comPortOpen |
| 8001 | 超时值必须大于 0 |
| 8002 | 无效端口号 comPortInvalid |
| 8003 | 属性只在运行时有效 |
| 8004 | 属性在运行时为只读 |
| 8005 | 端口已经打开 comPortAlreadyOpen |
| 8006 | 设备标识符无效或不支持该标识符 |
| 8007 | 不支持设备的波特率 |
| 8008 | 指定的字节大小无效 |
| 8009 | 缺省参数错误 |
| 8010 | 硬件不可用（被其它设备锁定） |
| 8011 | 函数不能分配队列 |
| 8012 | 设备没有打开 comNoOpen |
| 8013 | 设备已经打开 |
| 8014 | 不能使用 comm 通知 |
| 8015 | 不能设置 comm 状态 comSetCommStateFailed |
| 8016 | 不能设置 comm 事件屏蔽 |
| 8018 | 仅当端口打开时操作才有效 comPortNotOpen |
| 8019 | 设备忙 |
| 8020 | 读 comm 设备错误 comReadError |
| 8021 | 为该端口检索设备控制块时的内部错误 comDCBError |
