Translate

2009/12/10

親 手 打 造 C++Builder 的 TRACE Window

出處:Borland Taiwan
親 手 打 造 C++Builder 的 TRACE Window


曾 經 用 過 Visual C++ 1.5 的 讀 者 們 都 知 道 , 你 可 以 使 用 TRACE 這 個 巨 集 將 需 要 Debug 的 訊 息 送 到 一 個 名 為 DBWIN 的 視窗 上 , 而 咱 們 可 以 一 邊 執 行 程 式 , 一 邊 觀 看 DBWIN 中 由 程式 所 輸 出 過 來 的 TRACE 訊 息 。 但 不 幸 的 事 ,Visual C++ 1.5 的下 一 個 版 本Visual C++ 4.X 竟 然 開 始 不 包 含 了DBWIN , 為 什 麼 呢? 原 來 是 原 先DBWIN 裡 頭 所 包 含 的 所 有 功 能 都 被 整 合 到 了Visual C++ 的 整 合 環 境 裡 頭 , 且 功 能 更 被 發 揚 光 大 , 但TRACE 巨 集從 現 在 起 只 存 在 於 除 錯 模 式 , 並 且 還 被 硬 性 規 定 只 許 應用 程 式 在 整 合 環 境 內 執 行 時 其TRACE 功 能 才 能 夠 使 用 。 這對 於 只 不 過 想 要 像 使 用 printf 一 樣 簡 單 的 輸 出 一 點 訊 息 的咱 們 , 卻 必 須 動 用 到 這 樣 龐 大 的 除 錯 器 似 乎 有 點!@#$%^ 。


幸 好 在 Microsoft System Journal (MSJ) 上 Paul DiLascia 生 生 的 兩篇 文 章 為 我 們 打 造 了 一 個 叫 簡 單DBWIN 稱 為TraceWin , 稍 微 補足 了 這 項 小 小 的 不 快 。 對 於 使 用 Visual C++ 4.x 的 使 用 者 來說 , 有 如 久 旱 逢 甘 霖 一 般 。 在 當 時 筆 者 也 跟 著 依 樣 畫 葫蘆 地 自 己 打 造 了 一 個TraceWin ; 但 自 從1997 的 白 色 情 人 節 過後 筆 者 與C++Builder 結 下 了 不 解 之 緣 , 用C++Builder 開 發 了 許多 專 案 , 但 總 覺 得 缺 少 了 一 點 什 麼 。 對 ! 就 是C++Builder 專用 的TraceWin 。C++Builder 的 除 錯 環 境 很 難 使 用 嗎 ? 一 點 也 不! 功 能 強 大 的 令 人 瞠 目 結 舌 ; 但 我 只 是 希 望 能 夠 簡 單 的檢 查 程 式 的 流 程 、 資 料 的 內 容 , 並 不 需 要 動 用 到 這 麼 龐大 的 除 錯 環 境 。 我 要 的 只 是 希 望 能 把Debug 的 動 作 弄 得 簡單 點 。
以 往 在DOS 的 文 字 模 式 下 ,printf 是 個 簡 單 又 好 用 的 除 錯幫 手 , 可 以 在 需 要 檢 查 的 位 置 適 時 地 加 入printf 將 除 錯 資訊 輸 出 到 螢 幕 上 。 而 在Windows Programming 中 ,printf 或 許 還 能夠 在Consol Mode 裡 佔 據 從 前 保 有 的 江 山 , 但 在 圖 形 界 面 裡printf 已 毫 無 用 武 之 地 , 簡 單 的Debug 動 作 可 以 由 訊 息 對 話 盒 (Message Box ) 來 代 替 龐 大 的 除 錯 環 境 , 但 使 用Message Box 會 打 斷 原有 程 式 的 執 行 並 且 將 原 始 視 窗 被 遮 蓋 住 , 最 討 厭 的 是 還得 去 按 個OK 才 能 讓 程 式 繼 續 執 行 , 並 且 在 按 下OK 後 原 始 視窗 還 收 到 一 個 不 速 之 客 : 不 必 要 的WM_PAINT 訊 息 , 這 讓 我們 的 程 式 多 做 了 一 個 重 繪 的 動 作 , 訊 息 對 話 盒 似 乎 是 個很 不 好 的 選 擇 , 但 在 沒 有 TraceWin 之 前 , 這 是 唯 一 也 較 簡單 的 選 擇 了 , 有 多 簡 單 呢 ? 在C++Builder 下 只 要 使 用 ShowMessage() 這 個 函 示 , 就 可 產 生 一 個 文 字 訊 息 視 窗 。
    不 同 行 程 間 的 資 料 傳 送
先 想 一 想 , 咱 們 得 把 我 們 所 要 檢 查 的 資 料 給 送 到 另 一 個行 程 中 的 『 除 錯 視 窗 』 裡 , 那 們 我 們 何 法 子 可 以 辦 得 到呢 ? 對 ! 就 是 行 程 間 的 通 訊 (Interprocess Communication ,IPC ) 。 但 行 程 通 訊 的 方 法 種 類 繁 多 , 光 是 『 行 程 通 訊 』 這個 主 題 就 夠 筆 者 寫 上 數 萬 字 , 該 選 擇 哪 一 種 來 用 都 是 個難 題 , 所 幸 在 眾 多Windows Programming 書 籍 裡 都 找 得 到 討 論 行程 通 訊 這 主 題 的 章 節1 , 在 此 筆 者 就 不 多 嘴 , 咱 們 就 挑 個背 後 技 術 不 難 且 實 作 起 來 較 容 易 的 方 法 來 用 用 , 對 ! 就是 使 用 視 窗 訊 息 來 傳 送 資 料 : 由 以 往 程 式 寫 作 經 驗 告 訴 我 們 : 要 將 較 大 量 的 資 料 在程 式 內 部 間 傳 遞 , 最 方 便 的 方 法 就 是 使 用 指 標 的 傳 遞 來達 成 ; 但 在Win32 平 台 上 不 同 行 程 間 的 定 址 空 間 各 自 獨 立的 , 因 此 要 藉 由 指 標 把 資 料 傳 送 給 另 外 一 個 行 程 在Win32 平 台 上 是 不 被 允 許 但 又 是 不 可 或 缺 的 , 想 當 然 耳Microsoft 當 然 會 注 意 到 這 個 問 題 , 因 此Microsoft 提 供 了 一 個WM_COPYDATA 這 個 視 窗 訊 息 來 替 個 各 行 程 間 透 過 指 標 來 將 傳 遞 資 料 ,使 用WM_COPYDATA 這 個 視 窗 訊 息 時 系 統 會 自 動 幫 我 們 把 指 標所 指 到 的 資 料 由 發 出 端 的 行 程 定 址 空 間 內 複 製 到 接 收 端的 行 程 定 址 空 間 裡 頭 , 並 將 複 製 後 的 資 料 指 標 通 知 給 接收 端 知 道 。 因 此 使 用 這 個 方 法 就 沒 有 必 要 去 考 慮 到 各 個行 程 間 的 定 址 空 間 的 問 題 。 此 外 使 用WM_COPYDATA 是 在 不 同執 行 緒 ( 不 論 這 兩 個 執 行 緒 是 否 為 同 一 行 程 內 ) 之 間 搬移 資 料 最 簡 單 的 一 種 做 法 了 , 不 過 要 接 收 這 個 訊 息 的 目的 地 必 須 擁 有 一 個 視 窗 代 碼 (Window Handle) , 也 就 是 必 須是 個 視 窗 , 為 什 麼 呢 ? 沒 為 什 麼 , 因 為 你 必 須 傳 遞 訊 息的 函 式SendMessage 的 目 的 地 必 須 是 個 視 窗 ,SendMessage 的 第 一個 參 數 就 是 接 收 訊 息 端 的 視 窗 代 碼 。
WM_COPYDATA 訊 息 的 使 用 如 下 ( 發 出 訊 息 端 ) :
SendMessage(
hwndReceiver,
WM_COPYDATA,
(WPARAM)hwndSender,
(LPARAM)&cds
);
hwndReceiver : 接 收 訊 息 端 的 視 窗 代 碼
hwndSender : 發 出 訊 息 端 的 視 窗 代 碼
cds : 需 要 傳 送 的 資 料 的 指 標
其 中LPARAM 參 數 中 的 cds 指 向 一 個 特 定 的Windows 資 料 結 構:COPYDATASTRUCT , 其 結 構 如 下 :
typedef struct tagCOPYDATASTRUCT { // cds DWORD dwData;
DWORD cbData;
PVOID lpData;
}
COPYDATASTRUCT,*PCOPYDATASTRUCT; dwData : 為 使 用 者 的 自 定 值, 使 用 者 可 以 透 過 此 值 來 通 知 接 收 端 其 傳 送 的 資 料 類 別以 及 傳 送 的 資 料 用 途 。
cbData : lpData 所 指 到 的 資 料 大 小 , 以 byte 為 單 位 。
LpData : 所 要 傳 送 資 料 的 起 始 指 標 。 資 料 的 內 容 可 以 是任 何 的 資 料 。
    取 得 接 收 端 的 視 窗 代 碼
