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

Delphi控件源码

开发平台:

Delphi

  1. unit Unit1;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd, xmldom,
  5.   XMLIntf, Provider, DB, DBTables, XMLBrokr, msxmldom, XMLDoc, XSLProd;
  6. type
  7.   TXSLPageProducerPage1 = class(TWebPageModule)
  8.     XSLPageProducer: TXSLPageProducer;
  9.     XMLBroker1: TXMLBroker;
  10.     Table1: TTable;
  11.     DataSetProvider1: TDataSetProvider;
  12.   private
  13.     { Private declarations }
  14.   public
  15.     { Public declarations }
  16.   end;
  17.   function XSLPageProducerPage1: TXSLPageProducerPage1;
  18. implementation
  19. {$R *.dfm}  {*.xsl}
  20. uses WebReq, WebCntxt, WebFact, Variants;
  21. function XSLPageProducerPage1: TXSLPageProducerPage1;
  22. begin
  23.   Result := TXSLPageProducerPage1(WebContext.FindModuleClass(TXSLPageProducerPage1));
  24. end;
  25. initialization
  26.   if WebRequestHandler <> nil then
  27.     WebRequestHandler.AddWebModuleFactory(TWebPageModuleFactory.Create(TXSLPageProducerPage1, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.xsl'), crOnDemand, caCache));
  28. end.