Web Application 開 發 利 器 - WebSnap（十三） (转)

Web Application 開 發 利 器 - WebSnap（十三） (转)[@more@]

web Application 開 發 利 器 - WebSnap!

第 十 三 章 、 Adapter 與 Wrapper

   我 們 在 前 面 幾 節 都 稍 稍 的 提 到 Adapter 及 Wrapper 之 間 的 關 係 ， 我 們 都 知 道 ， WebSnap 利 用 Adapters 加 上 Wrapper 來 串 接 Code 與 Script ， 但 是 我 們 一 直 沒 有 真 正 詳 細 的 檢 視 她 們 是 如 何 合 作 ， 特 定 的 Adapter 又 提 供 了 那 一 個 Wrapper ， 這 裡 我 們 就 詳 細 的 討 論 她 們 吧 ! 

13-1 Wrapper object 與 Adapter Component

 ( 圖 :9)

 

上 圖 中 我 們 可 以 了 解 ， 當 我 們 在 Script 中 下 達 Application.Today.Value 這 個 Script 命 令 時 ， 其 實 我 們 正 在 操 作 一 個 Adapter Wrapper Object ， 藉 由 這 個 Adapter Wrapper Object ， 我 們 可 以 操 作 到 位 於 Delphi 程 式 中 的 Adapter Component ， 當 Application 這 個 Adapter Wrapper Object 接 到 .Today 這 個 屬 性 要 求 時 ， 她 會 將 動 作 轉 向 至 位 於 DELPHI 程 式 中 的 Adapter Component ， 找 到 Today 這 個 Adapter Field Component ， 然 後 建 立 一 個 Adapter Field Wrapper Object 傳 回 給 Active Script ， 我 們 也 就 可 以 在 Active Script 使 用 這 個 Adapter Field Wrapper Object 來 操 作 位 於 DELPHI 程 式 中 的 Adapter Field Component 取 得 Value 值 了 ， 其 實 所 謂 的 Wrapper Object 就 是 我 們 熟 悉 的 com 物 件 ， 所 以 我 們 才 能 在 Active Script 中 操 作 她 們 ， 因 此 當 你 完 成 了 一 個 WebSnap 程 式 後 ， 你 要 將 這 些 COM 物 件 安 裝 在 Web-Server 的 電 腦 上 ， 這 樣 才 能 正 常 執 行 WebSnap 程 式 ， DELPHI 6 附 了 一 個 簡 易 的 windows Installer: InstallShield Express 3.5 ， 你 可 以 在 Delphi6MergeModules 中 找 到 相 關 的 安 裝 檔 案 。

 

13-2 Modules(Global)

  這 是 全 域 型 的 Wrapper ， 基 本 上 她 是 橋 接 WebContext 中 的 WebModules ， 讓 我 們 可 以 列 出 目 前 程 式 所 有 已 建 立 的 Module ， 或 是 利 用 她 來 取 得 特 定 的 Module ， 當 然 ! 這 個 Module 必 需 是 已 建 立 的 ， 以 下 是 列 出 所 有 已 建 立 的 Modules Script 程 式 :  

  mdlist=new Enumerator(Modules)

  s = ''

  for (; !mdlist.atEnd(); mdlist.moveNext())

  {

  s+='

'+mdlist.item().Name_+'

'

  }

  Response.Write(s)

%>

 

Response 是 另 一 個 全 域 型 Wrapper ， 我 們 會 在 下 面 談 到 ， 她 的 功 能 就 與 ASP 內 的 Response 一 樣 ， 輸 出 字 串 到 目 的 HTML 文 件 中 。 我 們 也 可 以 利 用 Modules 來 取 得 特 定 的 Module: 

 並 經 由 這 個 Module Wrapper 取 得 她 裡 面 所 包 含 的 Wrapper 物 件 :

 

13-3 Application(Global)

  她 是 ApplicationAdapter 的 Wrapper 物 件 ， 你 可 以 經 由 她 取 得 Application.Title 這 個 值 : 

 或 是 你 在 on-line help 中 所 看 到 的 完 整 路 徑 範 例 : 

  function PathInfoToRelativePath(S)

  {

  var R = '';

  var L = S.length

  I = 0

  while (I < L)

  {

  if (S.charAt(I) == '/')

  R = R + '../'

  I++

  }

  return R

  }

  function QualifyImage(S)

  {

  if (Application.Designing)

  return Application.QualifyFileName("..images" + S);  // relative directory

  else

  return PathInfoToRelativePath(Request.PathInfo) + '../images/' + S;  // virtual directory

}

