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

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

Delphi控件源码

开发平台：

Delphi

homepage_dm.pas：源码内容
  2. unit homepage_dm;
  4. interface
  6. uses
  7.   Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd, ReqMulti,
  8.   WebAdapt, WebForm, WebComp, MidItems, WebSess, WebDisp, CompProd,
  9.   PagItems, SiteProd;
  11. type
  12.   TSessionDemo = class(TWebAppPageModule)
  13.     WebAppComponents: TWebAppComponents;
  14.     ApplicationAdapter: TApplicationAdapter;
  15.     PageDispatcher: TPageDispatcher;
  16.     AdapterDispatcher: TAdapterDispatcher;
  17.     SessionsService: TSessionsService;
  18.     PageProducer1: TPageProducer;
  19.     Hits: TAdapterField;
  20.     SessionHits: TAdapterField;
  21.     procedure PageProducerHTMLTag(Sender: TObject; Tag: TTag;
  22.       const TagString: String; TagParams: TStrings;
  23.       var ReplaceText: String);
  24.     procedure WebAppPageModuleBeforeDispatchPage(Sender: TObject;
  25.       const PageName: String; var Handled: Boolean);
  26.     procedure HitsGetValue(Sender: TObject; var Value: Variant);
  27.     procedure SessionHitsGetValue(Sender: TObject; var Value: Variant);
  28.   private
  29.     nHits: Integer;
  30.   public
  31.     { Public declarations }
  32.   end;
  34.   function SessionDemo: TSessionDemo;
  36. implementation
  38. {$R *.dfm}  {*.html}
  40. uses WebReq, WebCntxt, WebFact, Variants;
  42. function SessionDemo: TSessionDemo;
  43. begin
  44.   Result := TSessionDemo(WebContext.FindModuleClass(TSessionDemo));
  45. end;
  47. procedure TSessionDemo.PageProducerHTMLTag(Sender: TObject;
  48.   Tag: TTag; const TagString: String; TagParams: TStrings;
  49.   var ReplaceText: String);
  50. begin
  51.   if TagString = 'SessionID' then
  52.     ReplaceText := WebContext.Session.SessionID
  53.   else if TagString = 'SessionHits' then
  54.     ReplaceText := WebContext.Session.Values ['SessionHits']
  55. end;
  57. procedure TSessionDemo.WebAppPageModuleBeforeDispatchPage(
  58.   Sender: TObject; const PageName: String; var Handled: Boolean);
  59. begin
  60.   // increase application and session hits
  61.   Inc (nHits);
  62.   WebContext.Session.Values ['SessionHits'] :=
  63.     Integer (WebContext.Session.Values ['SessionHits']) + 1;
  64. end;
  66. procedure TSessionDemo.HitsGetValue(Sender: TObject; var Value: Variant);
  67. begin
  68.   Value := nHits;
  69. end;
  71. procedure TSessionDemo.SessionHitsGetValue(Sender: TObject;
  72.   var Value: Variant);
  73. begin
  74.   Value := Integer (WebContext.Session.Values ['SessionHits']);
  75. end;
  77. initialization
  78.   if WebRequestHandler <> nil then
  79.     WebRequestHandler.AddWebModuleFactory(TWebAppPageModuleFactory.Create(TSessionDemo, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.html'), caCache));
  81. end.