Web Application 開 發 利 器 - WebSnap（八） (轉)

Web Application 開 發 利 器 - WebSnap（八） (轉)[@more@]

Application 開 發 利 器 - WebSnap!

第 捌 章 、 LocateFileService 元 件

 

  LocateFileService 的 用 途 相 當 簡 單 ， 當 Page Module 要 取 得 Template 時 ， 她 會 先 取 得 LocateFileService 的 介 面 再 送 出 檔 案 要 求 給 她 ， 這 個 檔 案 要 求 有 兩 種 ， 一 種 是 你 在 HTML Template 中 使 用 了 以 下 的 命 令 碼 :

<!-- #include file="..includeStdDemoHeader.html" --&gt

 

另 一 種 是 在 Page Module 要 取 得 HTML Template 時 ， 這 有 許 多 用 途 ， 有 些 時 候 我 們 希 望 將 HTML Template 隱 藏 起 來 ， 例 如 隱 藏 在 其 它 的 目 錄 中 ， 來 訪 者 就 不 能 夠 以 URL 直 接 取 得 我 們 的 Template File ， 或 是 直 接 將 Template File 放 在 程 式 的 Re 區 段 ， 執 行 時 動 態 取 出 ， 在 Demo/Websnap 中 就 有 這 樣 的 範 例 ， 甚 至 有 時 我 們 想 將 Template 寫 死 在 程 式 中 ， 這 些 時 候 我 們 可 以 利 用 LocateFileService 的 三 個 事 件 來 處 理 :

 8-1 LocateFileService 的 事 件

 

OnFindTemplateFile

  在 範 例 中 有 一 個 DemoLocateService PageModule ， 她 的 HTML Template File 是 uDemoLocateService.html ， 我 希 望 將 她 放 在 使 用 者 無 法 讀 取 的 目 錄 中 :  

procedure THome.LocateFileService1FindTemplateFile(ASender: T;

  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+'TemplateuDemoLocateService.html';

end; 

 

上 面 的 程 式 碼 促 使 Page Module 使 用 TemplateuDemoLocateService.html 這 個 檔 案 ， 而 不 是 原 來 的 uDemoLocateService.html 。  

 OnFindIncludeFile

  這 個 事 件 會 在 你 的 HTML Template 中 含 有 include file 命 令 時 被 觸 發 ， 處 理 方 式 與 上 面 的 FindTemplateFile 相 同 。

 OnFindStream

  與 OnFindTemplateFile 觸 發 時 機 相 同 ， 不 過 我 們 可 以 用 Stream 來 代 替 實 際 檔 案 ， 這 在 我 們 將 HTML Template 寫 在 程 式 中 ， 或 是 由 Resource 中 取 出 HTML Template 時 使 用 。

 

本 章 後 記

  LocateFileService 很 簡 單 ， 但 卻 相 當 有 用 ， 我 們 可 以 利 用 她 來 撰 寫 一 些 需 要 動 態 改 變 網 頁 內 容 ， 亦 或 是 需 要 隱 藏 HTML Template 時 ， 多 虧 了 她 ， 你 少 寫 了 許 多 的 程 式 碼 。

 　

<>