Delphi里在规定时间内检查串口数据

sinat_29654903 2017-10-25 03:40:54

刚接触Delph，i是这样的，我有1个按钮，要求在3S内读一直取串口数据，每隔1S取1次。直达3S内的数据符合要求或者时间到达3S，再进行下一步动作。现在就在3S内检查串口数据这一步卡住。之前一直是搞单片机的，所以是单片机那种写法。请各位大侠帮忙指点啊！

while（3S时间没有到）
{
检查串口数据
}

进行下一步后来发现这种写法不行，定时器都不能触发了

Delay(1000);
Delay(1000);
Delay(1000);
检查串口数据这种写法也不行，串口时间都不响应了。

...全文

858 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

doloopcn 2017-11-17

打赏
举报

楼主好像没有用COM口控件，XE建议使用CPORT，D6、D7可以使用SPCOM，使用端口触发，一般不要用定时器

fighttosky 2017-11-17

打赏
举报

98年写的接收串口数据的处理线程，你可以参考一下。最好是用线程处理，在线程中使用 WaitCommEvent 监控端口状态，并且进行数据读取和缓存。 hCom 是用CreateFile创建的端口句柄。这个线程当时是挂在 ComDrv下面的，打开端口之后开始准备接收数据之后，就把这个线程跑起来。你可以打开端口之后，跑起来这个线程，然后在主进程中等待3秒，到时间候检查缓冲区中的数据是否符合你的要求。

// TWaitComm
constructor TWaitComm.Create( hCom:THandle;dcb:TDCB;po:POVERLAPPED;Buf:PChar;pBufState:TPPortBufState );
begin
     FhCom    := hCom;
     FDcb     := dcb;
     Fpo      := po;
     FState   := tsRun;
     Priority := tpLowest;

     FPortBuf       := Buf;
     FpPortBufState := pBufState;

     inherited Create(False);
end;

procedure TWaitComm.SetState( const State:TThreadState );
begin
     FState := State;
end;

procedure TWaitComm.ProcRun;
var
   dwNOBR,dwErrorFlags:DWORD;
   ComStat:TCOMSTAT;
   iBufFreeSize:integer;
begin
     if (WaitCommEvent(FhCom, FdwEvtMask, Fpo)) then
     begin
          if ((FdwEvtMask and EV_RXCHAR)=EV_RXCHAR) then
          begin
               //等待缓冲区空闲
               while FpPortBufState^.NowOprt<>opIdle do Sleep(5);

               //设置缓冲区为写状态
               //取缓冲区剩余空间大小
               FpPortBufState^.NowOprt := opInWrite;
               iBufFreeSize := PORT_BUFFER_SIZE - FpPortBufState^.Tail;

               //读端口数据到缓冲区
               // only try to read number of bytes in queue
               ClearCommError( FhCom, dwErrorFlags, @ComStat ) ;
               if (iBufFreeSize>ComStat.cbInQue) then
                  dwNOBR := ComStat.cbInQue
               else
                   dwNOBR := iBufFreeSize;

               ReadFile(FhCom,FPortBuf[FpPortBufState^.Tail],dwNOBR,dwNOBR,Fpo);
               FpPortBufState^.Tail := FpPortBufState^.Tail + dwNOBR;

               //恢复缓冲区为空闲
               FpPortBufState^.NowOprt := opIdle;
          end;
     end;
end;

procedure TWaitComm.Execute;
begin
     { Place thread code here }
     while True do
     begin
          case FState of
           tsRun:
                 begin
                      ProcRun;
                 end;
           tsPause:
                 begin
                      Sleep(10);
                 end;
           tsEnd:
                 begin
                      Exit;
                 end;
          end; // end case
     end; // end while
end;
//=========================TWaitComm

coldsea_2017 2017-11-16

打赏
举报

我建议如下： 1，delphi中串口数据的接收用控件（如spcomm）中的触发事件来接收，不要主动查询串口；在单片机中也很少用查询方式访问串口数据； 2，在这个触发事件中设置一下标志位，当接收到数据的时候，标志位置1表示收到数据 3，放置定时器，时间为1s触发，申请一个全局变量，用以计算定时器触发的次数； 4，触发中的程序内容是检测是否有数据收到，如果有数据收到，判断数据是否满足要求；如果满足要求，转入你的其他操作，同时定时器停止，计数器清零，否则定时器计数器加1； 5，当定时器计数器达到3时，如果你的数据还不能满足要求，转入你的故障操作，然后定时器停止，计数器清零； 6，按钮代码中，先清零计数器，再清零串口数据接收标志位，然后开启定时器； 7，其实自己补充一下调试细节