大 約 知 道 了 怎 麼 把WM_COPYDATA 訊 息 送 出 後 , 咱 們 再 來 要 考慮 的 就 是 接 收 端 如 何 收 到 訊 息 的 問 題 。 不 過 在 此 之 前 ,在 訊 息 的 發 出 端 咱 們 還 得 知 道 接 收 端 的 視 窗 代 碼 , 因 為若 沒 有 接 收 端 的 視 窗 代 碼 就 好 比 郵 差 送 信 不 知 道 收 件 人地 址 一 般 , 當 然 是 送 不 出 去 啦 。 筆 者 最 常 用 來 取 得 接 收 端 的 視 窗 代 碼 的 方 法 有 兩 種 :
1. 使 用FindWindow
FindWindow 是 Windows API ,FindWindow 的 原 始 定 義 為 :
HWND FindWindow(
LPCTSTR lpClassName, // pointer to class name
LPCTSTR lpWindowName // pointer to window name
);
lpClassName : 為 視 窗 在 建 立 時 所 註 冊 的 視 窗 類 別
lpWindowName : 為 視 窗 的 名 稱 , 通 常 是 視 窗 的 標 題( Caption )
由 這 個 API 的 定 義 就 不 難 看 出 , 只 要 我 們 知 道 接 收 端 的視 窗 標 題 或 是 知 道 接 收 端 註 冊 的 視 窗 類 別 , 我 們 就 有 辦法 把 訊 息 給 傳 送 出 去 。 但 若 有 相 同 的 兩 個 視 窗 先 後 被 執行 時 怎 麼 辦 呢 ? FindWindow 會 找 到 先 執 行 的 那 個 視 窗 , 並取 回 其 視 窗 代 碼 。
所 以 , 只 要 接 收 端 的 視 窗 標 題 不 會 改 變 , 那 麼 我 們 就可 以 使 用FindWindow 來 取 得 接 收 端 的 視 窗 代 碼 。
2. 註 冊 視 窗 訊 息 與 廣 播 訊 息 (Register Window Message and Broadcast Message )
使 用 『 註 冊 視 窗 訊 息 與 廣 播 訊 息 』 是 在 於 你 不 想 用FindWindow 的 狀 況 下 使 用 的 。 為 什 麼 會 不 想 要 用FindWindow 呢 ? 就 是 先前 才 提 到 的 : 接 收 端 的 視 窗 標 題 會 改 變 , 若 你 寫 的 程 式須 常 常 變 換 視 窗 標 題 , 那 麼 在 使 用FindWindow 時 不 就 很 難 處理 嗎 ? 還 必 須 知 道 接 收 端 的 視 窗 標 題 改 變 成 什 麼 。
因 此 可 換 成 使 用 註 冊 視 窗 訊 息 與 廣 播 訊 息 的 方 式 來 取得 接 收 端 的 視 窗 代 碼 : 在 程 式 第 一 次 執 行 時 , 發 出 端 透過SendMessage 將 一 個 已 經 註 冊 好 的 視 窗 訊 息 給 廣 播 出 去2 ,當 接 收 端 收 到 這 個 已 經 註 冊 過 的 特 定 訊 息 時 , 會 回 傳 另一 個 自 訂 的 訊 息 給 廣 播 訊 息 的 發 出 端 , 而 且 這 個 回 傳 的訊 息 裡 還 帶 有 接 收 端 的 視 窗 代 碼 , 如 此 一 來 就 發 出 端 就可 以 掌 握 住 接 收 端 的 視 窗 代 碼 , 這 樣 一 來 , 即 使 接 收 端的 視 窗 標 題 常 常 在 變 換 , 對 發 出 端 來 說 要 將 訊 息 傳 送 給指 定 的 接 收 端 也 不 是 什 麼 難 事 了 。 但 使 用 這 種 方 法 的 前提 是 在 於 在 發 出 訊 息 端 程 式 執 行 前 接 收 訊 息 端 就 必 須 得先 執 行 了 , 不 然 沒 有 辦 法 傳 回 接 收 端 的 視 窗 代 碼 。 當 然了 , 若 你 要 每 次 發 送 訊 息 前 來 做 視 窗 代 碼 的 傳 遞 也 無 不可 , 只 是 這 樣 一 來 一 往 會 浪 費 掉 許 多 訊 息 傳 送 的 時 間 。
上 述 這 兩 個 方 法 都 很 不 錯 , 但 使 用 註 冊 視 窗 訊 息 與 廣播 訊 息 一 來 一 往 傳 遞 訊 息 次 數 過 於 頻 繁 , 且 所 撰 寫 需 程式 碼 也 較 為 多 些 , 筆 者 暫 時 不 考 慮 使 用 。
    接 收 端 接 收 訊 息
接 收 端 在 接 收 訊 息 這 個 部 份 處 理 流 程 較 為 簡 單 , 就 是 確認 收 到WM_COPYDATA 訊 息 , 並 且 將 這 個 訊 息 依 照 內 容 做 其 該做 的 處 理 。 這 個 主 題 曾 在53 期 周 先 生 的 『BCB 與Win32 訊 息 傳遞 』 一 文 裡 已 被 討 論 到 , 若 對 這 個 主 題 尚 有 不 了 解 的 ,筆 者 建 議 讀 者 們 先 把53 期 的 那 篇 文 章 給 先 看 過 。 但 筆 者在 此 將 會 對 這 個 主 題 做 更 深 入 的 探 討 , 雖 說 接 收 訊 的 流程 乍 看 之 下 很 簡 單 , 但 在C++Builder 的VCL 龐 大 架 構 下 , 視 窗訊 息 的 處 理 程 序 已 經 經 過VCL 架 構 的 層 層 包 裝 , 在VCL 的 背後 隱 藏 了 許 多 高 超 的 技 巧 , 但 對 一 般 使 用 者 來 說 , 只 不過 是 看 到 了 其 神 祕 面 紗 之 外 的 形 象 , 就 讓 筆 者 揭 開 這 神祕 面 紗 一 窺 究 竟 。 在 C++Builder 下 , 處 理 視 窗 訊 息 的 方 式 有 很 多 種 , 我 們要 選 擇 哪 一 種 呢 ? 都 可 以 ! 你 只 要 確 定 你 能 夠 收 到 這 個訊 息 並 且 正 確 的 處 理 他 就 可 以 了 , 你 可 以 送 給 這 個 應 用程 式 的 主 控 制 視 窗 , 也 可 以 送 到 應 用 程 式 的 主 視 窗 。 主控 制 視 窗 ? 主 視 窗 ? 都 快 搞 糊 塗 了 , 這 到 底 怎 麼 說 呢 ?說 來 話 長 , 這 得 從C++Builder 所 開 發 出 來 的 應 用 程 式 的 啟 動流 程 談 起 。
    C++Builder 應 用 程 式 啟 動 流 程
