country_dm.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit country_dm;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd;
  5. type
  6.   Tdate = class(TWebPageModule)
  7.     PageProducer: TPageProducer;
  8.     procedure PageProducerHTMLTag(Sender: TObject; Tag: TTag;
  9.       const TagString: String; TagParams: TStrings;
  10.       var ReplaceText: String);
  11.   private
  12.     { Private declarations }
  13.   public
  14.     { Public declarations }
  15.   end;
  16.   function date: Tdate;
  17. implementation
  18. {$R *.dfm}  {*.html}
  19. uses WebReq, WebCntxt, WebFact, Variants;
  20. function date: Tdate;
  21. begin
  22.   Result := Tdate(WebContext.FindModuleClass(Tdate));
  23. end;
  24. procedure Tdate.PageProducerHTMLTag(Sender: TObject; Tag: TTag;
  25.   const TagString: String; TagParams: TStrings; var ReplaceText: String);
  26. begin
  27.   if TagString = 'date' then
  28.     ReplaceText := DateToStr (Now)
  29.   else if TagString = 'time' then
  30.     ReplaceText := TimeToStr (Now);
  31. end;
  32. initialization
  33.   if WebRequestHandler <> nil then
  34.     WebRequestHandler.AddWebModuleFactory(TWebPageModuleFactory.Create(Tdate, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.html'), crOnDemand, caCache));
  35. end.