【delphi开源代码栏目提醒】：网学会员为需要delphi开源代码的朋友们搜集整理了EngineResult.pas相关资料，希望对各位网友有所帮助!

    
    unit EngineResult;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd;
    
    type
      TPageProducerPage1 = class(TWebPageModule)
        PageProducer: TPageProducer;
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
      function PageProducerPage1: TPageProducerPage1;
    
    implementation
    
    {$R *.dfm}  {*.html}
    
    uses WebReq, WebCntxt, WebFact, Variants;
    
    function PageProducerPage1: TPageProducerPage1;
    begin
      Result := TPageProducerPage1(WebContext.FindModuleClass(TPageProducerPage1));
    end;
    
    initialization
      if WebRequestHandler <> nil then
        WebRequestHandler.AddWebModuleFactory(TWebPageModuleFactory.Create(TPageProducerPage1, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], '.html'), crOnDemand, caCache));
    
    end.