开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
home_dm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

home_dm.pas：源码内容
  1. unit home_dm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd, ReqMulti,
  7.   WebDisp, WebAdapt, WebComp;
  9. type
  10.   Thome = class(TWebAppPageModule)
  11.     PageProducer: TPageProducer;
  12.     WebAppComponents: TWebAppComponents;
  13.     ApplicationAdapter: TApplicationAdapter;
  14.     PageDispatcher: TPageDispatcher;
  15.     AdapterDispatcher: TAdapterDispatcher;
  16.     Count: TAdapterField;
  17.     procedure PageDispatcherBeforeDispatchPage(Sender: TObject;
  18.       const PageName: String; var Handled: Boolean);
  19.     procedure CountGetValue(Sender: TObject; var Value: Variant);
  20.   private
  21.     HitCount: Integer;
  22.   public
  23.     { Public declarations }
  24.   end;
  26.   function home: Thome;
  28. implementation
  30. {$R *.dfm}  {*.html}
  32. uses WebReq, WebCntxt, WebFact, Variants;
  34. function home: Thome;
  35. begin
  36.   Result := Thome(WebContext.FindModuleClass(Thome));
  37. end;
  39. procedure Thome.PageDispatcherBeforeDispatchPage(Sender: TObject;
  40.   const PageName: String; var Handled: Boolean);
  41. begin
  42.   Inc (HitCount);
  43. end;
  45. procedure Thome.CountGetValue(Sender: TObject; var Value: Variant);
  46. begin
  47.   Value := HitCount;
  48. end;
  50. initialization
  51.   if WebRequestHandler <> nil then
  52.     WebRequestHandler.AddWebModuleFactory(TWebAppPageModuleFactory.Create(Thome, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.html'), caCache));
  54. end.