为什么CMSComm串口控件会造成内存泄漏？？？

Question

请问我在用串口控件在vc下编程时，再循环中用到：m_comm.GetInput()为什么会造成内存每循环几次就会增加4k?这样程序没到半小时就增加8m，怎么解决啊？

Answer 1

没有详细的代码，不好说！我也用过MSCOMM不过没你那么细心，我这里一个例子可以给你参考！

Answer 2

代码是：
m_com.SetInputMode(1);
然后打开串口
int i;
for(i=0;i<100000;i++)
{
m_com.GetInput();
}
然后看内存每过几秒就会增加4k
我的油箱[email protected] 请高手指教阿

Answer 3

基于VC的串行通信技术应用实例
（中国计算机报 李湘江　2001年10月25日 17:33）在工业控制中，串口是常用的计算机与外部串行设备之间的数据传输通道，由于串行通信方便易行，所以应用广泛。 本文将介绍在Windows平台下串行通信的工作机制和用Visual C++设计串行通信程序的编程方法及通信方式。 VC中实现串行通信的编程技术 
以下我们将介绍VC中几种实现串行通信的编程技术： 利用VC++的标准通信函数 利用VC++的标准通信函数_inp和_outp可实现串口通信。下面是一个串口初始化的程序： void init_com(PORT)
{char i;
outp(PORT+3,0x80);
outp(PORT,0x0C);
outp(PORT+1,0);
outp(PORT+3 ,0x3a);
outp(PORT+3 ,0x03);
i=inp(PORT+5) && 0xfe;
outp(PORT+5,i);} 使用串行通信控件MSComm 串行通信控件MSCOmm32.OCX提供了使用RS-232来进行数据通信的所有协议，VC为该控件提供了标准的事件处理函数、过程，并通过属性和方法提供了串行通信的设置。它使用户能够方便地访问Windows串行通信驱动程序的大多数特性，包括输入、输出缓冲区的大小及决定何时使用流控制命令挂起数据传输等。 在ClassWizard中为新创建的通信控件定义成员对象(CMSComm m_Serial)，通过该对象便可以对串口属性进行设置，MSComm控件共有27个属性。以下是通过设置控件属性对串口进行初始化的实例： BOOL CSampleDlg:: PortOpen()
{ BOOL m_Opened;
......
m_Serial.SetCommPort(2); // 指定串口号
m_Serial.SetSettings("4800,N,8,1");
// 通信参数设置
m_Serial.SetInBufferSize(1024);
// 指定接收缓冲区大小
m_Serial.SetInBufferCount(0);
// 清空接收缓冲区
m_Serial.InputMode(1);
// 设置数据获取方式
m_Serial.SetInputLen(0);
// 设置读取方式
m_Opened=m_Serail.SetPortOpen(1);
// 打开指定的串口
return m_Opened;} 打开所需串口后，我们需要考虑串口通信的时机。在接收或发送数据过程中，可能需要监视并响应一些事件和错误，所以事件驱动是处理串行端口交互作用的一种非常有效的方法。使用OnComm事件和CommEvent属性捕捉并检查通信事件和错误的值。发生通信事件或错误时将触发OnComm事件，CommEvent属性的值将被改变，应用程序通过检查CommEvent属性值并作出相应的反应。 使用API函数 控件虽然简单易用，但由于必须拿到对话框中使用，在一些需要在线程中实现通信的应用场合下，控件的使用显得捉襟见肘。API是附带在Windows内部的一个极其重要的组成部分。Windows的32位API主要是一系列很复杂的函数和消息集合。它可以看作是Windows系统为在其下运行的各种开发系统提供的开放式通用功能增强接口。 通信程序在CreateFile处指定串口设备及相关的操作属性，再返回一个句柄，该句柄将被用于后续的通信操作，并贯穿整个通信过程。串口打开后，其属性被设置为默认值，根据具体需要，通过调用GetCommState(hComm,&&dcb)读取当前串口设备控制块DCB设置，修改后通过SetCommState(hComm,&&dcb)将其写入。运用ReadFile()与WriteFile()这两个API函数实现串口读写操作，若为异步通信方式，两函数中最后一个参数为指向OVERLAPPED结构的非空指针，在读写函数返回值为FALSE的情况下，调用GetLastError()函数，返回值为ERROR_IO_PENDING，表明I/O操作悬挂，即操作转入后台继续执行。此时，可以用WaitForSingleObject()来等待结束信号并设置最长等待时间，举例如下： BOOL bReadStatus;
bReadStatus = ReadFile( m_hIDComDev, buffer,
dwBytesRead, &&dwBytesRead, &&m_OverlappedRead );
if(!bReadStatus){
if(GetLastError()==ERROR_IO_PENDING){
WaitForSingleObject(m_OverlappedRead.hEvent,1000);
return ((int)dwBytesRead);}
return(0);}
return ((int)dwBytesRead); 多线程下实现串行通信 
Windows内部的抢先调度程序在活动的线程之间分配CPU时间，Windows区分两种不同类型的线程，一种是用户界面线程(User Interface Thread),它包含消息循环或消息泵，用于处理接收到的消息；另一种是工作线程(Work Thread)，它没有消息循环，用于执行后台任务、监视串口事件的线程即为工作线程。 多线程程序的编写在端口的配置，连接部分与单线程的相同，在端口配置完毕后，最重要的是根据实际情况，建立多线程之间的同步对象，如信号灯、临界区和事件等。 一切就绪后即可启动工作线程，程序如下： CWinThrea CommThread = AfxBegin
Thread(CommWatchThread, // 线程函数名
(LPVOID) m_pTTYInfo, // 传递的参数
THREAD_PRIORITY_ABOVE_NORMAL,
// 设置线程优先级
(UINT) 0, // 最大堆栈大小
(DWORD) CREATE_SUSPENDED , // 创建标志
(LPSECURITY_ATTRIBUTES) NULL);
if(WaitCommEvent(pTTYInfo-＞idComDev,&&dwEvtMask,NULL))
{
if((dwEvtMask && pTTYInfo-＞dwEvtMask )== pTTYInfo-＞dwEvtMask)
{
WaitForSingleObject(pTTYInfo-＞hPostEvent,0xFFFFFFFF);
ResetEvent(pTTYInfo-＞hPostEvent);
// 置同步事件对象为非信号态
::PostMessage(CSampleView,ID_COM1_DATA,0,0); // 发送通知消息}}
BEGIN_MESSAGE_MAP(CSampleView, CView)
//{{AFX_MSG_MAP(CSampleView)
ON_MESSAGE(ID_COM1_DATA, OnProcessCom1Data)
ON_MESSAGE(ID_COM2_DATA, OnProcessCom2Data)
．．．．．
//}}AFX_MSG_MAP
END_MESSAGE_MAP() 多线程的实现可以使得各端口独立，准确地实现串行通信，使串行通信具有更广泛的灵活性与严格性，且充分利用CPU时间。但在具体的实时监控系统中如何协调多个线程、线程之间以何种方式实现同步，这是多线程串行通信程序实现的难点。 串行通信的操作方式 
下面我们将介绍串行通信的几种操作方式： 编辑 吴北 [email protected]）

Answer 4

串口调试助手VC源程序
及编程详细过程
作者：龚建伟  可以任意转载，注明作者和说明来自 ◆龚建伟技术主页◆
http://www.csdn.net/develop/article/10/10199.shtm

Answer 5

没过几秒就增加4k并不能证明内存泄漏，可能是多了一些内存碎块的原因，也可能是DEBUG版本纪录调试信息的原因。关键看它是不是无限制地增长内存，比如说连续运行一天，会不会内存增到很大

Answer 6

我确实也遇到过这个问题，内存不断增长，测试了一天一夜，内存几乎全被串口程序占用了，后来试图解决这个问题，但是不知道怎么会事，我估计是控件本身的问题吧，最后没办法，用API实现了！！

Answer 7

http://www.vchelp.net/vchelp/file2003_4/vc_com_pro.asp?type_id=40&class_id=1&cata_id=5&article_id=1063&search_term=问题出在VARIANT型变量上,VARIANT型变量就会使内存增加,可以用下面的方法解决:void CCOMDlg::OnComm() 
{
 
 long len,k;
 COleVariant myVar;
 COleSafeArray safearray_inp;
 BYTE rxdata[5]; //设置BYTE数组 switch(m_msComm.GetCommEvent())
 {
 case 2://事件值为2表示接收缓冲区内有字符  myVar.Attach (m_msComm.GetInput());--------------------------------------*  safearray_inp = myVar;  //COleVariant型变量转换为ColeSafeArray型变量  len=safearray_inp.GetOneDimSize(); //验证得到有效数据长度
  assert(len == 5);  for(k=0;k<len;k++)   //len is 5 in normal case
   safearray_inp.GetElement(&k,rxdata+k);   //转换为BYTE型数组
  
  HandleCommand(rxdata); //这是接收数据处理函数  break;
 }
}