VB-串⼝通信详解
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:=Fal //关闭端⼝
MSComm1.CommPort:=CommPort
CommPort属性：设置端⼝号, MSComm1.CommPort:=1, 设置端⼝号为COM1
CommEvent属性: 常⽤的两个comEvReceive, comEvSend
职代会心得体会
3.常数
HandShake 常数
常数值描述
comNone0⽆握⼿
comXonXoff1XOn/Xoff 握⼿
comRTS2Request-to-nd/clear-to-nd 握⼿
comRTSXOnXOff3Request-to-nd 和 clear-to-nd 握⼿皆可
OnComm 常数
常数值描述
哈蜊comEvSend1发送事件
comEvReceive2接收事件
comEvCTS3clear-to-nd 线变化
comEvDSR 4data-t ready 线变化
comEvCD5carrier detect 线变化
comEvRing6振铃检测
comEvEOF7⽂件结束
常数值描述
Error常数
常数值描述
comEventBreak1001接收到中断信号
comEventCTSTO1002Clear-to-nd 超时
comEventDSRTO1003Data-t ready 超时
comEventFrame1004帧错误
comEventOverrun1006端⼝超速
comEventCDTO1007Carrier detect 超时
comEventRxOver1008接收缓冲区溢出
comEventRxParity1009Parity 错误
comEventTxFull1010传输缓冲区满
comEventDCB1011检索端⼝ 设备控制块 (DCB) 时的意外错误
InputMode常数
常数值描述
comInputModeText0（缺省）通过 Input 属性以⽂本⽅式取回数据
comInputModeBinary1通过 Input 属性以⼆进制⽅式检取回数据
4.属性及应⽤说明
CDHolding属性：通过查询 Carrier Detect (CD) 线的状态确定当前是否有传输。Carrier Detect 是从调制解调器发送到相联计算机的⼀个信号，指⽰调制解调器正在联机。 该属性在设计时⽆效，在运⾏时为只读。语法 object.CDHolding 设置值：CDHolding
属性的设置值为：
设置 描述
True Carrier Detect 线为⾼电平
Fal Carrier Detect 线为低电平
说明：注意当 Carrier Detect 线为⾼电平 (CDHolding = True) 且超时时，MSComm 控件设置Com
mEvent 属性为 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 线⾼
Fal 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 事件被激活。
Fal （缺省）当 EOF 字符找到时 OnComm 事件不被激活。
说明：当 EOFEnable 属性设置为 Fal，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