%>

  這 個 程 式 是 用 來 取 得 程 式 的 絕 對 路 徑 或 是 虛 擬 站 台 的 URL ， 由 於 我 們 在 Visual Page Designer 的 Preview 功 能 中 需 要 的 是 絕 對 路 徑 ， 但 在 實 際 網 站 中 需 要 的 是 URL ， 因 此 她 提 供 了 Designing 特 性 值 讓 我 們 判 別 目 前 是 處 於 Visual Page Designer 還 是 實 際 站 台 中 ， 在 這 個 程 式 中 QualifyFileName 就 是 取 得 絕 對 路 徑 的 函 式 ， 其 中 的 .. 會 往 上 移 一 層 ， 假 設 絕 對 路 徑 是 c:tempexamples1 ， 那 結 果 就 是 c:tempimages + S 。

 由 於 ApplicationAdapter 也 是 Adapter 其 中 的 一 員 ， 因 此 我 們 也 可 以 像 操 作 Adapter 一 樣 操 作 她 :  

 也 可 以 利 用 Adapter 的 Fields 來 取 出 所 有 的 AdapterField 

  adlist=new Enumerator(Application.Fields)

  s = ''

  for (; !adlist.atEnd(); adlist.moveNext())

  { 

  s+='

'+adlist.item().Name+'

'

  }

  Response.Write(s)

%>

 或 是 Actions 物 件 

  adlist=new Enumerator(Application.Actions)

  s = ''

  for (; !adlist.atEnd(); adlist.moveNext())

  {

  s+='

'+adlist.item().Name+'

'

  } 

  Response.Write(s)

%> 

 其 它 的 部 份 你 可 以 參 考 下 面 的 Adapter Wrapper 。 

 

13-4 Request(Global) 

與 ASP 中 的 Request 物 件 意 義 一 樣 ， 用 來 取 得 HTTP Request 的 一 些 資 訊 ， 你 可 以 在 Script 中 加 入 以 下 的 Script 碼 就 明 白 了 : 

 

13-5 Response(Global)

 等 同 ASP 中 的 Response 物 件 ， 我 想 你 應 該 很 清 楚 用 途 才 是 !

 

13-6 EndUser(Global)

 她 是 EndUserAdapter 的 Wrapper ， 技 術 上 來 說 ， 不 管 你 有 沒 有 放 至 EndUserAdapter 到 AppModule 上 ， 她 都 會 被 建 立 出 來 ， 只 是 實 體 物 件 有 沒 有 被 建 立 而 已 ， 因 此 你 可 以 安 全 的 在 Script 使 用 她 ， 而 不 在 意 EndUserAdapter 存 不 存 在 :

 

歡 迎 你 今 年 是 歲

  Logout

  >Login

 

 

她 與 ApplicationAdapter 一 樣 ， 都 屬 於 Adapter 類 ， 因 此 你 也 可 以 像 使 用 一 般 的 Adapter 一 樣 使 用 她 ， 上 面 的 程 式 有 展 示 這 一 點 ， Logout 及 LoginFoRM 都 是 AdapterAction ， 下 面 會 談 到 這 個 Wrapper 。

13-7 Session(Global)

她 與 ASP 中 的 Session 物 件 大 致 相 同 ， 她 Wrapper 了 TWebSession 物 件 ， 與 EndUser 相 同 ， 不 管 你 有 沒 有 放 至 SessionsService 她 都 會 被 建 立 出 來 ， 只 是 有 沒 有 實 體 物 件 而 已 ， 你 可 以 利 用 Session.SessionID.Value 來 取 得 SessionID 的 值 ， 也 可 以 利 用 Session.Value (名 稱) 來  取 得 Session 中 的 值 。

 

 

13-8 Page

 她 Wrapper 了 WebPageInfo ， 也 就 是 你 在 Page Module 最 後 一 行 中 的 設 定 值 : 