先 讓 咱 們 用C++Builder 建 立 一 個 新 的 應 用 程 式 ( 使 用 選 單 上【File 】\ 【New Application 】 ) ,Project 與Form 的 名 稱 都 保 持 預設 值 :Project 名 稱 為Project1 , 而 那 個 上 面 什 麼 物 件 都 沒 有的Form 為Form1 。 在 編 譯 並 執 行 後 讓 人 直 覺 性 的 認 為 這 個Form1 應 該 就 是 應 用 程 式 的 主 視 窗 , 並 且 應 該 也 掌 控 所 有 發 出給 此 應 用 程 式 的 訊 息 。 其 實 不 然 , 在Form1 背 後 的 黑 手 令有 其 人 , 那 到 底 是 誰 呢 ? 讓 我 們 先 用C++Builder 所 附 上 的WinSight ─ 這 個 好 用 的 工 具 來 觀 察 我 們 所 執 行 的Project1.exe ( 圖 一) , 由 圖 一 可 以 發 現 同 一 個Project.exe 裡 竟 然 會 有 兩 個Window Control 的 出 現 , 一 個 叫 做 TApplication , 而 另 一 個 叫 做TForm1 。 那 到 底 哪 個 才 是 這 個 應 用 程 式 的 主 要 幕 後 黑 手 呢 ? 是TApplication 還 是TForm1 ? 再 利 用WinSight 先 來 看 看TApplication 的 更 深 入 的 內 容 ( 圖二 ) , 由 圖 中 可 以 看 到TApplication 的 視 窗 大 小 是 零 , 而 其 Windows text ( 視 窗 標 題 ) 是 Project1 , 其Class name ( 視 窗 類別 ) 是 TApplication ; 視 窗 大 小 是 『 零 』 , 也 就 是 說 這 個Window 是 看 不 見 的 ,TApplication 的 隱 形 頗 有 躲 在 背 後 的 意 義 。 看起 來 似 乎 這TApplication 似 乎 就 是 幕 後 的 黑 手 , 先 聲 明 只 是看 起 來 而 已 , 稍 後 會 想 辦 法 驗 證 的 。 而 這 裡 所 提 到 的 『視 窗 標 題 』 與 『 視 窗 類 別 』 其 實 就 是 先 前 在 提 到FindWindow 這 個API 所 使 用 的lpWindowName 與lpClassName 了 ! 但 若 使 用FindWindow 來 傳 送 訊 息 給 現 在 我 們 觀 察 的 這 個 應 用 程 式 , 我 們 到 底應 該 把 訊 息 送 給 誰 呢 ? 是 送 給TApplication 還 是 送 給TForm1 呢? 容 後 在 述 。
先 看 看 是 否 真 的 如 筆 者 所 說TForm1 真 的 是 由TApplication 所掌 管 呢 ? 可 惜C++Builder 所 附 上 的WinSight 並 沒 有 辦 法 查 出TForm1 的 管 理 者 也 就 是 擁 有 者 是 那 個 視 窗 , 所 以 我 們 無 法 由WinSight 看 出 任 何 的 端 倪 , 不 過 幸 好 使 用 筆 者 使 用Visual C++ 所 附 上與WinSight 功 能 相 似 的Spy++ 倒 是 可 以 讓 我 們 瞧 見 所 要 的 證 據( 圖 三 ) :
由 圖 三 很 清 楚 的 可 以 看 出 ,TForm1 的Owner Window 就 是 隱 藏起 來 的TApplication 。 由 以 上 所 蒐 集 的 資 料 來 看TApplication 類別 , 似 乎TApplication 類 別 是 由C++Builder 所 建 立 的 應 用 程 式 中的 大 總 管 , 這 一 切 也 在Project1 的Project1.cpp 裡 透 露 出 這 祕密 :
程 式 列 表 一: 、Project1.cpp :
    #include #pragma hdrstop USERES("Project1.res"); USEFORM("Unit1.cpp", Form1); //-------------------------------------------------------------- WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) { try { Application->Initialize(); Application->CreateForm(__classid(TForm1), &Form1); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } return 0; } //--------------------------------------------------------------
此 處 看 到 的Application 就 是TApplication 類 別 的 實 體 物 件 , 並且 是 個 全 域 物 件 。 但 由 這 幾 行 程 式 碼 來 看 為 何C++Builder 所建 立 的 應 用 程 式 如 此 神 奇 , 只 需 由0011 這 列 到0013 這 列 就可 以 讓 程 式 持 續 的 執 行 了 ? 其 實 在 這 三 列 程 式 的 背 後 可是 有 數 千 列 的 幕 後 黑 手 在 撐 著 , 且 讓 筆 者 先 把 這 三 行 的動 作 內 容 給 解 釋 一 下 :
    Application->Initialize(); 進 行Application 物 件 的 初 始 化 , 如 COM 與 OLE Automation 的 初始 化 Application->CreateForm(__classid(TForm1), &Form1); 開 始 建 立 主 視 窗 , 也 就 是Form1 , 並 顯 示Form1 Application->Run();
進 入 訊 息 分 派 迴 圈 裡 , 一 直 到 應 用 程 式 收 到WM_QUIT 訊 息 後才 跳 出 訊 息 分 派 迴 圈 並 結 束 應 用 程 式 。
喔 ! 原 來 整 個 由C++Builder 所 建 立 的 應 用 程 式 所 收 到 的 視窗 訊 息 , 都 會 由Application 這 全 域 物 件 來 接 收 , 並 且 透 過訊 息 在VCL 架 構 裡 的 流 動 把 訊 息 分 配 到 該 分 配 的 地 方 去 ,但 僅 止 於 他 認 得 的 訊 息 。 為 什 麼 說 僅 止 於 他 認 得 的 呢 ?這 得 討 論 到VCL 的 內 部 架 構 , 且 聽 筆 者 慢 慢 說 下 去 。
    VCL 對 訊 息 的 處 理
暫 且 回 到 先 前 的 問 題 , 要 把 訊 息 從 發 出 訊 息 端 送 給 誰 呢? 是 送 給Application 還 是 送 給Form1 呢 ? 先 前 已 經 將 答 案 給 透露 了 , 都 可 以 啦 ! 但 是 處 理 的 方 法 有 所 不 同 罷 了 。 在 討論 這 個 問 題 之 前 , 先 看 看 這 一 張 簡 化 的VCL 類 別 繼 承 架 構圖 ( 圖 四 ) , 讓 我 們 稍 稍 的 了 解 一 下VCL 類 別 之 間 的 關 係。 稍 後 會 使 用 到 這 些 關 係 : 接 下 來 就 讓 我 們 討 論 討 論 在C++Builder 下 接 收 視 窗 訊 息 的做 法 。 在C++Builder 下 有 很 多 做 法 , 咱 們 一 一 來 討 論 :
1 、 覆 載Dispatch 虛 擬 函 式 : ( 使 用Message Map )
在53 期 的 『BCB 與Win32 訊 息 傳 遞 』 一 文 內 曾 用 到 以 下 的 做法 來 接 收 並 處 理 訊 息 :
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER( … …)
END_MESSAGE_MAP( …)
但 這 個 機 制 到 底 是 怎 麼 做 成 的 呢 ? 咱 們 把 他 從sysdef.h 裡 給 挖 出 來 瞧 一 瞧 :
程 式 列 表 二 、sysdefs.h :
    #define BEGIN_MESSAGE_MAP virtual void __fastcall Dispatch(void *Message) \ { \ switch (((PMessage)Message)->Msg) \ { #define VCL_MESSAGE_HANDLER(msg,type,meth) \ case msg: \ meth(*((type *)Message)); \ break; // NOTE: ATL defines a MESSAGE_HANDLER macro which conflicts with VCL's macro. The // VCL macro has been renamed to VCL_MESSAGE_HANDLER. If you are not using ATL, // MESSAGE_HANDLER is defined as in previous versions of BCB. // #if !defined(USING_ATL) && !defined(USING_ATLVCL) && !defined(INC_ATL_HEADERS) #define MESSAGE_HANDLER VCL_MESSAGE_HANDLER #endif // ATL_COMPAT #define END_MESSAGE_MAP(base) default: \ base::Dispatch(Message); \ break; \ } \ }
