|
|
|
Delphi 中 串 行 通 信 的 實(shí) 現(xiàn) <BR> 王 琛 </P><P> --------------------------------------------------------------------------------</P><P> ---- 隨 著 現(xiàn) 代 信 息 技 術(shù) 的 發(fā) 展 以 及 計(jì) 算 機(jī) 網(wǎng) 絡(luò) 的 廣 泛 使 用， 計(jì) 算 機(jī) 通 信 技 術(shù) 已 經(jīng) 日 臻 成 熟， 但 串 行 通 信 作 為 一 種 靈 活 方 便 可 靠 的 通 信 方 式， 仍 不 失 為 有 效 的 通 信 手 段， 被 廣 泛 應(yīng) 用 于 工 業(yè) 控 制 中。 在 工 業(yè) 生 產(chǎn) 實(shí) 踐 中， 用PC 機(jī) 對(duì) 工 程 實(shí) 現(xiàn) 實(shí) 時(shí) 監(jiān) 控， 通 常 要 求PC 機(jī) 能 在 用 戶 界 面 上 具 有 數(shù) 據(jù) 采 集、 數(shù) 據(jù) 處 理 以 及 控 制 信 號(hào) 的 產(chǎn) 生 與 傳 輸 等 功 能。 在 這 種 特 定 的 環(huán) 境 下，PC 機(jī) 要 與 過(guò) 程 控 制 的 實(shí) 時(shí) 信 號(hào) 相 聯(lián) 系， 就 要 求 能 實(shí) 現(xiàn) 對(duì)PC 機(jī) 的 串 行 端 口 直 接 操 作。Borland 公 司 推 出 的Delphi 是 一 種 功 能 強(qiáng) 大 的 高 級(jí) 編 程 語(yǔ) 言， 其 具 有 的 可 視 化 面 向 對(duì) 象 的 特 性， 特 別 適 于 在Windows 環(huán) 境 下 圖 形 界 面 和 用 戶 程 序 的 編 制。 本 文 就 是 介 紹 基 于Windows95/NT 操 作 系 統(tǒng) 用Delphi 來(lái) 實(shí) 現(xiàn)PC 機(jī) 與 下 層PLC 控 制 器 之 間 的 串 口 通 信 方 法。 </P><P> 基 于WIN95/NT 的 串 行 通 信 機(jī) 制<BR> ---- Windows 操 作 系 統(tǒng) 的 機(jī) 制 禁 止 應(yīng) 用 程 序 直 接 訪 問(wèn) 計(jì) 算 機(jī) 硬 件， 但 它 為 程 序 員 提 供 了 一 系 列 的 標(biāo) 準(zhǔn)API 函 數(shù)， 使 得 應(yīng) 用 程 序 的 編 制 更 加 方 便 并 且 免 除 了 對(duì) 有 關(guān) 硬 件 的 調(diào) 試 麻 煩。 在Windows95/NT 中， 原 來(lái)Windows3.X 的WM_COMMNOTIFY 消 息 已 被 取 消， 操 作 系 統(tǒng) 為 每 個(gè) 通 信 設(shè) 備 開(kāi) 辟 了 用 戶 可 定 義 大 小 的 讀/ 寫(xiě) 緩 沖 區(qū)， 數(shù) 據(jù) 進(jìn) 出 通 信 口 均 由 操 作 系 統(tǒng) 后 臺(tái) 完 成， 應(yīng) 用 程 序 只 需 對(duì) 讀/ 寫(xiě) 緩 沖 區(qū) 操 作 即 可。WIN95/NT 中 幾 個(gè) 常 用 的 串 行 通 信 操 作 函 數(shù) 如 下： </P><P> CreatFile 打 開(kāi) 串 行 口 <BR> CloseHandle 關(guān) 閉 串 行 口 <BR> SetupComm 設(shè) 置 通 信 緩 沖 區(qū) 的 大 小 <BR> ReadFile 讀 串 口 操 作 <BR> WriteFile 寫(xiě) 串 口 操 作 <BR> SetCommState 設(shè) 置 通 信 參 數(shù) <BR> GetCommState 獲 取 默 認(rèn) 通 信 參 數(shù) <BR> ClearCommError 清 除 串 口 錯(cuò) 誤 并 獲 取 當(dāng) 前 狀 態(tài) </P><P> ---- 除 上 述 幾 個(gè) 函 數(shù) 外， 還 要 經(jīng) 常 用 到 一 個(gè) 重 要 的 記 錄DCB（ 設(shè) 備 控 制 塊）。DCB 中 記 錄 有 可 定 義 的 串 行 口 參 數(shù)， 設(shè) 置 串 行 口 參 數(shù) 時(shí) 必 須 先 用GetCommState 函 數(shù) 將 系 統(tǒng) 默 認(rèn) 值 填 入DCB 控 制 塊， 然 后 才 可 把 用 戶 想 改 變 的 自 定 義 值 設(shè) 定。 </P><P> ---- 在WIN95/NT 中 進(jìn) 行 串 行 通 信 除 了 解 基 本 的 通 信 操 作 函 數(shù) 外， 還 要 掌 握 多 線 程 編 程。 線 程 是 進(jìn) 程 內(nèi) 部 執(zhí) 行 的 路 徑， 是 操 作 系 統(tǒng) 分 配CPU 時(shí) 間 的 基 本 實(shí) 體。 每 個(gè) 進(jìn) 程 都 由 單 線 程 開(kāi) 始 完 成 應(yīng) 用 程 序 的 執(zhí) 行。 串 行 通 信 需 要 利 用 多 線 程 技 術(shù) 實(shí) 現(xiàn)， 其 主 要 的 處 理 邏 輯 可 以 表 述 如 下： 進(jìn) 程 一 開(kāi) 始 先 由 主 線 程 做 一 些 必 要 的 初 始 化 工 作， 然 后 主 線 程 根 據(jù) 需 要 在 適 當(dāng) 時(shí) 候 建 立 通 信 監(jiān) 視 線 程 監(jiān) 視 通 信 口， 當(dāng) 指 定 的 串 行 口 事 件 發(fā) 生 時(shí)， 向 主 線 程 發(fā) 送WM_COMMNOTIFY 消 息( 由 于WIN95 取 消 了WM_COMMNOTIFY 消 息， 因 此 必 須 自 己 創(chuàng) 建）， 主 線 程 對(duì) 其 進(jìn) 行 處 理。 若 不 需 要WM_COMMNOTIFY 消 息， 則 主 線 程 終 止 通 信 監(jiān) 視 線 程。 </P><P> ---- 多 線 程 同 時(shí) 執(zhí) 行， 將 會(huì) 引 起 對(duì) 共 享 資 源 的 沖 突。 為 避 免 沖 突， 就 要 用 同 步 多 線 程 對(duì) 共 享 資 源 進(jìn) 行 訪 問(wèn)。WIN95 提 供 了 許 多 保 持 線 程 同 步 的 方 法， 筆 者 采 用 創(chuàng) 建 事 件 對(duì) 象 來(lái) 保 持 線 程 同 步。 通 過(guò)CraeteEvent（） 創(chuàng) 建 事 件 對(duì) 象， 使 用SetEvent（） 或PulseEvent（） 函 數(shù) 將 事 件 對(duì) 象 設(shè) 置 成 信 號(hào) 同 步。 在 應(yīng) 用 程 序 中， 利 用WaitSingleObject（） 函 數(shù) 等 待 同 步 的 觸 發(fā)， 等 到 指 定 的 事 件 被 其 它 線 程 設(shè) 置 為 有 信 號(hào) 時(shí)， 才 繼 續(xù) 向 下 執(zhí) 行 程 序。 </P><P> Delphi 下 的 具 體 實(shí) 現(xiàn) 方 法<BR> ---- Delphi 的 強(qiáng) 大 功 能 和 支 持 多 線 程 的 面 向 對(duì) 象 編 程 技 術(shù)， 使 得 實(shí) 現(xiàn) 串 行 通 信 非 常 簡(jiǎn) 單 方 便。 它 通 過(guò) 調(diào) 用 外 部 的API 函 數(shù) 來(lái) 實(shí) 現(xiàn)， 主 要 步 驟 如 下： 首 先， 利 用CreateFile 函 數(shù) 打 開(kāi) 串 行 口， 以 確 定 本 應(yīng) 用 程 序 對(duì) 此 串 行 口 的 占 有 權(quán)， 并 封 鎖 其 它 應(yīng) 用 程 序 對(duì) 此 串 口 的 操 作； 其 次， 通 過(guò)GetCommState 函 數(shù) 填 充 設(shè) 備 控 制 塊DCB， 再 通 過(guò) 調(diào) 用SetCommState 函 數(shù) 配 置 串 行 口 的 波 特 率、 數(shù) 據(jù) 位、 校 驗(yàn) 位 和 停 止 位。 然 后， 創(chuàng) 建 串 行 口 監(jiān) 視 線 程 監(jiān) 視 串 行 口 事 件。 在 此 基 礎(chǔ) 上 就 可 以 在 相 應(yīng) 的 串 口 上 操 作 數(shù) 據(jù) 的 傳 輸； 最 后， 用CloseHandle 函 數(shù) 關(guān) 閉 串 行 口。 具 體 的 程 序 如 下， 本 程 序 用Delphi3.0 編 制 在Win95 環(huán)t 境 下 調(diào) 試 通 過(guò)， 已 投 入 實(shí) 際 應(yīng) 用 中， 供 廣 大 讀 者 參 考。 <BR> ---- 程 序： </P><P> unit comdemou;<BR> interface<BR> uses<BR> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;</P><P> const<BR> Wm_commNotify=Wm_User+12;<BR> type<BR> TForm1 = class(TForm)<BR> procedure FormCreate(Sender: TObject);<BR> private<BR> Procedure comminitialize;<BR> Procedure MsgcommProcess(Var Message:Tmessage); Message Wm_commnotify;<BR> { Private declarations }<BR> public<BR> { Public declarations }<BR> end;</P><P> // 線 程 聲 明<BR> TComm=Class(TThread)<BR> protected<BR> procedure Execute;override;<BR> end;</P><P> var<BR> Form1: TForm1;<BR> hcom,Post_Event:Thandle;<BR> lpol:Poverlapped;<BR> implementation</P><P> {$R *.DFM}</P><P> Procedure TComm.Execute; // 線 程 執(zhí) 行 過(guò) 程<BR> var<BR> dwEvtMask:Dword;<BR> Wait:Boolean;<BR> Begin<BR> fillchar(lpol,sizeof(toverlapped),0);<BR> While True do Begin<BR> dwEvtMask:=0;<BR> Wait:=WaitCommEvent(hcom,dwevtmask,lpol); // 等 待 串 行 口 事 件；<BR> if Wait Then Begin<BR> waitforsingleobject(post_event,infinite); // 等 待 同 步 事 件 置 位；<BR> resetevent(post_event); // 同 步 事 件 復(fù) 位；<BR> PostMessage(Form1.Handle,WM_COMMNOTIFY,0,0);// 發(fā) 送 消 息；<BR> end;<BR> end;<BR> end;</P><P> procedure Tform1.comminitialize; // 串 行 口 初 始 化<BR> var<BR> lpdcb:Tdcb;<BR> Begin<BR> hcom:=createfile('com2',generic_read or generic_write,0,nil,open_existing,<BR> file_attribute_normal or file_flag_overlapped,0);// 打 開(kāi) 串 行 口<BR> if hcom=invalid_handle_value then<BR> else<BR> setupcomm(hcom,4096,4096); // 設(shè) 置 輸 入， 輸 出 緩 沖 區(qū) 皆 為4096 字 節(jié)<BR> getcommstate(hcom,lpdcb); // 獲 取 串 行 口 當(dāng) 前 默 認(rèn) 設(shè) 置<BR> lpdcb.baudrate:=2400;<BR> lpdcb.StopBits:=1;<BR> lpdcb.ByteSize:=8;<BR> lpdcb.Parity:=EvenParity; // 偶 校 驗(yàn)<BR> Setcommstate(hcom,lpdcb);<BR> setcommMask(hcom,ev_rxchar); <BR> // 指 定 串 行 口 事 件 為 接 收 到 字 符；<BR> end;</P><P> Procedure TForm1.MsgcommProcess(Var Message:Tmessage);<BR> var<BR> Clear:Boolean;<BR> Coms:Tcomstat;<BR> cbNum,ReadNumber,lpErrors:Integer;<BR> Read_Buffer:array[1..100]of char;<BR> Begin<BR> Clear:=Clearcommerror(hcom,lpErrors,@Coms);<BR> if Clear Then Begin<BR> cbNum:=Coms.cbInQue;<BR> ReadFile(hCom,Read_Buffer,cbNum,ReadNumber,lpol);<BR> // 處 理 接 收 數(shù) 據(jù)<BR> SetEvent(Post_Event); // 同 步 事 件 置 位<BR> end;<BR> end;</P><P> procedure TForm1.FormCreate(Sender: TObject);<BR> begin<BR> comminitialize;<BR> post_event:=CreateEvent(nil,true,true,nil); // 創(chuàng) 建 同 步 事 件；<BR> Tcomm.Create(False); // 創(chuàng) 建 串 行 口 監(jiān) 視 線 程；<BR> end;</P><P> end.</P><P> ---- 南 京 理 工 大 學(xué) 經(jīng) 濟(jì) 管 理 學(xué) 院96 研 究 生 210094 王 琛 <BR> ---- 聯(lián) 系 電 話：025-4315011-405 或025-8760087 CALL 39787（ 中 文）<BR>
|
|
狀 態(tài)：
離線
公司簡(jiǎn)介
產(chǎn)品目錄
|
|
|
公司名稱：
|
中華工控網(wǎng)
|
| 聯(lián) 系 人： |
客服中心
|
| 電 話： |
0755-26546361
|
| 傳 真： |
0755-26585268 |
| 地 址： |
深圳市南山區(qū)創(chuàng)業(yè)路現(xiàn)代城華庭1棟6A |
| 郵 編： |
518054 |
| 主 頁(yè)： |
|
|
|
|
|
