DELPHI 语言在远程红外测温报警系统中的应用

a）接收数据

上位机采用事件驱动方式接收数据。当下位机传送一帧数据上来输入缓存时，将触发TCOMM 组件的OnReceiveData 事件，对数据进行接收。然后对接收的数据进行判断，分别转相应的处理程序。下面是数据接收的程序段：

　　begin

　　try

　　count:=form1.Comm1.ReadInputByte(pt);

　　if ((count+1) mod 4>0) then

　　begin

　　form1.Comm1.DataCount:=0;

　　exit;

　　end;

　　for i:=0 to 3 do

　　begin

　　re[i]:=pt^;

　　inc(pt);

　　end;

　　… //数据处理部分

b）发送数据

发送数据采用异步I/O 方式，即将要发送的数据用WriteCommData 方法发送到写线程，然后立即返回。该方法所有的操作均在后台进行，如果发送成功，返回True, 发送失败，返回False。下面是发送数据的主要程序段：

　　form1.Comm1.PortOpen:=true;

　　form1.Comm1.OutputByte(send);

　　timedelay(300);

3.4 系统初始化模块设计

本系统初始化部分设计程序如下：

　　begin

　　Position:=poscreencenter;

　　form1.Comm1.DataCount:=0;

　　form1.Comm1.RThreshold:=1;

　　form1.Comm1.PortOpen:=true;//串行口初始化

　　form1.sys_ini();//系统参数初始化

　　…

3.5 参数设置模块设计

为了系统的操作方便，在菜单中加入了参数的设置，可以选择串行口，选择通信的波特率等等。

4 结束语

系统经过一个多月的观察测试，该软件系统运行稳定，使用操作方便，测量精度高。