Unit1.pas
资源名称:delphi.rar [点击查看]
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:
Delphi控件源码
开发平台:
Delphi
- unit Unit1;
- interface
- uses
- Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd, xmldom,
- XMLIntf, Provider, DB, DBTables, XMLBrokr, msxmldom, XMLDoc, XSLProd;
- type
- TXSLPageProducerPage1 = class(TWebPageModule)
- XSLPageProducer: TXSLPageProducer;
- XMLBroker1: TXMLBroker;
- Table1: TTable;
- DataSetProvider1: TDataSetProvider;
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- function XSLPageProducerPage1: TXSLPageProducerPage1;
- implementation
- {$R *.dfm} {*.xsl}
- uses WebReq, WebCntxt, WebFact, Variants;
- function XSLPageProducerPage1: TXSLPageProducerPage1;
- begin
- Result := TXSLPageProducerPage1(WebContext.FindModuleClass(TXSLPageProducerPage1));
- end;
- initialization
- if WebRequestHandler <> nil then
- WebRequestHandler.AddWebModuleFactory(TWebPageModuleFactory.Create(TXSLPageProducerPage1, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.xsl'), crOnDemand, caCache));
- end.