在sysdefs.h 裡 定 義 了 這 三 個 巨 集 , 讓 我 們 來 看 一 看 這 三 個巨 集 到 底 在 定 義 些 什 麼 ? A 、BEGIN_MESSAGE_MAP : (601 行 至603 行 )
這 個 巨 集 在 類 別 的 定 義 中 以 虛 擬 的 方 式 重 新 覆 載 了Dispatch 函 式 , 而Dispatch 的 原 始 定 義 到 底 是 什 麼 呢 ?Dispatch 原 以 虛擬 的 方 式 定 義 在TObject 裡 , 而 其 目 地 是 在 於 視 窗 訊 息 的 分配 。 而 緊 接 著 在 這 個 虛 擬 函 示 宣 告 之 後 的 是 一 個switch 敘述 , 用 來 分 派 視 窗 訊 息 交 給 之 後 的 VCL_MESSAGE_HANDLER 巨 集來 處 理 。
B 、VCL_MESSAGE_HANDLER : (606 行 至617 行 )
先 看 到615 至617 這 幾 行 程 式 , 你 可 以 發 現 , 若 沒 有 使 用ATL (Active Template Libray ) ,MESSAGE_HANDLER 就 自 動 被 定 義 成VCL_MESSAGE_HANDLER , 但 筆 者 在 這 裡 還 是 建 議 你 , 多 打 幾 個 字 會 比 較 保 險 些, 以 免 以 後 在 移 植 程 式 時 因 為 這 小 小 的 疏 忽 而 造 成 程 式的 錯 誤 , 而 一 時 無 法 察 覺 。
再 看 到607 至609 行 , 可 以 發 現 是 直 接 在BEGIN_MESSAGE_MAP 的switch 敘 述 之 後 加 入case 進 入 點 來 處 理 指 定 視 窗 訊 息 的 。 舉 個 例子 來 說 , 若 我 們 使 用VCL_MESSAGE_HANDLER 這 個 巨 集 如 下 :
VCL_MESSAGE_HANDLER(WM_COPYDATA,TMessage,OnCopyData)
則 會 會 被 展 開 成 :
case WM_COPYDATA:
OnCopyData(*((TMessage *) Message));
break;
C 、END_MESSAGE_MAP : (619 行 至623 行 )
想 當 然 耳 ,END_MESSAGE_MAP 巨 集 的 用 途 應 該 就 是 來 終 結switch 敘 述 , 但 你 可 以 發 現620 行 上 頭 的base::Dispatch(Message) 是 用來 將 不 認 得 的 訊 息 交 給 父 類 別 的Dispatch 虛 擬 函 式 做 處 理。
因 此 所 以 若 我 們 加 入 以 下 的 範 例 : BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_COPYDATA,TMessage,OnCopyData)
END_MESSAGE_MAP(TForm);
則 會 被 編 譯 成 : virtual void __fastcall Dispatch(void *Message)
{
switch (((PMessage)Message)->Msg)
{
case WM_COPYDATA:
OnCopyData(*((TMessage *) Message)); // 處 理WM_COPYDATA 的 函 式
break;
default:
TForm::Dispatch(Message);
break;
}
}
Dispatch 的 原 始 定 義 是 在 於TObject 這 個 基 礎 類 別 上 , 只要 是TObject 的 衍 生 類 別 都 可 以 覆 載 這 個 虛 擬 函 式 來 處 理 自己 特 定 的 訊 息 , 但 若Dispatch 不 認 得 這 個 送 來 的 訊 息 最 後會 把 處 理 程 序 丟 改TObject::DefaultHandler 這 個 函 式 處 理 , 不過TObject::DefaultHandler 並 未 實 作 任 何 的 動 作 , 真 正 的 功 能還 必 須 透 過 以 後 的 覆 載 來 達 成 。 挖VCL 的 原 始 碼 很 有 趣 吧! 若 還 覺 得 光 聽 筆 者 這 樣 說 說 還 不 夠 有 趣 的 話 , 可 以 自行 挖 掘 這 段VCL 原 始 碼 ; 在 此 要 先 說 明 一 下 , 若 讀 者 們 購買 的 是C++Builder 專 業 版 或 更 高 級 的 版 本 , 光 碟 片 裡 頭 都 會含 有VCL 的 原 始 碼 , 但 若 是 標 準 版 就 沒 有 附 上 原 始 始 碼 了。 有 志 挖 掘VCL 架 構 的 內 部 奧 祕 者 都 可 以 自 己 來 探 求VCL 背後 的 真 面 目 。OK !TObject::Dispatch 的 原 始 碼 你 可 以 在 :source\vcl\system.pas 裡 頭 找 到 , 有 興 趣 的 讀 者 可 以 把 這 段 程 式 給 拿 出 來 看 ,不 過 先 透 露 一 下 , 為 了 加 速 訊 息 的 傳 遞 ,Borland 的VCL 開 發小 組 把TObject::Dispatch 函 式 都 採 用 組 合 語 言 來 撰 寫 , 已 達加 速 處 理 的 目 的 。
但 僅 只 有 覆 載Dispatch 這 一 種 方 法 嗎 ? 不 還 有 很 多 呢 !接 著 看 下 去 。
2 、 覆 載WndProc 函 式
剛 才 談 過TObject::Dispatch 的 做 法 , 再 來 談 談TControl 裡 頭 對於 訊 息 的 處 理 , 在TControl 裡 頭 處 理 訊 息 有 兩 個 一 個 是 由TObject 衍 生 而 來 的Dispatch , 但 在TControl 裡 頭 並 沒 有 複 寫Dispatch 函式 , 依 舊 採 用TObject 裡 頭 的Dispatch 函 式 , 而 另 一 個 方 式 就是WndProc 函 式 , 先 來 瞧 瞧TControl 類 別 裡 頭 的WndProc 做 些 什 麼:
程 式 列 表 三 、controls.pas :
    procedure TControl.WndProc(var Message: TMessage); var Form: TCustomForm; begin if (csDesigning in ComponentState) then begin Form := GetParentForm(Self); if (Form <> nil) and (Form.Designer <> nil) and Form.Designer.IsDesignMsg(Self, Message) then Exit; end; if (Message.Msg >= WM_KEYFIRST) and (Message.Msg <= WM_KEYLAST) then begin Form := GetParentForm(Self); if (Form <> nil) and Form.WantChildKey(Self, Message) then Exit; end; if (Message.Msg >= WM_MOUSEFIRST) and (Message.Msg <= WM_MOUSELAST) then begin if not (csDoubleClicks in ControlStyle) then case Message.Msg of WM_LBUTTONDBLCLK, WM_RBUTTONDBLCLK, WM_MBUTTONDBLCLK: Dec(Message.Msg, WM_LBUTTONDBLCLK - WM_LBUTTONDOWN); end; case Message.Msg of WM_MOUSEMOVE: Application.HintMouseMessage(Self, Message); WM_LBUTTONDOWN, WM_LBUTTONDBLCLK: begin if FDragMode = dmAutomatic then begin BeginDrag(True); Exit; end; Include(FControlState, csLButtonDown); end; WM_LBUTTONUP: Exclude(FControlState, csLButtonDown); end; end; Dispatch(Message); end;
由2429 至2451 行 程 式 中 可 以 看 得 到 ,TControl 類 別 僅 處 理 的 與滑 鼠 動 作 相 關 的 視 窗 訊 息 , 如 :WM_MOUSEMOVE 、WM_LBUTTONDOWN 這 一 類 的 訊 息 , 而 其 他 的 訊 息 就 丟 給Dispatch() 處 理 。 從VCL 的 原 始 碼 可 以 得 知TControl 類 別 是 沒 有 包 含 視 窗 代 碼 的 。怪 怪 !TControl 類 別 不 是 沒 有 視 窗 代 碼 嗎 ? 怎 麼 可 以 收 得這 些 必 須 有 視 窗 代 碼 才 收 得 到 的 到 滑 鼠 訊 息 呢 ? 別 急 ,先 接 著 看 到TControl 的 衍 生 類 別 :TWinControl 類 別 , 打 從TWinControl 類 別 開 始 才 包 含 了 視 窗 代 碼 , 先 來 看 看TWinControl 類 別 中對 於WndProc 函 式 的 覆 載 是 怎 麼 寫 的 :
    procedure TWinControl.WndProc(var Message: TMessage); var Form: TCustomForm; begin case Message.Msg of WM_SETFOCUS: begin Form := GetParentForm(Self); if (Form <> nil) and not Form.SetFocusedControl(Self) then Exit; end; WM_KILLFOCUS: if csFocusing in ControlState then Exit; WM_NCHITTEST: begin inherited WndProc(Message); if (Message.Result = HTTRANSPARENT) and (ControlAtPos(ScreenToClient(SmallPointToPoint( TWMNCHitTest(Message).Pos)), False) <> nil) then Message.Result := HTCLIENT; Exit; end; WM_MOUSEFIRST..WM_MOUSELAST: if IsControlMouseMsg(TWMMouse(Message)) then Exit; WM_KEYFIRST..WM_KEYLAST: if Dragging then Exit; WM_CANCELMODE: if (GetCapture = Handle) and (CaptureControl <> nil) and (CaptureControl.Parent = Self) then CaptureControl.Perform(WM_CANCELMODE, 0, 0); end; inherited WndProc(Message); end;
