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

Delphi控件源码

开发平台:

Delphi

  1. unit demoscript_dm;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd;
  5. type
  6.   Tdemoscript = class(TWebPageModule)
  7.     PageProducer: TPageProducer;
  8.   private
  9.     { Private declarations }
  10.   public
  11.     { Public declarations }
  12.   end;
  13.   function demoscript: Tdemoscript;
  14. implementation
  15. {$R *.dfm}  {*.html}
  16. uses WebReq, WebCntxt, WebFact, Variants;
  17. function demoscript: Tdemoscript;
  18. begin
  19.   Result := Tdemoscript(WebContext.FindModuleClass(Tdemoscript));
  20. end;
  21. initialization
  22.   if WebRequestHandler <> nil then
  23.     WebRequestHandler.AddWebModuleFactory(TWebPageModuleFactory.Create(Tdemoscript, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.html'), crOnDemand, caCache));
  24. end.