24小时热门版块排行榜

返回列表

当前主题已经存档。

【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 xyphys638 的 14 个金币

xyphys638

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 369.5
帖子: 140
在线: 6.5小时
虫号: 463844
注册: 2007-11-20
性别: GG
专业: 原子和分子物理

[交流] 【求助】检测串口数据输出

求助：

老板写了个串口程序，但是在读取数据的时候，运行的很慢，因为是，一直在读取，所以很费时。
因此希望能找个函数，或者一段代码，来监视串口是否有数据输出，如果有了，就读取，否者直接运行下一步。

麻烦高手指点一下，为了便于理解，我贴上一段关于设置串口的程序，
wsprintf(com_ch,"COM1"

;

   hCom = CreateFile(com_ch,
GENERIC_READ | GENERIC_WRITE,0,
NULL,OPEN_EXISTING,0,NULL);
      Memo_emission->Text="tentative d'ouverture de ligne COM1 ";
if (GetCommState(hCom,&dcb))
   {COM_ID_OK=true;
   dcb.BaudRate = 38400;//4 ?1 droite 5 ?0 gauche
   //dcb.BaudRate = 19200;//4 ?0 gauche 5 ?1 droite
   //dcb.BaudRate = 9600;//4 ?1droite et  5 ?1 droite
   dcb.StopBits = ONESTOPBIT; dcb.ByteSize = 8;
   dcb.Parity = NOPARITY;
   //dcb.fRtsDisable    = dcb.fDtrDisable  = true;
   dcb.fOutxCtsFlow = dcb.fOutxDsrFlow = false;
   //dcb.fDtrflow = dcb.fRtsflow = false;
   dcb.EvtChar       = 'X';
   COM_ID_OK=SetCommState(hCom,&dcb);    // initialiser l'閠at de la ligne
   lpCommTimeouts =new _COMMTIMEOUTS;
   GetCommTimeouts(hCom,lpCommTimeouts);
   lpCommTimeouts->ReadIntervalTimeout       = 1;
   lpCommTimeouts->ReadTotalTimeoutMultiplier = 1;
   lpCommTimeouts->ReadTotalTimeoutConstant = 10;
   lpCommTimeouts->WriteTotalTimeoutMultiplier= 1;
   lpCommTimeouts->WriteTotalTimeoutConstant  = 10;
   SetCommTimeouts(hCom,lpCommTimeouts);
   Memo_emission->Lines->Add("r閡ssi OK\n"

;

和读取的程序：
   ReadFile(hCom,serial_rec_buffer,buf_size,&NbCar,NULL);

   if(NbCar>0)
{if(serial_rec_buffer[NbCar-2]==0x0D)
   {MESSAGE_OK=true;          // on verifie le caract鑢e de fin
   serial_rec_buffer[NbCar-2]=0x00;
   Memo_reception->Lines->Add(serial_rec_buffer);
   }
   else {delay(100);ReadFile(hCom,serial_rec_buffer,buf_size,&NbCar,NULL);}

}

请高手帮帮忙，谢谢了！

同时祝大家圣诞快乐！

回复此楼