Web Application 開 發 利 器 - WebSnap!
第 捌 章 、 LocateFileService 元 件
LocateFileService 的 用 途 相 當 簡 單 ， 當 Page Module 要 取 得 Template 時 ， 她 會 先 取 得 LocateFileService 的 介 面 再 送 出 檔 案 要 求 給 她 ， 這 個 檔 案 要 求 有 兩 種 ， 一 種 是 你 在 HTML Template 中 使 用 了 以 下 的 命 令 碼 :
<!-- #include file="..\include\StdDemoHeader.html" -->
另 一 種 是 在 Page Module 要 取 得 HTML Template 時 ， 這 有 許 多 用 途 ， 有 些 時 候 我 們 希 望 將 HTML Template 隱 藏 起 來 ， 例 如 隱 藏 在 其 它 的 目 錄 中 ， 來 訪 者 就 不 能 夠 以 URL 直 接 取 得 我 們 的 Template File ， 或 是 直 接 將 Template File 放 在 程 式 的 Resource 區 段 ， 執 行 時 動 態 取 出 ， 在 Demo/Websnap 中 就 有 這 樣 的 範 例 ， 甚 至 有 時 我 們 想 將 Template 寫 死 在 程 式 中 ， 這 些 時 候 我 們 可 以 利 用 LocateFileService 的 三 個 事 件 來 處 理 :
8-1 LocateFileService 的 事 件
OnFindTemplateFile
在 範 例 中 有 一 個 DemoLocateService PageModule ， 她 的 HTML Template File 是 uDemoLocateService.html ， 我 希 望 將 她 放 在 使 用 者 無 法 讀 取 的 目 錄 中 :
procedure THome.LocateFileService1FindTemplateFile(ASender: TObject;
AComponent: TComponent; const AFileName: String; var AFoundFile: String;
var AHandled: Boolean);
var
I:Integer;
fs:TFileStream;
FN: array[0..255] of char;
AppPath:string;
begin
GetModuleFileName(hInstance,FN,SizeOf(FN));
AppPath:=ExtractFileDir(FN);
if AFileName = 'uDemoLocateService.html' then
AFoundFile:=AppPath+'\Template\uDemoLocateService.html';
end;
上 面 的 程 式 碼 促 使 Page Module 使 用 \Template\uDemoLocateService.html 這 個 檔 案 ， 而 不 是 原 來 的 uDemoLocateService.html 。
OnFindIncludeFile
這 個 事 件 會 在 你 的 HTML Template 中 含 有 include file 命 令 時 被 觸 發 ， 處 理 方 式 與 上 面 的 FindTemplateFile 相 同 。
OnFindStream
與 OnFindTemplateFile 觸 發 時 機 相 同 ， 不 過 我 們 可 以 用 Stream 來 代 替 實 際 檔 案 ， 這 在 我 們 將 HTML Template 寫 在 程 式 中 ， 或 是 由 Resource 中 取 出 HTML Template 時 使 用 。
本 章 後 記
LocateFileService 很 簡 單 ， 但 卻 相 當 有 用 ， 我 們 可 以 利 用 她 來 撰 寫 一 些 需 要 動 態 改 變 網 頁 內 容 ， 亦 或 是 需 要 隱 藏 HTML Template 時 ， 多 虧 了 她 ， 你 少 寫 了 許 多 的 程 式 碼 。
