Web Application 開 發 利 器 - WebSnap(十)

原创 2001年12月11日 10:24:00


Web Application 開 發 利 器 - WebSnap!

第 十 章 、 WebService+WebSnap

  記 得 我 曾 經 說 過 要 與 你 討 論 將 WebService 應 用 在 WebSnap 中 嗎 ? 相 信 你 對 如 何 做 已 經 有 概 念 了 , 這 很 簡 單 , 你 只 要 建 立 一 個 新 的 Page Module 在 裡 面 使 用 HTTPRIO 就 可 以 了 : 

procedure TWebService.AdaptGoExecute(Sender: TObject; Params: TStrings);

var

  URL:string;

begin

  if AdaptNewsType.ActionValue.Values[0] = 'DelphiNews' then

     URL:=(HTTPRIO1 as IHeadLine).DelphiNews(1)

  else if AdaptNewsType.ActionValue.Values[0] = 'CBuilderNews' then

     URL:=(HTTPRIO1 as IHeadLine).CBuilderNews(1)

  else if AdaptNewsType.ActionValue.Values[0] = 'JBuilderNews' then

     URL:=(HTTPRIO1 as IHeadLine).JBuilderNews(1)

  else if AdaptNewsType.ActionValue.Values[0] = 'KylixNews' then

     URL:=(HTTPRIO1 as IHeadLine).KylixNews(1)

  else if AdaptNewsType.ActionValue.Values[0] = 'SoapNews' then

     URL:=(HTTPRIO1 as IHeadLine).SoapNews(1)

  else if AdaptNewsType.ActionValue.Values[0] = 'BorConNews' then

     URL:=(HTTPRIO1 as IHeadLine).BorConNews(1);

  Response.Content:=URL; 

end;

  AdaptGoExecute 是 一 個 Action , AdaptNewsType 則 是 一 個 AdapterField , 你 應 該 很 清 楚 如 何 結 合 她 們 , 範 例 程 式 中 有 這 段 程 式 碼 , 不 過 我 建 議 你 自 己 試 試 看 。 

 

<第 十 一 章 、 ImageButtonProducer 應 用>



Web Application 開 發 利 器 - WebSnap(四)

Web Application 開 發 利 器 - WebSnap!第 四 章 、 進 階 資 料 庫 網 頁 設 計    在 上 一 節 我 們 討 論 了 基 本 資 料 庫 網 頁 的 設 計...
  • rh
  • rh
  • 2001年12月11日 10:23
  • 946

Web Application 開 發 利 器 - WebSnap(一)

  • zgqtxwd
  • zgqtxwd
  • 2008年05月01日 00:06
  • 1023

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

Web Application 開 發 利 器 - WebSnap!第 十 三 章 、 Adapter 與 Wrapper   我 們 在 前 面 幾 節 都 稍 稍 的 提 到 Adapter 及 ...
  • rh
  • rh
  • 2001年12月09日 15:32
  • 841

Web Application 開 發 利 器 - WebSnap(十二)

Web Application 開 發 利 器 - WebSnap!第 十 二 章 、 DateTime 欄 位 的 拆 解 與 LookupField 、 Postback 技 術   在 撰 寫 ...
  • rh
  • rh
  • 2001年12月09日 15:32
  • 1085

Web Application 開 發 利 器 - WebSnap(六)

Web Application 開 發 利 器 - WebSnap!第 六 章 、 執 行 者 : TAdapterDispatcher 及 AdapterAction  6-1 Action 的 運...
  • rh
  • rh
  • 2001年12月09日 15:33
  • 1029

Web Application 開 發 利 器 - WebSnap(九)

Web Application 開 發 利 器 - WebSnap!第 玖 章 、 圖 形 及 超 連 結   9-1 簡 單 的 圖 形 顯 示   在 之 前 的 資 料 庫 程 式 中 我 們 ...
  • rh
  • rh
  • 2001年12月09日 15:33
  • 850

Web Application 開 發 利 器 - WebSnap(八)

Web Application 開 發 利 器 - WebSnap!第 捌 章 、 LocateFileService 元 件   LocateFileService 的 用 途 相 當 簡 單 , ...
  • rh
  • rh
  • 2001年12月09日 15:33
  • 691

Web Application 開 發 利 器 - WebSnap(三)

Web Application 開 發 利 器 - WebSnap!第 參 章 、 WebSnap 與 資 料 庫  3-1 基 本 概 念   WebSnap 對 於 資 料 庫 的 支 援 能 力...
  • rh
  • rh
  • 2001年12月11日 10:02
  • 1362

Web Application 開 發 利 器 - WebSnap(十一)

Web Application 開 發 利 器 - WebSnap!第 十 一 章 、 ImageButtonProducer 應 用    在 WebSnap 的 範 例 中 , 有 幾 個 元 件...
  • rh
  • rh
  • 2001年12月09日 15:32
  • 889

Web Application 開 發 利 器 - WebSnap(二)

Web Application 開 發 利 器 - WebSnap!第 二 章 、 第 一 個 WebSnap 程 式 2-1 、 起 步 走  前 面 談 了 許 多 理 論 , 這 一 章 我 們...
  • rh
  • rh
  • 2001年12月11日 09:58
  • 1475
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Web Application 開 發 利 器 - WebSnap(十)
举报原因:
原因补充:

(最多只允许输入30个字)