开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
XslCustDm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

XslCustDm.pas：源码内容
  2. unit XslCustDm;
  4. interface
  6. uses
  7.   Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd, ReqMulti,
  8.   xmldom, XMLIntf, WebDisp, WebAdapt, WebComp, msxmldom, XMLDoc, XSLProd,
  9.   Provider, DB, DBTables, XMLBrokr;
  11. type
  12.   Tcustomers = class(TWebAppPageModule)
  13.     XSLPageProducer: TXSLPageProducer;
  14.     WebAppComponents: TWebAppComponents;
  15.     ApplicationAdapter: TApplicationAdapter;
  16.     PageDispatcher: TPageDispatcher;
  17.     AdapterDispatcher: TAdapterDispatcher;
  18.     XMLBroker1: TXMLBroker;
  19.     Table1: TTable;
  20.     DataSetProvider1: TDataSetProvider;
  21.   private
  22.     { Private declarations }
  23.   public
  24.     { Public declarations }
  25.   end;
  27.   function customers: Tcustomers;
  29. implementation
  31. {$R *.dfm}  {*.xsl}
  33. uses WebReq, WebCntxt, WebFact, Variants;
  35. function customers: Tcustomers;
  36. begin
  37.   Result := Tcustomers(WebContext.FindModuleClass(Tcustomers));
  38. end;
  40. initialization
  41.   if WebRequestHandler <> nil then
  42.     WebRequestHandler.AddWebModuleFactory(TWebAppPageModuleFactory.Create(Tcustomers, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.xsl'), caCache));
  44. end.