ITPub博客

首页 > Linux操作系统 > Linux操作系统 > Web Application 開 發 利 器 - WebSnap(十) (转)

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

原创 Linux操作系统 作者:WebSnap 时间:2019-01-25 09:54:04 0 删除 编辑
Web Application 開 發 利 器 - WebSnap(十) (转)


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 應 用>




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

上一篇: 没有了~
请登录后发表评论 登录
全部评论

注册时间:2008-01-04

  • 博文量
    16
  • 访问量
    7206