VB串口通信详解

       转载：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.常数　　　

　　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 控件可以捕获的错误：