|
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 應 用>
[聊天工具]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学以致用网] 