可 以 由3392 至3393 行 上 看 到 : 滑 鼠 訊 息 的 處 理 部 份 交 由TWinControl::IsControlMouseMsg() 函 式 處 理 , 而 在3401 行 中TWinControl 類 別 最 後 把 不 認 得 的 訊息 交 給 父 類 別TControl 的WndProc 做 處 理 ,TControl::WndProc 先 前已 經 瞧 過 了 , 但 這 不 是 我 們 想 要 知 道 的 重 點 , 現 在 我 們想 知 道 的 是 為 什 麼TControl 類 別 可 以 收 到 由TWinControl 才 收 得到 的 滑 鼠 訊 息 呢 ? 讓 我 們 追 下 去 看TWinControl::IsControlMouseMsg() :
    function TWinControl.IsControlMouseMsg(var Message: TWMMouse): Boolean; var Control: TControl; P: TPoint; begin if GetCapture = Handle then begin Control := nil; if (CaptureControl <> nil) and (CaptureControl.Parent = Self) then Control := CaptureControl; end else Control := ControlAtPos(SmallPointToPoint(Message.Pos), False); Result := False; if Control <> nil then begin P.X := Message.XPos - Control.Left; P.Y := Message.YPos - Control.Top; Control.Perform(Message.Msg,Message.Keys,Longint( PointToSmallPoint(P))); Result := True; end; end;