紅 色 的 部 份 在 使 用 時 要 特 別 小 心 ， 因 為 Page 中 不 一 定 要 有 DefautlAction ， 因 此 她 有 可 能  是 空 值 ， 而 且 取 得 DefaultAction 會 引 發 Page Module 的 自 動 建 立 動 作 ， CanView 及 LoginRequired 是 用 來 管 理 使 用 者 及 權 限 控 制 用 。

 

13-9 Producer

技 術 上 她 與 Response 大 致 相 同 ， 只 是 它 可 以 寫 入 HTML Tag: 

')%>

 

接 著 你 就 可 以 在 Producer 的 OnHTMLTag 事 件 中 取 代 這 個 Tag ， 如 果 寫 入 的 資 料 不 是 HTML Tag 的 話 ， 使 用 Response 會 較 有 效 率 。

　

13-10 Adapter 

標 準 的 AdapterWrapper ， 指 的 是 TAdapter 或 是 TDataSetAdapter 等 ， 她 提 供 了 Fields,Actions 兩 個 列 舉 器 ， 我 們 可 以 經 由 她 們 列 出 AdapterFields 及 AdapterActions: 

  adlist=new Enumerator(Application.Fields)

  s = ''

  for (; !adlist.atEnd(); adlist.moveNext())

  {

  s+='

'+adlist.item().Name+'

'

  }

  Response.Write(s)

%>

  adlist=new Enumerator(Application.Actions)

  s = ''

  for (; !adlist.atEnd(); adlist.moveNext())

  {

  s+='

'+adlist.item().Name+'

'

  }

  Response.Write(s)

%>

當 一 個 網 頁 執 行 了 Action 後 發 生 錯 誤 導 向 錯 誤 網 頁 時 ， 我 們 可 以 利 用 她 的 Errors 來 取 出  錯 誤 訊 息 : 

  var e = new Enumerator(Modules.CountryTable.Adapter.Errors)

  for (; !e.atEnd(); e.moveNext())

  {

  Response.Write("

" + e.item().Message)

  }

  e.moveFirst()

%>

當 使 用 的 Adapter 有 多 筆 資 料 時 ， 例 如 TDataSetAdapter 跟 之 前 我 們 所 撰 寫 的 MyAdapter ， 我 們 可 以 利 用 Records  列 舉 器 來 移 動 記 錄 位 置 : 

  for (; !e.atEnd(); e.moveNext())

  { %>

 

  { %>

 

1, '')%>

 

你 可 以 在 AdapterGrid 中 所 產 生 的 Script 看 到 一 樣 的

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-996885/，如需转载，请注明出处，否则将追究法律责任。

0

0

分享到：

上一篇： Web Application 開 發 利 器 - WebSnap（十二） (转)

下一篇： Drag and Drop: New Data Transfer Capabilities in the JavaTM 2 Platform, Standard Edition (J2SETM), v

请登录后发表评论 登录

全部评论

<%=items[i].createtime%>

<%=items[i].content%>

<%if(items[i].items.items.length) { %>

<%for(var j=0;j

<%=items[i].items.items[j].createtime%> 回复

<%=items[i].items.items[j].username%>   回复   <%=items[i].items.items[j].tousername%>： <%=items[i].items.items[j].content%>

<%}%> <%if(items[i].items.total > 5) { %>

还有<%=items[i].items.total-5%>条评论 ) data-count=1 data-flag=true>点击查看

<%}%>

<%}%> <%}%>

worldblog

• 博文量
  6241
• 访问量
  2395969

最新文章

• 可怕的 C# (转)
• Unify the Role-Based Security Models for Enterprise and Application Domains with .NET (转)
• Building Secure ASP.NET Applications: Authentication, Authorization, and Secure Communication (转)
• [Sample] Playing with music file (转)
• 中文web-app_2_3.dtd (转)
• 使用ASP.NET加密口令 (转)
• C++ Builder 高手进阶 （五）用BCB编写多线程应用程序 (转)
• 24点游戏探秘系列6：用概率统计的眼光看24点游戏 (转)
• Schema-oriented message destination (转)
• J2EE vs. Microsoft.NET (转)

支持我们 作者招募 用户协议 FAQ Contact Us

北京盛拓优讯信息技术有限公司. 版权所有  京ICP备09055130号-4  北京市公安局海淀分局网监中心备案编号：11010802021510

广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员

转载于:http://blog.itpub.net/10752043/viewspace-996885/