转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 软件开发 >> Delphi程序 >> 正文
Web Application 開 發 利 器 - WebSnap(八)         ★★★★

Web Application 開 發 利 器 - WebSnap(八)

作者:闵涛 文章来源:闵涛的学习笔记 点击数:675 更新时间:2009/4/23 18:40:13

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 時 , 多 虧 了 她 , 你 少 寫 了 許 多 的 程 式 碼 。

  

<第 玖 章 、 圖 形 及 超 連 結>


[聊天工具]Gmail推出新功能:Web Clip__天极Yesky  [聊天工具]Web MSN你玩了吗__天极Yesky
[系统软件]Web Browser Express 概述  [系统软件]对Internet Explorer Web 控件做一点修改
[常用软件]小技巧:三步实现Web迅雷录制PPLive节目  [常用软件]天网防火墙:打开WEB和FTP服务
[VB.NET程序]使用VB.Net做一个配置web.config功能的WinForm(原…  [VB.NET程序]vb.net控件、web service简述
[VB.NET程序]使用vbscript脚本调用web服务  [VB.NET程序]*** Web 存储系统窗体:窗体注册表 (new)***
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台