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



  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

rh

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值