DELPHI語(yǔ)言在遠程紅外測溫報警系統中的應用

作者：時(shí)間：2013-05-29 來(lái)源：網(wǎng)絡(luò )

加入技術(shù)交流群
- 掃碼加入
  和技術(shù)大咖面對面交流
  海量資料庫查詢(xún)

a）接收數據

上位機采用事件驅動(dòng)方式接收數據。當下位機傳送一幀數據上來(lái)輸入緩存時(shí)，將觸發(fā)TCOMM 組件的OnReceiveData 事件，對數據進(jìn)行接收。然后對接收的數據進(jìn)行判斷，分別轉相應的處理程序。下面是數據接收的程序段：

　　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）發(fā)送數據

發(fā)送數據采用異步I/O 方式，即將要發(fā)送的數據用WriteCommData 方法發(fā)送到寫(xiě)線(xiàn)程，然后立即返回。該方法所有的操作均在后臺進(jìn)行，如果發(fā)送成功，返回True, 發(fā)送失敗，返回False。下面是發(fā)送數據的主要程序段：

　　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 結束語(yǔ)

系統經(jīng)過(guò)一個(gè)多月的觀(guān)察測試，該軟件系統運行穩定，使用操作方便，測量精度高。

上一頁(yè) 1 2 3 下一頁(yè)

新聞中心

DELPHI語(yǔ)言在遠程紅外測溫報警系統中的應用

評論

相關(guān)推薦

技術(shù)專(zhuān)區