哦 ! 原 來TControl::WndProc 所 收 到 的 滑 鼠 訊 息 是 由TWinControl::WndProc 裡 頭 的IsControlMouseMsg() 函 式 所 傳 遞 出 來 的 。 但 是 由 圖 四 來看 ,TWinControl 不 是TControl 的 衍 生 類 別 嗎 ? 怎 麼 可 以 … ? 可以 的 , 在TControl 類 別 上 有 一 個 很 重 要 且 必 要 的 屬 性 , 就是TControl 類 別 必 須 是 由TWinControl 管 理 , 正 確 的 說 :TControl 類 別 以 或TControl 的 衍 生 類 別 的Owner 必 須 是TWinControl 或TWinControl 的 衍 生 類 別 ; 什 麼 是Owner ?Owner 可 以 稱 為 『 物 件 擁 有 者 』, 是 打 從TComponent 類 別 開 始 有 的 , 物 件 的Owner 負 責 物 件 的管 理 以 及 訊 息 的 分 派 。 就 好 比TGraphicControl 的 衍 生 類 別 :TImage 類 別 , 當 我 們 把TImage 元 件 被 我 們 置 放 到TWinControl 的 衍 生 類 別TForm1 上 時 ,TForm1 就 是TImage 的Owner , 而Owner 把 該 送 給 其 所 擁 有 的 子 物 件 的 所有 訊 息 給 發 送 出 去 , 如 此 一 來 這 個TImage 就 能 夠 擁 有 處 理滑 鼠 訊 息 的 能 力 了 。
由 以 上 可 知 , 若 要 在 接 收 端 接 收 訊 息 , 除 了 覆 載Dispatch 函 式 外 , 也 可 以 在 接 收 端 重 新 覆 載WndProc 這 個 函 式 來 達 到訊 息 的 處 理 目 的 。 方 法 如 下 :
    void __fastcall TForm1::WndProc(TMessage &Message) { switch(Message.Msg) { case WM_COPYDATA: OnCopyData(Message);// 處 理WM_COPYDATA 的 函 式 break; } TForm::WndProc(Message); }
這 樣 的 做 法 與 覆 載Dispatch() 方 法 相 似 , 但 實 際 上 還 是 有 所不 同 , 哪 裡 不 同 呢 ? 由 程 式 列 表 三 的2451 行 上 可 以 看 到 ,在 處 理 的 程 序 上 是 先 先 由WndProc 來 作 訊 息 的 處 理 , 若 不 認得 訊 息 最 後 才 把 訊 息 丟 給Dispatch 處 理 , 因 此 若 使 用 覆 載WndProc 函 式 的 方 式 來 處 理 訊 息 會 比 覆 載Dispatch 函 式 早 一 點 點 收到 並 處 理 訊 息 。 還 有 沒 有 比 覆 載WndProc 函 式 方 法 更 早 攔 截得 到 訊 息 的 方 法 呢 ? 有 的 ! 接 下 來 咱 們 來 看 看VCL 架 構 裡的 訊 息 接 收 先 鋒 。 3 、Application OnMessage
先 前 說 過 ,Application 物 件 是 整 個 應 用 程 式 的 幕 後 黑 手, 由 程 式 列 表 一 的13 行 開 始 進 入 整 個 應 用 程 式 的 訊 息 迴圈 , 一 直 到 收 到WM_QUIT 這 個 訊 息 才 跳 出 迴 圈 並 結 束 程 式 的執 行 。
先 來 看 看TApplication::Run 到 底 是 怎 麼 讓 程 式 進 入 訊 息 迴圈 :
程 式 列 表 四 、forms.pas
    procedure TApplication.Run; begin FRunning := True; try AddExitProc(DoneApplication); if FMainForm <> nil then begin case CmdShow of SW_SHOWMINNOACTIVE: FMainForm.FWindowState := wsMinimized; SW_SHOWMAXIMIZED: MainForm.WindowState := wsMaximized; end; if FShowMainForm then if FMainForm.FWindowState = wsMinimized then Minimize else FMainForm.Visible := True; repeat HandleMessage until Terminated; end; finally FRunning := False; end; end;
我 們 可 以 看 出TApplication::Run 所 作 的 事 情 就 是 先 將 主 視 窗(FMainForm) 的 視 窗 形 態 (WindowsState , 如: 放 到 最 大 、 縮 到 最 小 與 正 常大 小) 給 設 定 好 (4910 至4916 行 ) , 並 設 定 主 視 窗 的 顯 示 與否(Visible ,4917 行 ) 。 而4918 至4920 行 是 個 迴 圈 , 由 程 式 碼上 可 以 看 出 這 個 迴 圈 會 一 直 執 行 直 到Terminated 這 個 旗 標 被設 定 為true 時 才 中 斷 , 這 個 近 乎 無 窮 迴 圈 也 就 是 我 們 所 謂的 訊 息 處 理 迴 圈 。 所 有 由 外 部 進 到 應 用 程 式 的 訊 息 都 得透 過 這 個 迴 圈 做 分 派 處 理 。 咱 們 繼 續 追 下 去 看 :
    procedure TApplication.HandleMessage; begin if not ProcessMessage then Idle; end;
由TApplication::Run 追 下 來 到 了TApplication::HandleMessage , 可 以發 現 會 先 交 給TApplication::ProcessMessage 處 理 , 若 沒 有 訊 息 需要 處 理 就 交 給TApplication::Idle 做 處 理 , 也 就 是 應 用 程 式 閒置 時 的 處 理 函 式 。 先 看 看TApplication::ProcessMessage 到 底 做 的是 什 麼 :
    function TApplication.ProcessMessage: Boolean; var Handled: Boolean; Msg: TMsg; begin Result := False; if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then begin Result := True; if Msg.Message <> WM_QUIT then begin Handled := False; if Assigned(FOnMessage) then FOnMessage(Msg, Handled); if not IsHintMsg(Msg) and not Handled and not IsMDIMsg(Msg) and not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then begin TranslateMessage(Msg); DispatchMessage(Msg); end; end else FTerminate := True; end; end;
由4808 行 可 以 看 到TApplication 類 別 使 用PeekMessage 函 式 從 訊 息佇 列 裡 取 得 訊 息 , 之 後 先 檢 查 訊 息 是 否 為WM_QUIT , 若 是 則把Terminated 旗 標 設 定 為true , 讓 應 用 程 式 給 中 斷 。 但 若 訊息 並 非WM_QUIT , 會 先 檢 查 是 否 有 指 定OnMessage 函 式 , 若 有 則優 先 把 訊 息 交 給 所 指 定 的OnMessage 函 式 處 理 , 若 無 指 定 則開 始 將 訊 息 分 配 。 因 此 若 由 所 指 定 的OnMessage 函 式 來 接 收 並 訊 息 , 那 麼 我們 所 收 到 的 訊 息 應 該 就 是 第 一 手 訊 息 , 那 麼 我 們 的 處 理函 式 也 就 是 最 快 速 處 理 的 囉 ! 先 看 看OnMessage 的 原 始 定 義:
void __fastcall ApplicationOnMessage(tagMSG &Msg, bool &Handled)
若 你 不 希 望VCL 繼 續 處 理 這 個 訊 息 的 話 , 只 需 把Handled 這個 旗 標 給 設 定 成true 即 可 。 就 讓 筆 者 舉 個 簡 單 例 子 :
    void __fastcall TForm1::FormCreate(TObject *Sender) { Application->OnMessage = ApplicationOnMessage; } //-------------------------------------------------------------- void __fastcall TForm1::ApplicationOnMessage(tagMSG &Msg, bool &Handled) { switch(Msg.message) { case WM_COPYDATA: TMessage Message; Message.Msg = Msg.message; Message.WParam = Msg.wParam; Message.LParam = Msg.lParam; OnCopyData(Message);// 處 理WM_COPYDATA 的 函 式 Handled = true; break; } } //--------------------------------------------------------------
這 樣 一 來 這 個 範 例 的 功 能 就 與 先 前 兩 個 方 法 『 覆 載TObject::Dispatch 』 與 『 覆 載TControl::WndProc 』 所 得 到 的 結 果 相 同 。 但 是 有一 點 要 注 意 的 是 , 指 定OnMessage 的 方 法 是 直 接 由TApplication 類 別 來 處 理 , 所 以 若 使 用 指 定OnMessage 函 式 來 接 收 處 理 特定 的 視 窗 訊 息 , 則 發 出 訊 息 端 必 須 發 給Application 這 個 全域 物 件 的 視 窗 代 碼 , 為Application->Handle , 而 若 使 用 其 餘 兩個 方 法 則 要 發 給 所 要 處 理 的 視 窗 的 視 窗 代 碼 , 如 :Form1->Handle 。 以 先 前 建 立 的 那 個 什 麼 都 沒 做 的 應 用 程 式 為 例 , 使 用FindWindow 方 式 來 取 得 視 窗 代 碼 有 兩 種 方 法 : A 、 用FindWindow("TApplication","Project1");
來 取 得Application->Handle 。
B 、 用FindWindow("TForm1","Form1");
來 取 得Form1->Handle 。
    VCL 視 窗 訊 息 的 流 動 方 向
由 以 上 三 種 訊 息 的 接 收 方 法 以 及VCL 的 原 始 碼 追 蹤 經 驗 ,我 們 可 以 勾 勒 出 在VCL 所 架 構 下 的 應 用 程 式 中 視 窗 訊 息 流動 的 程 序 ( 圖 五 ) 。 當 程 式 執 行 到Application->Run() 時 就 進 入 到 訊 息 處 理 迴 圈裡 , 我 們 的 應 用 程 式 透 過PeekMessage 這 個API 函 式 由 訊 息 佇列 裡 取 得 發 給 本 應 用 程 式 的 訊 息 , 並 將 此 訊 息 從 訊 息 佇列 裡 移 除 , 之 後 把 訊 息 交 給TApplication::ProcessMessage() 來 將訊 息 分 派 給 該 收 到 的 物 件 上 。 但 若 指 定 了TApplication 類 別裡 的OnMessage 事 件 時 , 會 先 將 訊 息 引 導 到 指 定 的OnMessage 函式 上 , 經 過OnMessage 函 式 處 理 過 後 的 訊 息 才 流 到 訊 息 迴 圈裡 。 訊 息 經 過TApplication::ProcessMessage() 的 分 派 後 , 訊 息 會先 流 到StdWndProc , 而StdWndProc 的 工 作 就 是 將 訊 息 推 進 到WndProc 函 式 裡 做 處 理 , 進 入 到WndProc 函 式 後 被WndProc 所 認 得 的 就優 先 被 處 理 , 最 後 不 認 得 再 交 由 覆 載 的Dispatch 函 式 處 理, 若 仍 無 法 處 理 則 交 給 父 類 別 的Dispatch 做 處 理 , 而Dispatch 函 式 最 後 會 把 訊 息 推 動 到DefaultHandler 函 式 裡 去 處 理 。 嗯! 又 學 到 了 一 點 , 其 實 也 可 以 重 新 覆 載DefaultHandler 來 處理 訊 息 , 但 這 屬 於 訊 息 接 收 最 後 的 底 限 , 要 從 這 裡 才 接收 嗎 ? 隨 便 你 囉 !
根 據 這 張 訊 息 流 通 圖 來 看 , 這 三 種 方 法 所 接 收 到 的 訊息 先 後 為 :
    TApplication::OnMessage 覆 載 的WinProc 覆 載 的Dispatch
那 讀 者 們 要 用 哪 一 張 網 子 來 網 住 訊 息 呢 ? 就 看 讀 者 們 的喜 好 為 何 囉 !
    親 手 打 造TraceWin
現 在 我 們 終 於 懂 得 原 來VCL 裡 有 這 般 的 程 序 將 訊 息 傳 遞 到他 應 該 到 達 的 地 方 。 了 解 了 這 些 之 後 , 應 該 是 該 始 動 手來 實 作 咱 們 所 要 的TraceWin 。 1 、 訊 息 發 出 端
先 來 設 計 一 個 簡 單 板 的 訊 息 發 出 端 , 放 置 兩 個Button 元件 以 及 一 個Edit 元 件 到Form1 上 面 , 其 擺 設 如 圖 六 。
為Clear 按 鈕 加 上OnClick 事 件 , 用 來 清 除Edit1 元 件 上 的 文字 :
    void __fastcall TForm1::ClearBtnClick(TObject *Sender) { Edit1->Text = “ ”;// 清 除Edit1->Text 的 內 容 }
為Send 按 鈕 加 上OnClick 事 件 , 將 訊 息 送 出 :
    void __fastcall TForm1::SendBtnClick(TObject *Sender) { char Msg[255]; sprintf(Msg,"%s",Edit1->Text.c_str()); COPYDATASTRUCT *pcp = new COPYDATASTRUCT; pcp->dwData = 0; pcp->cbData = sizeof(Msg); pcp->lpData = &Msg; SendMessage(FindWindow("TForm1","TRACE Window"), WM_COPYDATA, (WPARAM)NULL, (LPARAM)pcp); delete pcp; }
其 中9 至10 行 的SendMessage 特 別 指 明 要 將 訊 息 送 給 視 窗 標 題為Trace Window 且 登 錄 的 視 窗 類 別 為TForm1 的 視 窗 , 則 表 示 訊息 接 收 端 必 須 使 用 『 覆 載TObject::Dispatch 函 式 』 或 『 覆 載TControl::WndProc 函 式 』 才 能 夠 收 得 到 訊 息 。 若 要 改 成 由 『 指 定Application::OnMessage 函 式 』 的 方 法 則 必 須 將9 至10 行 的SendMessage 改 為 :
    SendMessage(FindWindow("TApplication","TRACE Window"), WM_COPYDATA, (WPARAM)NULL, (LPARAM)pcp);
還 有 一 個 地 方 值 得 注 意 的 是 : 先 前 說 過 使 用WM_COPYDATA 時,SendMessage 的 第 三 個 參 數 必 須 是 發 出 端 的 視 窗 代 碼 , 但由 於 我 們 在 將 所 需 檢 查 的 訊 息 丟 給TraceWin 時 , 並 不 需 要TraceWin 對 發 出 端 有 所 回 應 , 所 以 在 此 並 不 一 定 要 將 發 出 端 的 視窗 代 碼 處 給TraceWin 那 一 端 收 到 。 2 、 訊 息 接 收 端 ─ TraceWin :
OK! 剛 剛 已 經 把 簡 單 版 本 的 訊 息 發 出 端 給 設 置 好 , 接 下來 就 是 要 把 接 收 端 給 搞 定 了 。 先 做 一 個 簡 單 的 接 收 端 來接 收 由 發 出 端 所 發 出 的 文 字 訊 息 並 秀 出 來 , 所 以 在Form1 上 放 置 一 個Memo ( 如 圖 七 ) , 且 設 定Memo 的Align 屬 性 為alClient , 並 把 其 中Lines 的 內 容 給 刪 除 。 但 是 要 記 住 , 我 們 先 得把Form1 的Caption 給 設 定 成 『TRACE Window 』 讓 發 出 端 能 夠 正 確使 用FindWindow 來 取 得 接 收 端 的 視 窗 代 碼 。 另 外 為 了 順 便 是一 下 這 三 種 接 收 訊 息 的 方 法 , 也 要 記 得 把 到Project Option 裡 把Application 的Title 給 改 成 『TRACE Window 』 ( 如 圖 八 ) , 或是 在Project1.cpp 裡 頭 加 上 指 定Application->Title 的 程 式 碼 , 如下 :
    Application->Initialize(); Application->Title = “TRACE Window ”; Application->CreateForm(__classid(TForm1), &Form1);
先 為Form1 建 立OnCopyData 函 式 以 供 處 理 訊 息 用 : 在Unit1.h 裡 加 入 :
private: // User declarations
void __fastcall OnCopyData(TMessage &Msg);
在Unit1.cpp 裡 加 入 :
    void __fastcall TForm1::OnCopyData(TMessage &Msg) { PCOPYDATASTRUCT pcp; pcp = (PCOPYDATASTRUCT)Msg.LParam; char* TraceMsg; TraceMsg = (char*)pcp->lpData; Memo1->Lines->Add(TraceMsg);// 將 接 收 到 的 陣 列 一 行 一 行加 到 給 到Memo1 裡 頭 }
再 來 就 是 選 擇 咱 們 要 的 訊 息 接 收 方 式 了 , 為 了 複 習 上 頭所 說 過 的 三 種 方 法 三 種 方 式 都 試 試 看 好 了 : A 、 『 覆 載Dispatch 函 式 』
在unit1.h 裡 加 入 :
    public: // User declarations BEGIN_MESSAGE_MAP VCL_MESSAGE_HANDLER(WM_COPYDATA,TMessage,OnCopyData) END_MESSAGE_MAP(TForm)
這 樣 即 可 配 合 前 頭 的 那 個OnCopyData 函 式 來 處 理 訊 息 了 。 B 、 『 覆 載WndProc 函 式 』
在unit1.h 裡 加 入 :
    protected: // User declarations void __fastcall WndProc(TMessage &Message);
在unit1.cpp 裡 加 入 :
    void __fastcall TForm1::WndProc(TMessage &Message) { switch(Message.Msg) { case WM_COPYDATA: OnCopyData(Message);// 處 理WM_COPYDATA 的 函 式 break; } TForm::WndProc(Message); }
這 也 一 樣 可 配 合 前 頭 的 那 個OnCopyData 函 式 來 處 理 訊 息 了 。 C 、 『 指 定OnMessage 函 式 』
在unit1.h 裡 加 入 :
    protected: // User declarations void __fastcall ApplicationOnMessage(tagMSG &Msg, bool &Handled);
在unit1.cpp 裡 加 入 :
    void __fastcall TForm1::FormCreate(TObject *Sender) { Application->OnMessage = ApplicationOnMessage; } //-------------------------------------------------------------- void __fastcall TForm1::ApplicationOnMessage(tagMSG &Msg, bool &Handled) { switch(Msg.message) { case WM_COPYDATA:
    TMessage Message; Message.Msg = Msg.message; Message.WParam = Msg.wParam; Message.LParam = Msg.lParam;
    OnCopyData(Message);// 處 理WM_COPYDATA 的 函 式 Handled = true; break; } } //--------------------------------------------------------------
這 也 一 樣 可 配 合 前 頭 的 那 個OnCopyData 函 式 來 處 理 訊 息 了 。 不 過 誠 如 先 前 所 提 到 的 , 採 用 這 種 做 法 相 對 的 在 訊 息發 出 端 就 得 把 訊 息 送 給Application 物 件 而 不 是 送 給Form1 。 發出 端 的FindWindow 應 該 是 ;FindWindow("TApplication","TRACE Window") , 這 樣 才 能 夠 取 得Application->Handle 。 否 則 若 把 訊 息 直 接 發給Application 而 你 在Form1 上 頭 攔 截 訊 息 是 絕 對 攔 截 不 到 的 ,反 之 亦 然 。
3 、 訊 息 收 發 測 試 : OK ! 已 經 完 成 了 大 半 , 先 來 測 試一 下 吧 ( 圖 九 ) :
可 以 清 楚 的 看 到 , 我 們 可 已 經Edit1 元 件 裡 頭 的 文 字 完整 的 傳 送 到TRACE Window 裡 頭 去 , 但 這 樣 就 完 成 了 嗎 ? 那 可不 ! 還 有 很 多 地 方 應 該 加 強 或 修 正 的 :
    TRACE Window 的 視 窗 類 別 修 改
先 前 我 們 使 用FindWindow 來 取 得 視 窗 代 碼 時 使 用FindWindow( “TForm1 ”, ”TRACE Window ”) 。 但C++Builder 所 預 設 的 視 窗 註 冊 類 別 為TForm1 , 我 們 一 樣 使 用TForm1 似 乎 有 點 怪 怪 的 ! 筆 者 的 習 慣 是 改為TMainFrom , 但 怎 麼 改 呢 ? 從 物 件 檢 視 器 (Object Inspector ) 上 頭 改 就 可 以 了 , 找 到原 先TForm1 的Name 屬 性 欄 把 他 由Form1 改 為MainForm 則 繼 承 至TForm 類 別 的TForm1 類 別 則 會 變 為TMainForm 類 別 ( 圖 十 ) 。
也 因 此 原 先 所 使 用 的FindWindow 要 改 成FindWindow( “TMainForm ”, ”TRACE Window ”) 。
B 、TRACE Window 的 功 能 加 強
嗯 , 改 好 了 視 窗 類 別 後 還 缺 什 麼 呢 ? 缺 的 可 多 了 ! 如把Memo1 元 件 上 的 文 字 給 存 檔 起 來 以 便 日 後 觀 看 、 清 除Memo1 元 件 上 的 內 容 或 是 增 加 進 制 轉 換 等 等 的 功 能 , 說 都 說 不完 。 這 些 都 是 應 該 且 必 須 的 , 該 怎 麼 做 呢 ? 這 些 功 能 筆者 在 此 僅 舉 幾 個 簡 單 的 說 明 , 不 再 詳 述 :
a 、Memo1 元 件 上 的 文 字 存 檔 : 在VCL 架 構 中 , 所 有 的VCL 元件 都 被 包 裝 的 非 常 完 整 , 所 以 做 起 例 行 工 作 來 非 常 的 容易 , 要 將Memo1 元 件 上 的 資 料 存 檔 只 需 如 下 :
Memo1->Lines->SaveToFile("D:\\trace.txt");
這 樣 就 會 把 資 料 存 到D:\trace.txt 裡 頭 了 。
不 過 這 樣 似 乎 有 點 太 過 簡 單 , 咱 們 再 加 上 一 個 存 檔 對話 盒 吧 :
    TSaveDialog *SD = new TSaveDialog(this); SD->Options <<> SD->Filter = "Text files (*.txt)|*.TXT"; if (SD->Execute()) { Memo1->Lines->SaveToFile(SD->FileName); } delete SD;
這 樣 一 來 , 存 檔 時 就 會 出 現 存 檔 對 話 盒 讓 你 選 擇 要 儲 存的 檔 案 位 置 了 。
b 、 清 除Memo1 上 的 文 字 : 清 除Memo1 上 的 文 字 筆 存 檔 更 容 易 , 只 需 使 用Clear() 這 個成 員 函 式 , 如 下 : Memo1->Clear();
這 樣 就 可 以 輕 輕 鬆 鬆 的 將Memo1 元 件 上 頭 的 文 字 給 清 除了 。
C 、 訊 息 發 出 端 的 指 令 簡 化
根 據 先 前 的 訊 息 發 出 端 範 例 來 看 , 我 們 使 用 特 定 的 型別 才 能 夠 轉 換 , 可 用 性 頗 低 , 且 還 要 打 那 麼 多 的 字 , 若每 次 要 使 用 時 還 得 打 那 麼 多 字 , 豈 不 累 人 , 因 此 咱 們 可以 把 他 編 成 通 用 函 式 , 等 需 要 用 到 時 只 需include 我 們 所 編寫 的 函 式 檔 案 即 可 , 我 把 函 式 名 稱 命 名 為dout 有Debug Out 的意 思 , 並 且 讓dout 能 夠 支 援Unicode string 、signal byte string 以及VCL 裡 頭 特 有 的AnsiString , 如 此 一 來 這 個 表 頭 檔 在Visual C++ 、Borland C++ 以 及Borland C++Builder 等Win32 平 台 上 的C++ 編 譯 器 都一 樣 可 以 使 用 , 當 然 了 對 於 一 些 特 定 的 類 別 如AnsiString 會用#define 這 些 前 置 指 令 將 他 隔 離 , 讓 不 認 得 的 編 譯 器 不 會編 譯 到 這 些 個 不 認 得 的 類 別 。
程 式 列 表 五 、dout.h
    ////////////////////////////////////////////////////////////////////// // // Easy Bug Tracer v 1.0.6 // @(#) dout.h 1.0.6, last edit: 09/15/98 09:45 // @(#) Copyright (C) 1998 Martin Hsiao (martins1@ms3.hinet.net) // @(#) Martin's WorkShop (http://insidebcb.copystar.com.tw) // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. // ////////////////////////////////////////////////////////////////////// #ifndef __DOUT_H_ #define __DOUT_H_ #include #ifndef __STDIO_H #include #endif /* __STDIO_H */ #ifndef __WCHAR_H #include #endif /* __WCHAR_H */ #define SMSG(X) SendMessage(FindWindow("TMainForm","TRACE Window") ,\ WM_COPYDATA, (WPARAM)NULL,(LPARAM)X); #define DebugOut(X) \ { \ COPYDATASTRUCT *pcp = new COPYDATASTRUCT;\ pcp->dwData = 0;\ pcp->cbData = sizeof(X);\ pcp->lpData = &X;\ SMSG(pcp);\ delete pcp;\ } void douth(long Data)//for Tracing Hex Value { char TM[255]; sprintf(TM,"0x%x",Data); DebugOut(TM); } void dout(char* Data) { char TM[255]; sprintf(TM,"%s",Data); DebugOut(TM); } void dout(WCHAR* Data) //for Tracing Unicode string { char TM[255]; #ifdef DSTRING_H AnsiString AnsiData = AnsiString(Data); sprintf(TM,"%s",AnsiData.c_str()); #else sprintf(TM,"%ls",Data); #endif /* DSTRING_H */ DebugOut(TM); } #ifdef DSTRING_H void dout(AnsiString* Data)//for Tracing AnsiString BCB only { char TM[255]; sprintf(TM,"%s",Data->c_str()); DebugOut(TM); } void dout(AnsiString Data) //for Tracing AnsiString BCB only { char TM[255]; sprintf(TM,"%s",Data.c_str()); DebugOut(TM); } #endif /* DSTRING_H */ #endif
既 然 在C++Builder 下 可 以 使 用 , 那 們 我 們 就 一 同 造 福C++Builder 的 哥 兒 們Delphi 吧 ! 讓 這 個TRACE Window 一 樣 可 以 收 到 由Delphi 所 傳 送 出 來 的 訊 息 。 以 下 是 在Delphi 下 使 用 時 的 程 式 碼 :
程 式 列 表 六 、dout.pas
    ////////////////////////////////////////////////////////////////////// // // Easy Bug Tracer v 1.0.6 // @(#) dout.pas 1.0.6, last edit: 09/15/98 09:45 // @(#) Copyright (C) 1998 Martin Hsiao (martins1@ms3.hinet.net)
    // @(#) Martin's WorkShop (http://insidebcb.copystar.com.tw)
    // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. // ////////////////////////////////////////////////////////////////////// unit douts; interface uses Windows, Messages; procedure dout(Data : pchar);overload; procedure dout(Data : String);overload; implementation procedure charout(Data : pchar);overload; var sSend : AnsiString; cdsData : TCopyDataStruct; begin sSend := Data; with cdsData do begin dwData := 0; cbData := Length(sSend) + 1; lpData := pchar(sSend); end; SendMessage(FindWindow('TMainFrame','TRACE Window'), WM_COPYDATA,WPARAM(nil),LPARAM(@cdsData)); end; procedure dout(Data : pchar);overload; begin charout(Data); end; procedure dout(Data : String);overload; begin charout(pchar(Data)); end; end.
對 於 使 用Win32 平 台 下C++ 編 譯 器 的 讀 者 們 , 可 以 把dout.h 給放 置 到 各 編 譯 器 的\include 目 錄 裡 頭 , 屆 時 要 用 到dout 指 令時 只 需 加 入dout.h 這 個 標 頭 檔 就 可 以 了 。 而 對 於Delphi 的 使用 者 來 說 , 把dout.pas 編 譯 後 , 把dout.dcu 給 放 置 到\lib 目 錄下 即 可 , 此 外 使 用 時 記 得use dout 喔 。 若 讀 者 們 懶 得 親 手打 這 麼 長 的 程 式 碼 的 話 ( 長 嗎 ?J) , 可 以 到 筆 者 的 網 站上 頭 抓 , 網 址 是http://insidebcb.copystar.com.tw 。 此 外 筆 者 所寫 的 多 功 能 版 本TRACE Window 也 放 在 網 站 讓 讀 者 們 下 載 。
    結 語
呼 ! 似 乎 做 了 一 個VCL 裡 頭 的 深 度 歷 險 , 夠 深 嗎 ? 一 點 也不 ! 其 實 在VCL 的 領 域 裡 , 這 只 挖 到 一 半 罷 了 , 更 深 入 的祕 密 , 更 高 階 的 技 巧 都 還 等 著 我 們 去 挖 掘 呢 ! 為 了 挖 掘出VCL 架 構 裡 的 奧 祕 , 文 章 內 列 出 了 不 少 使 用Object Pascal 所撰 寫 的VCL 原 始 碼 , 希 望 沒 有 把 讀 者 們 搞 得 暈 頭 轉 向 。 以目 前 的 情 況 來 看 , 下 一 個 版 本 的VCL 應 該 還 是 由Object Pascal 為 主 體 撰 寫 而 成 , 也 因 此 不 少 的C/C++ 好 手 們 都 因 為Object Pascal 而 裹 足 不 前 去 挖 掘 這 深 奧 的 祕 密 , 更 對VCL 的Object Pascal 出 身 血 統 而 打 抱 不 平 。 在 筆 者 使 用C++Builder 之 前 , 對 於Object Pascal 是 一 蹺 不 通 , 因 此 對 於Object Pascal 的 學 習 一 直 抱 著能 不 費 時 間 學 就 不 學 的 態 度 。 但 不 久 後 , 因 為 工 作 的 需要 得 以 開 始 鑽 研VCL 的 內 部 構 造 , 這 才 發 現VCL 的 內 部 是 如此 的 精 妙 , 對 於 慣 用C/C++ 的 我 來 說 何 嘗 不 是 一 個 學 習Object Pascal 的 機 會 呢 ? 因 此 , 在 此 呼 籲 各 位 讀 者 , 若 你 真 正 想要 把C++Builder 與VCL 架 構 給 學 好 , 該 是 自 己 開 始 研 讀VCL 的 原始 碼 並 學 習Object Pascal 的 好 時 候 了 。 註 一 、 與IPC 主 題 相 關 的 書 籍 有 :
Advanced Windows, Microsoft Press, Jeffrey Richter, Chapter 10.
Multithreading Application in Win32, Addison Wesley, Jim Beveridge & Robert Wiener, Chapter13.
Programming Windows 95, Microsoft Press, Charles Petzold, Chapert 17.
註 二 、 需 要 用 到 廣 播 的 訊 息 必 須 先 使 用RegisterWindowMessage 函 式 來 向 系 統 註 冊 。

沒有留言:

張貼留言

DataSnap REST API Authorization with PHP

About Authentication with DataSet REST JavaScript client. In connection.js: function setCredentials(user, password) { connectionInf...