串口通信-MSComm控件使用详解
VB6.0下MSComm控件实现串口通信
VB6.0下用MSComm控件实现串口通信MSComm控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能，以下先对其属性进行详细的说明后再举一个例子进行说明：1基本属性CommPortO mPort[=value]Object为MSComm控件，value为整数值，标志端口号。
说明：该属性设置并返回通讯端口号，value的值可以设为1-16间的任意数(默认为1)。
在打开端口之前必须先设置CommPort属性，当端口不存在时，如果用PortOpen属性打开它，MSComm控件会产生错误68(即设备无效的错误)。
SettingsObjiect.Setting[=value]Object为MSComm控件，value为字符串类型，表示通讯端口的设置值。
说明：本属性用来设置并返回端口的波特率、奇偶校验位、数据位和停止位参数。
当端口打开时，如果指定的value参数非法，则MSComm控件产生380号(非法属性值)错误。
有效的value参数值由四个设置值组成，有如下格式：“BBBB,P,D,S”，其中BBBB为波特率，P为奇偶校验，D为数据位数，S为停止位数。
Value的默认值为：“9600,N,8,1”，下面给出合法的波特率、奇偶校验位、数据位和停止位参数：波特率：110，300，600，1200，2400，4800，9600(默认)，14400，19200，28800，38400，56000，57600，115200，128000，256000。
奇偶校验值：E(偶校验，Even)、M(标记，Mark)、N(默认，Default，None)、O(奇校验，Odd)、S(空格，Space)。
数据位值：4，5，6，7，8(默认)，9。
停止位值：1(默认)，1.5，2。
PortOpenO bject.PortOpen[=value]Object为MSComm控件。
Value为布尔类型，表明通讯端口的状态。
vb串口通信控件-mscomm
vb串口通信控件-mscommMSComm控件提供了两种处理通信的方式：一种为事件驱动方式，该方式相当于一般程序设计中的中断方式。
当串口发生事件或错误时，MSComm控件会产生OnComm事件，用户程序可以捕获该事件进行相应处理。
本文的两个例子均采用该方式。
另一种为查询方式，在用户程序中设计定时或不定时查询 MSComm控件的某些属性是否发生变化，从而确定相应处理。
在程序空闲时间较多时可以采用该方式。
常用属性和方法利用MSComm控件实现计算机通信的关键是理解并正确设置MSComm控件众多属性和方法。
以下是MSComm控件的常用属性和方法：●Commport：设置或返回串口号。
●Settings：以字符串的形式设置或返回串口通信参数。
●Portopen：设置或返回串口状态。
●InputMode：设置或返回接收数据的类型。
●Inputlen：设置或返回一次从接收缓冲区中读取字节数。
●InBufferSize：设置或返回接收缓冲区的大小，缺省值为1024字节。
●InBufferCount：设置或返回接收缓冲区中等待计算机接收的字符数。
●Input：从接收缓冲区中读取数据并清空该缓冲区，该属性设计时无效，运行时只读。
●OutBufferSize：设置或返回发送缓冲区的大小，缺省值为512字节。
●OutBufferCount：设置或返回发送缓冲区中等待计算机发送的字符数。
●Output：向发送缓冲区发送数据，该属性设计时无效，运行时只读。
●Rthreshold：该属性为一阀值。
当接收缓冲区中字符数达到该值时，MSComm控件设置Commevent属性为ComEvReceive，并产生OnComm事件。
用户可在OnComm事件处理程序中进行相应处理。
若Rthreshold属性设置为0，则不产生OnComm事件。
例如用户希望接收缓冲区中达到一个字符就接收一个字符，可将Rthreshold设置为1。
这样接收缓冲区中接收到一个字符，就产生一次OnComm事件。
vc 使用mscomm控件实现串口通讯
vc 使用mscomm控件实现串口通讯2009-07-07 08:34mscomm控件是微软发布的串口通讯控件,可以被多种开发工具使用,本章简单介绍vc环境下该控件的使用情况.1、控件的装载。
新建一个mfc工程，选择project-add to project-components and controls打开components and controls gallery对话框，双击 registered actives controls ，做出如下图的选择：点插入按钮后，就可把把该控件安装到controls面板上，同时创建串口类，我们从controls面板上把该控件添加到应用程序对话框就可以使用该控件设计通讯程序了。
2、初始化并打开串口。
m_ctrlComm.SetCommPort(1); //选择串口1if(!m_ctrlComm.GetPortOpen())//如果串口没有打开，则打开串口m_ctrlComm.SetPortOpen(TRUE);m_ctrlComm.SetSettings("38400,n,8,1");//波特率38400，无校验，8个数据位，1个停止位m_ctrlComm.SetInputMode(1);//以二进制方法检取数据m_ctrlComm.SetRThreshold(1);//参数为1表示当串口接收缓冲区有多于或等于1个字符时，将出发一个//接收数据的OnComm事件m_ctrlComm.SetInputLen(0);//设置当前接收缓冲区的数据长度为0m_ctrlComm.GetInput();//先预读缓冲区以清除残留数据3、串口关闭。
m_ctrlComm.SetPortOpen(FALSE);4、数据发送strSendFrame = "10 40 01 41 16 ";CStringToCByteArray(strSendFrame,cbaSendBuf);//转换为字节流cbaLastSendFrameBuf.Copy(cbaSendBuf);ucLastSendCtlCode = cbaSendBuf[1];pView->m_ctrlComm.SetOutput((COleVariant)cbaSendBuf);//串口发送5、数据接收响应mscomm控件的oncomm事件处理接收到的数据。
Vs2010中MSCOMM串口控件的使用
Vs2010中MSCOMM串口控件的使用Vs2010中MSCOMM串口控件的使用注意：Mscomm控件在VC6.0里面生成的类和VS2010里面生成的类不一样。
准确的说是封装的操作名字和使用方式有点不一样。
以对话框程序为例，下面试着在vs2010下使用该控件（控件在使用之前必须要注册）。
第一步：创建对话框程序，画好编辑框等控件。
第二步：插入MSCOMM控件，添加控件相关的类。
并为控件添加好变量。
第三步：添加消息处理函数，这里要注意的是MSCOMM控件的响应函数要右击控件选择添加事件处理函数，消息类型选择为OnComm类型。
下面是各个函数的实现：[cpp]01. //发送按钮按下响应函数02. void CCommTeatDlg::OnBnClickedButton3()03. {04. UpdateData(TRUE);05. m_mscomm.put_Output(COleVariant(m_EditSend));//向串口下发数据06. m_EditSend.Empty();//将编辑框内容清空07. UpdateData(FALSE);08. }[cpp]01. void CCommTeatDlg::OnBnClickedButton2()02. {03. m_mscomm.put_PortOpen(FALSE);//关闭串口04. AfxMessageBox(_T("串口已关闭"));//显示提示窗口05. }[cpp]01. void CCommTeatDlg::OnBnClickedButton1()02. {03. if(m_mscomm.get_PortOpen())//检测串口是否已经打开04. {05. m_mscomm.put_PortOpen(FALSE);//若串口已经打开，则关闭串口06. }07. m_mscomm.put_CommPort(1);//打开串口108. m_mscomm.put_InBufferSize(1024);//串口接收缓冲区大小09. m_mscomm.put_OutBufferSize(1024);//串口发送缓冲去大小10. m_mscomm.put_InputLen(0);//数据发送长度11. m_mscomm.put_InputMode(1);//数据发送模式12. m_mscomm.put_RThreshold(1);//13. m_mscomm.put_Settings(_T("4800,n,8,1"));//串口设置14. if(!m_mscomm.get_PortOpen())//检测串口是否打开，若关闭则打开串口15. {16. m_mscomm.put_PortOpen(TRUE);17. AfxMessageBox(_T("打开串口成功"));18. }19. else20. {21. m_mscomm.put_OutBufferCount(0);//清空输出缓冲区22. AfxMessageBox(_T("打开串口失败"));//提示串口打开失败23. }24. }特别注意一下这段：[cpp]01. BEGIN_EVENTSINK_MAP(CCommTeatDlg, CDialogEx)02. ON_EVENT(CCommTeatDlg, IDC_MSCOMM1, 1, CCommTeatDlg::OnCommMscomm1, VTS_NONE)03. END_EVENTSINK_MAP()[cpp]01. void CCommTeatDlg::OnCommMscomm1()02. {03. static unsigned int cnt = 0;04. VARIANT variant_inp;05. COleSafeArray safearryay_inp;06. long len,k;07. unsigned int data[1024]={0};08. byte rxdata[1024];09. CString stremp;10. if(m_mscomm.get_CommEvent() == 2)11. {12. cnt++;13. variant_inp = m_mscomm.get_Input();14. safearryay_inp = variant_inp;15. len = safearryay_inp.GetOneDimSize();16. for(k=0;k<len;k++)17. {18. safearryay_inp.GetElement(&k,rxdata+k);19. }20. for (k=0;k<len;k++)21. {22. stremp.Format(_T("%c"),*(rxdata+k));23. m_EditReceive += stremp;24. CString temp=_T("\r\n");25. m_EditReceive += temp;26. }27. }28. UpdateData(FALSE);29. }利用MSComm操纵串口数据1.建立项目：打开VC＋＋6.0，建立一个基于对话框的MFC应用程序SCommTest（与我源代码一致，等会你会方便一点）；2.在项目中插入MSComm控件选择Project菜单下Add To Project子菜单中的 Components and Controls…选项，在弹出的对话框中双击Registered ActiveX Controls项（稍等一会，这个过程较慢），则所有注册过的ActiveX控件出现在列表框中。
C#串口通信：MSComm控件使用详解
C#串口通信：MSComm控件使用详解目次MSComm 控件两种处理通讯的方式CommPort 属性RThreshold 属性CTSHolding 属性SThreshold 属性CDHolding 属性DSRHolding 属性Settings 属性InputLen 属性EOFEnable 属性Handshake 常数OnComm 常数InputMode 常数错误消息MSComm 控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能。
MSComm控件在串口编程时非常方便，程序员不必去花时间去了解较为复杂的API函数，而且在VC、VB、Delphi 等语言中均可使用。
Microsoft Communications Control（以下简称MSComm）是Microsoft公司提供的简化Windows下串行通信编程的ActiveX控件，它为应用程序提供了通过串行接口收发数据的简便方法。
具体的来说，它提供了两种处理通信问题的方法：一是事件驱动(Event－driven)方法，一是查询法。
1.MSComm控件两种处理通讯的方式MSComm控件提供下列两种处理通讯的方式：事件驱动方式和查询方式。
1.1 事件驱动方式事件驱动通讯是处理串行端口交互作用的一种非常有效的方法。
在许多情况下，在事件发生时需要得到通知，例如，在串口接收缓冲区中有字符，或者Carrier Detect (CD) 或Request To Send (RTS) 线上一个字符到达或一个变化发生时。
在这些情况下，可以利用MSComm 控件的OnComm 事件捕获并处理这些通讯事件。
OnComm 事件还可以检查和处理通讯错误。
所有通讯事件和通讯错误的列表，参阅CommEvent 属性。
在编程过程中，就可以在OnComm事件处理函数中加入自己的处理代码。
这种方法的优点是程序响应及时，可靠性高。
每个MSComm 控件对应着一个串行端口。
如果应用程序需要访问多个串行端口，必须使用多个MSComm 控件。
MSComm控件的用法和函数说明
MSComm控件进行串口编程步骤：1. 在建立的程序工程中插入MSComm控件。
2. 添加MSComm控件ID 的控制变量（或者对象）。
3. 对串口进行初始化，设置MSComm控件的属性。
4. 添加串口事件的消息处理函数OnComm（）函数，在函数中根据应用需要，编写数据处理代码5. 编写串口发送等其他代码。
6. 关闭串口。
+MSComm控件常用属性：mPort：设置并返回通信端口号2.Settings：以字符串的形式设置并返回波特率、奇偶校验、数据位、停止位3.PortOpen：设置并返回通信端口的状态。
也可以打开和关闭端口4.Input：从接收缓冲区返回和删除字符5.Output：向传输缓冲区写一个字符6.InputLen：设置并返回Input属性从接收缓冲区读取的字符数。
7.InBufferSize：设置或返回输入缓冲区的大小。
8.OutBufferSize：设置或返回输入缓冲区的大小。
9.InBufferCount：设置或返回输入缓冲区内等待读取的字节个数。
10.OutBufferCount：设置或返回输入缓冲区内等待读取的字节个数。
对MSComm控件通过Get/Set函数对来获取或设置控件的属性，每个属性均有与之对应的Get/Set函数对。
用法说明mPort：设置并返回通信端口号Void CMSComm::SetCommPort(short n); 设置串口号Short CMSComm::GetCommPort(); 查询当前串口号说明：n可以设置成1到16中的任何数（缺省值为1）。
但是，如果用PortOpen属性打开一个并不存在的端口是，MSComm控件会产生错误68（设备无效）；必须在打开端口之前设置CommPort属性。
2.Settings：以字符串的形式设置并返回波特率、奇偶校验、数据位、停止位Void CMSComm：：SetSettings（LPCTSTR lpszNewValue）；CString CMSComm：：GetSettings（）；说明：当端口打开时，如果设置值lpszNewValue非法，则MSComm控件产生错误380（非法属性值）。
用Ｃ＃使用ＭＳＣomm控件进行串口编程
用Ｃ＃使用ＭＳＣomm控件进行串口编程对于从事工控和单片机工作的人来说串口编程是很常用的和很重要的。
事实上在和C#中对串口的操作和ＶＳ６里没有大的区别。
你仍然可以直接调用API或者使用MSComm或其他第三方控件。
这里只介绍大家常用的MSComm。
例子使用2、3脚跳过线的串口将COM1和COM2连接。
首先，你必须有MSComm.ocx文件在你的Windows的System32目录下，而且它必须正确的注册。
你可以装VS6来获得，微软也指出这样不会有冲突。
当然我们可以自己注册而不用装庞大的VS6。
先将MSComm.ocx复制到System32目录下，然后使用edit 工具编辑一个以.reg扩展名的文件，在文件里输入以下的文字REGEDITHKEY_CLASSES_ROOTLicenses = Licensing: Copying the keys may be a violation of established copyrights.// The MsComm32 Control License follows:HKEY_CLASSES_ROOTLicenses4250E830-6AC2-11cf-8ADB-00AA00C00905 = kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun 然后，存盘。
双击文件就完成了注册。
现在，我们介绍一下MSComm在和C#中和ＶＳ６里的不同和实际的应用。
在或C#中建立一个窗口Ｆｏｒｍ１。
加入两个MSComm控件，你会发现这里MSComm的默认名字是axMSComm，有点奇怪吧。
同时因为命名空间的问题你不能给axMSComm1.InputMode赋0或1这样的值。
你只能这样来做如axMSComm1.InputMode=MSCommLib.InputModeConstants.co mInputModeBinary或者axMSComm1.InputMode=MSCommLib.InputModeConstants.co mInputModeText。
MSComm控件的应用(串口编程)
MSComm控件的应用（串口编程）MSComm控件通过串行端口发送和接收数据,为应用程序提供了串行通讯功能。
在基于对话框的应用程序中加入一个MSComm控件非常简单。
只需打开“Project->AddToProject->Components and Controls->Registered Activex Controls”,然后选择控件：Microsoft Communication Control,version 6.0插入到当前的工程中。
CMS m类的相关文件 mscomm.cpp 和 mscomm.h 就加到工程中了。
从工具箱中把MSComm控件拖到对话框上，给控件关联成员变量m_Comm。
1.初始化串口，一般在OnInitDialog()函数中m_Comm.SetCommPort(1); //选择COM1m_Comm.SetInputMode(1); //设置数据通讯格式为二进制数组格式0.为文本格式//1.为二进制数组格式m_Comm.SetSettings("9600,n,8,1");//设置波特率为9600bps，无奇偶校验位，数据位8//位，停止位1位m_Comm.SetRThreshold(1); //设置为每次接到一个字节数据就触发OnComm事件m_Comm.SetInputLen(0);//设置当前接收区数据长度为0,表示全部读取波特率：110、300、600、1200、2400、4800、9600、14400、19200、28800、38400、115200 奇偶校验:E偶校验、M标号校验、N无校验、O奇校验、S空格校验数据位：4、5、6、7、8停止位：1、1.5、22.打开串口if(!m_Comm.GetPortOpen()) //如果串口是关闭的，则行打开串口{m_Comm.SetPortOpen(true);m_Comm.GetInput(); //清除串口输入缓冲区中残留数据}else{AfxMessageBox("串口打开失败!");}3.关闭串口if(m_Comm.GetPortOpen()){m_Comm.SetPortOpen(false);}4.接受数据，OnComm()函数中，数据保存在RcvData中VARIANT m_input;char *str;int len,nEvent;CString RcvData;nEvent = m_Comm.GetCommEvent();switch(nEvent){case 2:len=m_Comm.GetInBufferCount(); //接收缓冲区的字符数目if(len>0){m_input=m_Comm.GetInput();str=(char*)(unsigned char*)m_input.parray->pvData;}*(str+len) = '\0’;RcvData.Format("%s", str);}5.发送数据，把str数据发送出去int i,Count;Count=str.GetLength();CByteArray m_Array;m_Array.RemoveAll();m_Array.SetSize(Count);for(i=0;i<Count;i++)｛m_Array.SetAt(i,str[i]);｝m_Comm.SetOutput(COleVariant(m_Array));。
在VS(VC)2010中使用MSComm控件实现串口通信的详细步骤
// TODO: 在¨²此ä?添¬¨ª加¨®控?件t通ª¡§知a处ä|理¤¨ª程¨¬序¨°代䨲码? }
void CCommTestDlg::OnBnClickedButtonOpen() { // TODO: 在¨²此ä?添¬¨ª加¨®控?件t通ª¡§知a处ä|理¤¨ª程¨¬序¨°代䨲码? }
10. 添加关闭串口按钮的消息响应函数 void CCommTestDlg::OnBnClickedButtonClose() { // TODO: 在此添加控件通知处理程序代码 m_mscomm.put_PortOpen(FALSE);//关闭串口 AfxMessageBox(_T("串口 1 已关闭")); } 11. 添加发送按钮消息响应函数 void CCommTestDlg::OnBnClickedButtonSend() { // TODO: 在此添加控件通知处理程序代码 UpdateData(true); //读取编辑框内容 m_mscomm.put_Output(COleVariant(m_EditSend));//发送数据 m_EditSend.Empty(); //发送后清空输入框 UpdateData(false); //更新编辑框内容 } 12. 接收数据 void CCommTestDlg::OnCommMscomm1() { // TODO: 在此处添加消息处理程序代码 static unsigned int cnt=0; VARIANT variant_inp; COleSafeArray safearray_inp; long len,k; unsigned int data[1024]={0}; byte rxdata[1024]; //设置 BYTE 数组 CString strtemp; if(m_mscomm.get_CommEvent()==2) //值为 2 表示接收缓冲区内有字符 {
串口通信-MSComm控件使用详解
串口通信-MSComm控件使用详解2012-11-13 09:35 6988人阅读评论(0) 收藏举报控件编程 Delphi编程（13）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 属性的值来查询事件和错误。
如果应用程序较小，并且是自保持的，这种方法可能是更可取的。
例如，如果写一个简单的电话拨号程序，则没有必要对每接收一个字符都产生事件，因为唯一等待接收的字符是调制解调器的“确定”响应。
MSComm控件使用总结
MSComm控件在VS2010和VC6++中是不同的，下面以VS2010中为例，说明该控件的使用：1、打开串口，并初始化void CSMommTestDlg::OnBnClickedBtn(){// TODO: 在此添加控件通知处理程序代码if (m_Comm.get_PortOpen())//如果发现串口原来是打开的，关闭串口m_Comm.put_PortOpen(FALSE);m_Comm.put_CommPort(1);//选择COM1端口m_Comm.put_InBufferSize(1024);//设置输入缓冲区大小m_Comm.put_OutBufferSize(512);//设置输出缓冲区大小m_Comm.put_Settings("9600,n,8,1");//设置波特率9600，无校验，8个数据位，1个停止位if (!m_Comm.get_PortOpen()){m_Comm.put_PortOpen(TRUE);//打开串口m_Comm.put_RThreshold(1);//每当接收缓冲区中有1个字符，则接收串口数据m_Comm.put_InputLen(0);//设置当前缓冲区长度为0m_Comm.get_Input();//预读缓冲区以清除残留数据}else{AfxMessageBox("打开端口失败！");}}2、OnComm事件处理，当接受到信息的时候会触发这一事件void CSMommTestDlg::OnCommMscomm(){// TODO: 在此处添加消息处理程序代码VARIANT variant_inp;COleSafeArray safearray_inp;CString strInput;if (m_Comm.get_CommEvent()==2)//值为2表示接收缓冲区内有字符{variant_inp=m_Comm.get_Input();//读取缓冲区消息strInput=variant_inp.bstrVal;SetDlgItemText(IDC_EDIT_RECV,strInput);}}3、发送消息void CSMommTestDlg::OnSendClickedBtn(){// TODO: 在此添加控件通知处理程序代码CString str;GetDlgItemText(IDC_EDIT_SEND,str);m_Comm.put_Output(COleVariant(str));//发送数据}。
VB控件MSComm串口通讯实例教程
现有电子秤一台，使用串口与计算机进行通讯。
编写VB程序来访问串口，达到读取电子秤上显示的数据。
该电子秤为BE01型仪表，输出为RS-232C标准接口，波特率为300-9600、偶校验、7个数据位、2个停止位。
所有字符现有电子秤一台，使用串口与计算机进行通讯。
编写VB程序来访问串口，达到读取电子秤上显示的数据。
该电子秤为BE01型仪表，输出为RS-232C 标准接口，波特率为300-9600、偶校验、7个数据位、2个停止位。
所有字符均发送11位ASCII码，一个起始位。
在VB中与串口通讯需要引入控件MSComm串口通讯控件（在Microsoft Comm Control 6.0中）。
具体程序如下：控件简称：MSCDim Out(12) As Byte '接收var中的值Dim var As Variant '接收MSC.input中的数值Dim nRece As Integer '计算MSC.inputbuffer的个数Dim i As Integer, j As Integer '随即变量，计算循环************************************************************************** **Private Sub Form_Load()ClearTextWith MSC.CommPort = 1 '设置Com1为通信端口.Settings = "9600,E,7,2" '设置通信端口参数 9600赫兹、偶校验、7个数据位、2个停止位.（这里需要进一步说明的是：.Setting=”BBBB,P,D,S”。
含义是：B：Baud Rate（波特率）；P：Parity（奇偶）；D：Data Bit；S：Stop Bit）.InBufferSize = 40 '设置缓冲区接收数据为40字节.InputLen = 1 '设置Input一次从接收缓冲读取字节数为1.RThreshold = 1 '设置接收一个字节就产生OnComm事件End WithEnd Sub************************************************************************** **Private Sub ClearText()Text3.Text = ""Text2.Text = "5"Text1.Text = ""End SubPrivate Sub Command1_Click()ClearText' nRece = 0 '计数器清零With MSC.InputMode = comInputModeBinary '设置数据接收模式为二进制形式.InBufferCount = 0 '清除接收缓冲区If Not .PortOpen Then.PortOpen = True '打开通信端口End IfEnd WithEnd SubPrivate Sub MSC_OnComm()DelayTime ‘用来延续时间ClearTextWith MSCSelect Case .CommEvent '判断通信事件Case comEvReceive: '收到Rthreshold个字节产生的接收事件SwichVar 1If Out(1) = 2 Then '判断是否为数据的开始标志.RThreshold = 0 '关闭OnComm事件接收End IfDoDoEventsLoop Until .InBufferCount >= 3 '循环等待接收缓冲区>=3个字节' nRece = nRece + 1For i = 2 To 12SwichVar iText1.Text = Text1.Text & Chr(Out(i))NextText1.Text = LTrim(Text1.Text)Text2.Text = Text2.Text & CStr(nRece).RThreshold = 1 '打开MSComm事件接收Case Else' .PortOpen = FalseEnd SelectEnd WithEnd Sub************************************************************************** **Private Sub DelayTime()Dim bDT As BooleanDim sPrevious As Single, sLast As SinglebDT = TruesPrevious = Timer (Timer可以计算从子夜到现在所经过的秒数，在Microsoft Windows中，Timer函数可以返回一秒的小数部分)Do While bDTIf Timer - sPrevious >= 0.3 Then bDT = FalseLoopbDT = True（通信传输速率为9600bps，则最快速度1.04ms发送一个字节，仪表每秒发送50帧数据，每帧数据有4个字节，即每秒发送200个字节，平均5.0ms 发送一个字节，连续读取串口数据时要在程序中添加循环等待程序）Private Sub SwichVar(ByVal nNum As Integer)DelayTimevar = Nullvar = MSC.InputOut(nNum) = var(0)End Sub（设置接收数据模式采用二进制形式，即 InputMode=comInputModeBinary，但用Input 属性读取数据时，不能直接赋值给 Byte 类型变量，只能通过先赋值给一个 Variant 类型变量，返回一个二进制数据的数组，再转换保存到Byte类型数变量中。
msm控件的用法和函数说明
MSComm控件进行串口编程步骤：1.在建立的程序工程中插入MSComm控件。
2.添加MSComm控件ID 的控制变量（或者对象）。
3.对串口进行初始化，设置MSComm控件的属性。
4.添加串口事件的消息处理函数OnComm（）函数，在函数中根据应用需要，编写数据处理代码5.编写串口发送等其他代码。
6.关闭串口。
+MSComm控件常用属性：mPort：设置并返回通信端口号2.Settings：以字符串的形式设置并返回波特率、奇偶校验、数据位、停止位3.PortOpen：设置并返回通信端口的状态。
也可以打开和关闭端口4.Input：从接收缓冲区返回和删除字符5.Output：向传输缓冲区写一个字符6.InputLen：设置并返回Input属性从接收缓冲区读取的字符数。
7.InBufferSize：设置或返回输入缓冲区的大小。
8.OutBufferSize：设置或返回输入缓冲区的大小。
9.InBufferCount：设置或返回输入缓冲区内等待读取的字节个数。
10.OutBufferCount：设置或返回输入缓冲区内等待读取的字节个数。
对MSComm控件通过Get/Set函数对来获取或设置控件的属性，每个属性均有与之对应的Get/Set函数对。
用法说明mPort：设置并返回通信端口号Void CMSComm::SetCommPort(short n);设置串口号Short CMSComm::GetCommPort();查询当前串口号说明：n可以设置成1到16中的任何数（缺省值为1）。
但是，如果用PortOpen属性打开一个并不存在的端口是，MSComm控件会产生错误68（设备无效）；必须在打开端口之前设置CommPort属性。
2.Settings：以字符串的形式设置并返回波特率、奇偶校验、数据位、停止位Void CMSComm：：SetSettings（LPCTSTR lpszNewValue）；CString CMSComm：：GetSettings（）；说明：当端口打开时，如果设置值lpszNewValue非法，则MSComm控件产生错误380（非法属性值）。
MSComm控件实现串口通信的方法
MSComm控件实现串口通信的方法碧峰晨曦摘要：详细介绍了MSComm控件，并在VC++6.0中利用MSComm控件开发了基于对话框的串口通信实例。
关键词：串口通信，MSComm，VC++图书编号：TP3110.引言串口通信具有实现简单、价格低廉、通信稳定、数据传输可靠等优点，因而广泛应用于各种工业控制系统中。
MSComm控件是微软公司开发的专门用于串口通信的控件。
该控件为开发串口通信程序提供了更加快捷、容易的方法。
在VC++中，对控件属性的操作都是通过特定的函数来实现的，这些函数都是CMSComm类的成员函数。
当声明了一个CMSComm类对象后，就可以通过如下格式调用成员函数来访问控件属性了：<对象名>.<成员函数名>(<参数表>)或<对象名>-><成员函数名>(<参数表>)1.MSComm控件属性及事件1.1 MSComm控件属性MSComm控件有许多属性，最主要的几个属性如下：1)CommPort:设置该属性值可以获取当前程序使用的串口编号。
2)Setting:设置或者获取串行通信的通信参数(包括波特率、奇偶校验类型、数据位数及停止位数等)。
3)PortOpen:设置该属性可以打开或关闭串口。
4)Input:从接收缓冲区中返回并删除数据。
5)Output:向串口通信输出缓冲区写入数据。
6)CommEvent:当MSComm控件在运行时发生错误或产生各种事件时，向程序返回错误或事件类型。
1.2 MSComm控件的事件该控件只有一个事件，即OnComm事件。
当CommEvent属性值发生变化时就会触发OnComm事件。
根据CommEvent属性值来分别执行各种情况下的处理程序。
2 MSComm控件实例应用2.1插入MSComm控件在VC++6.0中新建一个基于对话框的工程，命名为Test。
默认情况下，VC++6.0中不会包含MSComm控件，所以需要我们手动将MSComm控件加载到VC++6.0中。
MSComm控件
MSComm控件MSComm控件提供了两种处理通信的方法：1.事件驱动通信，是一种功能很强的处理串口活动的方法。
在大多数情况下，用户需要获知事件发生的时间，例如，在CD（Carrier Detect）线或RTS（Request To Send）线上有字符到达或发生了改变等。
在这种情况下，使用MSComm控件的OnComm事件捕获和处理这些通信事件。
OnComm也可以捕获和处理通信中的错误。
要获取所有事件和通信错误的完整清单，请参阅CommEvent属性。
2.用户也可以在每个重要的程序功能之后检查CommEvent属性的值来检测事件和通信错误。
这对小的自含程序可能比较常用。
例如，如果编写一个简单的电话拨号程序，那么在接收了每个字符后都产生一个事件并没有意义，因为你只打算从调制解调器中接收OK响应信息。
使用的每个MSComm控件都与一个串口对应。
如果在应用程序中需要访问多个串口，必须使用多个MSComm控件。
可以在Windows 控制面板中修改串口地址的中断地址。
MSComm 控件有很多重要的属性，但首先必须熟悉几个属性。
属性描述CommPort 设置并返回通讯端口号。
Settings 以字符串的形式设置并返回波特率、奇偶校验、数据位、停止位。
PortOpen 设置并返回通讯端口的状态。
也可以打开和关闭端口。
Input 从接收缓冲区返回和删除字符。
Output 向传输缓冲区写一个字符串。
如何使用：//以VC++为例：首先，在对话框中创建通信控件，若Control工具栏中缺少该控件，可通过菜单Project --> Add to Project --> Components and Control插入即可，再将该控件从工具箱中拉到对话框中。
此时，你只需要关心控件提供的对Windows 通讯驱动程序的API 函数的接口。
换句话说，只需要设置和监视MSComm控件的属性和事件。
打开所需串口后，需要考虑串口通信的时机。
VC串口通讯控件MSComm编程详解
Detect，接收线信号检测）
ComEventRxOver 1008 接收缓冲区溢出。在接收缓冲区中没有空间
ComEventRxParity 1009 奇偶校验错。硬件检测到奇偶校验错误 7
ComEventTxFull 1010 发送缓冲区满。在对发送字符排队时，发送缓冲区
满
ComEventDCB 1011 检取端口 DCB（Device Control Blick）时发生了没
发器）不支持该事件
ComEvEOF
7 收到了 EOF 字符（ASCII 字符 26）
Error 消息（MSComm 控件）下表列出了 MSComm 控件可捕获的错误消息：
常量
值
描述
ComInvalidPropertyValue 380
无效的属性值
ComSetNotSupported
383
属性只读
ComGetNotSupported
1。建立 mfc 工程，都会撒。
将 控 件 加 进 来 ： 打 开 “Project->Add To Project->Components and
图解VC++6.0中使用mscomm串口控件
m_ComPort.SetInputMode(1);//以二进制方式读写数据 m_ComPort.SetRThreshold(1);//接收缓冲区有大于等于 1 个字符时，将引发接收数据的 OnCommMscomm 事件 m_ComPort.SetSettings("9600,n,8,1"); //设置波特率等参数 if(!m_ComPort.GetPortOpen()) //打开串口
safearray_inp.GetElement(&k,rxdata+k); //转换为 BYTE 型数组 BYT E bt=*(char*)(rxdata+k); //字符型 strtemp.Format("%c",bt); //将字符送入临时变量 strtemp 存放 m_receive+=strtemp; } break; default: // 传输事件出错 m_ComPort.SetOutBufferCount(0); break;
在 sportDlg.cpp 中增加： BEGIN_EVENTSINK_MAP(CMainFrame,CFrameWnd )
ON_EVENT(CMainFrame,ID_COMMCTRL,1,OnCommMscomm,VTS_NONE) //映射 //ActiveX 控件事件
END_EVENTSINK_ M AP()
// TODO: Add your control notification handler code here UpdateData(TRUE); int len; CByteArray array; len=m_send.GetLength(); array.RemoveAll(); array.SetSize(len); for(int i=0;i<len;i++)
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
串口通信-MSComm控件使用详解2012-11-13 09:35 6988人阅读评论(0) 收藏举报控件编程 Delphi编程（13）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控件的常用属性ngs:=’9600,n,8,1’; //设置波特率 ,校验位,数据位,停止位Settings属性:设置串口的波特率 ,校验位,数据位,停止位, ’9600,n,8,1’表示波特率为9600,无奇偶校验,数据位为8为,1位停止位ferSize:=1024; // 接受缓冲区大小InBufferSize 属性:接收缓冲区的大小,默认值为1024,也可以自己设定,比如,ferSize:=2000,则接收缓冲区的大小为2000字节fferSize:=1024; // 发送缓冲区大小OutBufferSize属性:发送缓冲区的大小,默认值为1024,也可以自己设定。
ferCount:=0; //清空接受缓冲区InBufferCount属性:当前接收缓冲区接收到的数据的长度,count:=ferCount,则count值就是接收缓冲区接收到的数据的长度,对InBufferCount赋值ferCount:=0,可以清空接受缓冲区fferCount:=0; //清空发送缓冲区OutBufferCount属性:当前发送缓冲区中数据的长度,对OutBufferCount 赋值MSComm1. OutBufferCount:=0,可以清空发送缓冲区Mode:=comInputModeText;// 以文本方式取回数据Mode:=comInputModeBinary; //设置接收数据模式为二进制形式InputMode属性:串口接收数据的模式, comInputModeText(0)表示以文本(ASCII)方式取回数据,comInputModeBinary(1)表示以二进制方式取回数据comInputModeText, comInputModeBinary为预定义常量,分别表示0,1RcvByte:=Input属性:通过Input属性可以读取串口中接收到的数据,RcvByte:=表示读取串口接收到的数据 ,其中RcvByte的数据类型为:array of Byte 或array of Variant.在读取之前先设置RcvByte的长度:SetLength(RcvByte,len),如果一次读取所有数据,则SetLength(RcvByte, ferCount)t:=OutputDatOutput属性:通过Output属性可以发送数据,t:=OutputDat,则将OutputDat中的数据发送出去,其中OutputDat数据类型为array of Byte,发送前要设置OutputDat的长度, SetLength(OutputDat,len),然后向OutputDat中填入数据,再清空发送缓冲区fferCount:=0,然后再发送t:=OutputDatLen:=0; // 一次读取所有数据InputLen属性:一次从Input属性中读取数据的长度, Len:=1,表示一次读取一个字节,如果Len:=0,则表示一次读取全部数据shold:=0; //一次发送所有数据 ,发送数据时不产生OnComm 事件SThreshold属性:通过该属性设置产生OnComm 事件(发送时产生)的阀值,若shold:=0, 则一次发送所有数据 ,发送数据时不产生OnComm 事件, 若shold:=5,当发送缓冲区的字节数从5字节减少到4字节时, 产生OnComm 事件shold:=1; //每接收1个字节就产生一个OnComm 事件RThreshold属性: 通过该属性设置产生OnComm 事件(接收时产生)的阀值,若shold:=0,不产生OnComm 事件,若shold:=5,接收缓冲区每收到5字节时,则产生OnComm 事件pen:=True; //打开串口PortOpen属性:设置端口的打开与关闭,打开端口pen:=True,关闭端口pen:=Falseort:=CommPort;CommPort属性:设置端口号, ort:=1, 设置端口号为COM1CommEvent属性: 常用的两个comEvReceive, comEvSendOnComm 常数常数值描述comEvSend 1 发送事件。
comEvReceive 2 接收事件。
comEvCTS 3 clear-to-send 线变化。
comEvDSR 4 data-set ready 线变化。
comEvCD 5 carrier detect 线变化。
comEvRing 6 振铃检测。
comEvEOF 7 文件结束。
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ///////////////////////////ComPort属性：设置并返回通讯端口号。
语法 ort[value ] (value 一整型值，说明端口号。
)说明在设计时，value 可以设置成从 1 到 16 的任何数（缺省值为 1）。
但是如果用 PortOpen 属性打开一个并不存在的端口时，MSComm 控件会产生错误 68（设备无效）。
注意：必须在打开端口之前设置 CommPort 属性。
RThreshold属性：在 MSComm 控件设置 CommEvent 属性为 comEvReceive 并产生 OnComm 之前，设置并返回的要接收的字符数。
语法 shold [ = value ]（value 整型表达式，说明在产生 OnComm 事件之前要接收的字符数。
）说明当接收字符后，若 Rthreshold 属性设置为 0（缺省值）则不产生 OnComm 事件。
例如，设置Rthreshold 为 1，接收缓冲区收到每一个字符都会使 MSComm 控件产生 OnComm 事件。
CTSHolding属性：确定是否可通过查询 Clear To Send (CTS) 线的状态发送数据。
Clear To Send 是调制解调器发送到相联计算机的信号，指示传输可以进行。
该属性在设计时无效，在运行时为只读。
语法： lding（Boolean）Mscomm 控件的 CTSHolding 属性设置值：True Clear To Send 线为高电平。
False Clear To Send 线为低电平。
说明：如果 Clear To Send 线为低电平 (CTSHolding = False) 并且超时时，MSComm 控件设置CommEvent 属性为 comEventCTSTO (Clear To Send Timeout) 并产生 OnComm 事件。
Clear To Send 线用于 RTS/CTS (Request To Send/Clear To Send) 硬件握手。
如果需要确定 Clear To Send 线的状态，CTSHolding 属性给出一种手工查询的方法。
详细信息有关握手协议，请参阅 Handshaking 属性。
SThreshold属性：MSComm 控件设置 CommEvent 属性为 comEvSend 并产生 OnComm 事件之前，设置并返回传输缓冲区中允许的最小字符数。
语法 shold [ = value ]value 整形表达式，代表在 OnComm 事件产生之前在传输缓冲区中的最小字符数。
说明：若设置 Sthreshold 属性为 0（缺省值），数据传输事件不会产生 OnComm 事件。
若设置Sthreshold 属性为 1，当传输缓冲区完全空时，MSComm 控件产生 OnComm 事件。
如果在传输缓冲区中的字符数小于 value，CommEvent 属性设置为 comEvSend，并产生 OnComm 事件。
comEvSend 事件仅当字符数与 Sthreshold 交叉时被激活一次。
例如，如果 Sthreshold 等于 5，仅当在输出队列中字符数从 5 降到 4 时，comEvSend 才发生。
如果在输出队列中从没有比 Sthreshold 多的字符，comEvSend 事件将绝不会发生。
HandShake 常数常数值描述comNone 0 无握手。
comXonXoff 1 XOn/Xoff 握手。
comRTS 2 Request-to-send/clear-to-send 握手。
comRTSXOnXOff 3 Request-to-send 和 clear-to-send 握手皆可。