您好,欢迎来到站长目录(28sn.com)!


使用 IntraWeb (32) - Url 映射与 THandlers

来源:网络整理 浏览:276次 时间:2021-09-15
使用 IntraWeb (32) - Url 映射与 THandlers    


最简单的 Url 映射是使用 TIWAppForm 的 class 方法: SetURL;

THandlers 是 IntraWeb XIV 新增的内容处理器, 它能完成的不仅仅是 Url 映射(转发?).

THandlers 通过虚拟路径、虚拟文件名, 可以转到或处理任何文件.

这个过程中会用到一个 TContentBase 类型的参数, TContentForm、TContentRedirect 是它的子类; 有时会需要从 TContentBase 继承出解决更多问题的子类.



THandlers 所在单元及继承链:
IW.Content.Handlers.THandlers < TObject

主要成员:


{添加到内容处理器: aPath: 虚拟路径; aDocument: 虚拟文件夹名; aHandler: 要添加的内容}class function Add(const aPath: string; const aDocument: string; aHandler: TContentBase): TContentBaseclass function Add(const aDocument: string; aHandler: TContentBase): TContentBase{添加为首页}class function AddStartHandler(const aPath: string; const aDocument: string; aHandler: TContentBase): TContentBaseclass function GetStartHandler(aSession: TIWApplication): TContentBase{添加对指定扩展名的统一处理}class function AddForExtension(const aExt: string; aHandler: TContentBase): TContentBaseclass function FindMatch(aFullPath: string): TContentBaseclass procedure RegisterGetStartHandlerProc(aProc: TGetStartHandlerProc = procedure(aSession: TIWApplication; var aHandler: TContentBase) of object)


TIWAppForm.SetURL 方法应该用在 initialization 部分, 如:


{假如有三个窗体, 这是 Unit1 的部分代码:}//...procedure TIWForm1.IWButton1Click(Sender: TObject);begin  WebApplication.GoToURL('bbb.aspx');//  WebApplication.GoToURL('abc/ccc.xxx');end;initialization  TIWForm1.SetAsMainForm;  TIWForm1.SetURL('', 'aaa.html'); //参数 1 是虚拟路径, '' 或 '/' 表示根路径; 参数 2 是虚拟文件名end.{这是 Unit2 的部分代码: -------------------------------------------}//...initialization  TIWForm2.SetURL('/', 'bbb.php'); //名字是虚拟的, 不是真的 php 文件end.{这是 Unit3 的部分代码: -------------------------------------------}//...initialization  TIWForm3.SetURL('/abc/', 'ccc.xxx');end.{通过如上设置, 上面三个窗体就对应了下面三个网址(假定测试地址是: 127.0.0.1:8888)}http://127.0.0.1:8888/aaa.htmlhttp://127.0.0.1:8888/bbb.phphttp://127.0.0.1:8888/abc/ccc.xxx


THandlers 测试一:


{代码主要写在 IWServerController 的 OnConfig 事件中, 下面是部分代码:}uses  IWInit, IWGlobal, Unit1, Unit2, Unit3, {Unit1-3 分别对应三个窗体}  IW.Content.Handlers, IW.Content.Base, IW.Content.Form, IW.Content.Redirect; {THandlers、TContentBase、TContentForm、TContentRedirect 分别需要的单元}{IWServerControllerBase.OnConfig 事件; 之前我是在 OnCreate 中测试的, 官方建议这些代码应该在 OnConfig 事件中}procedure TIWServerController.IWServerControllerBaseConfig(Sender: TObject);begin  THandlers.Add('', 'aaa.htm', TContentForm.Create(TIWForm1));  THandlers.AddStartHandler('', 'bbb.htm', TContentForm.Create(TIWForm2)); //纯属实验, 把 TIWForm2 设为首页  THandlers.AddForExtension('.php', TContentForm.Create(TIWForm3));        //只要访问 *.php 的页面, 就转到 TIWForm3  THandlers.Add('', 'ccc.htm', TContentRedirect.Create('xxx.html')); //假如在 wwwroot 下有 xxx.html, 那么访问 ccc.htm 就可以转到 xxx.htmlend;


THandlers 测试二: 关于自定义的 TContentBase, 官方给出了这样的例子:


{自定义 TContentXML 的单元: -----------------------------------------------------------}unit MyXml;interfaceuses Classes, IW.Content.Base, HTTPApp, IWApplication, IW.HTTP.Request, IW.HTTP.Reply;type  TContentXML = class(TContentBase)  protected    function Execute(aRequest: THttpRequest; aReply: THttpReply; const aPathname: string; aSession: TIWApplication; aParams: TStrings): Boolean; override;  public    constructor Create; override;  end;implementationuses IW.Content.Handlers, IWMimeTypes;constructor TContentXML.Create;begin  inherited;  mFileMustExist := False;end;function TContentXML.Execute(aRequest: THttpRequest; aReply: THttpReply; const aPathname: string; aSession: TIWApplication; aParams: TStrings): Boolean;begin  Result := True;  if Assigned(aReply) then  begin    aReply.ContentType := MIME_XML;    aReply.WriteString('My xml content here');  end;end;end.{ServerController 单元的部分相关代码: --------------------------------------------------}uses  IWInit, IWGlobal, IW.Content.Handlers, MyXml;{IWServerControllerBase.OnConfig 事件}procedure TIWServerController.IWServerControllerBaseConfig(Sender: TObject);begin  THandlers.Add('', 'XmlTest', TContentXML.Create);end;{Unit1 单元的部分相关代码: -------------------------------------------------------------}procedure TIWForm1.IWButton1Click(Sender: TObject);begin  WebApplication.GoToURL('XmlTest');end;


推荐站点

  • 我爱发烧音乐我爱发烧音乐

    我爱发烧音乐囊括了从流行音乐到古典音乐多个类型的音乐作品,专栏推荐最新的音乐,提供音乐排名榜单!可供免费线上收听音乐,歌曲流畅,音效极佳! 网站提供的钢琴以及二胡专栏,可供收听者,陶冶情操,改善心情,是难得的轻音乐典藏!

    www.520fs.com
  • 世纪音乐网世纪音乐网

    世纪音乐网是专业的在线音乐试听MP3下载网站。歌曲总计30余万首,收录了网上最新歌曲和流行音乐,DJ舞曲,非主流音乐,经典老歌,劲舞团歌曲,搞笑歌曲,儿童歌曲,英文歌曲等。是您上网听歌的最佳网站。

    www.ssjj.com
  • 杭州网杭州网

      杭州网是杭州地区唯一的新闻门户网站,由中共杭州市委宣传部、杭州日报报业集团和杭州广播电视集团共同组建的杭州网络传媒有限公司运营。

    www.hangzhou.com.cn
  • 深圳在线深圳在线

      深圳在线 www.szol.net是深圳本地最大、最早的地方生活资讯网站之一,网站名“深圳在线www.szol.net”由南方报业传媒集团编辑委员会总编辑、南方日报社总编辑、南方都市报总编辑、南方书画院名誉院长王春芙亲笔题名,深圳在线www.szol.net团队与深圳热线www.szonline.net、奥一网www.oeeee.com都源于全国最早成立于1996年的知名网络公司——深圳万用网。

    www.szol.net
  • 今题网今题网

     今题网- 中国领先的社区服务网,提供社区服务, 在线交友和商家推广服务,于2004年创建上线,公司现有员工超过百名。今题网自成立以来,凭借其独特的定位和丰富的社区交友功能, 凭借其团队超强的搜索引擎优化技术吸引超过千万的用户成为今题网的注册会员。

    www.jinti.com

鄂公网安备 42062502000001号