unit XslCustDm;
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd, ReqMulti,
xmldom, XMLIntf, WebDisp, WebAdapt, WebComp, msxmldom, XMLDoc, XSLProd,
Provider, DB, DBTables, XMLBrokr;
type
Tcustomers = class(TWebAppPageModule)
XSLPageProducer: TXSLPageProducer;
WebAppComponents: TWebAppComponents;
ApplicationAdapter: TApplicationAdapter;
PageDispatcher: TPageDispatcher;
AdapterDispatcher: TAdapterDispatcher;
XMLBroker1: TXMLBroker;
Table1: TTable;
DataSetProvider1: TDataSetProvider;
private
public
end;
function customers: Tcustomers;
implementation
uses WebReq, WebCntxt, WebFact, Variants;
function customers: Tcustomers;
begin
Result := Tcustomers(WebContext.FindModuleClass(Tcustomers));
end;
initialization
if WebRequestHandler <> nil then
WebRequestHandler.AddWebModuleFactory(TWebAppPageModuleFactory.Create(Tcustomers, TWebPageInfo.Create([wpPublished ], '.xsl'), caCache));
end.
|