unit MainWebModuleUnit; interface uses System.SysUtils, System.Classes, Web.HTTPApp, MVCFramework, MVCFramework.Commons; type Twm = class(TWebModule) procedure WebModule1DefaultHandlerAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); procedure WebModuleCreate(Sender: TObject); procedure WebModuleDestroy(Sender: TObject); private MVCEngine: TMVCEngine; public { Public declarations } end; var WebModuleClass: TComponentClass = Twm; implementation uses WineCellarAppControllerU; {$R *.dfm} procedure Twm.WebModule1DefaultHandlerAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); begin Response.Content := 'Web Server Application'; end; procedure Twm.WebModuleCreate(Sender: TObject); begin MVCEngine := TMVCEngine.Create(self); MVCEngine.AddController(TWineCellarApp); MVCEngine.Config[TMVCConfigKey.DocumentRoot] := ''; // static files are not served by dmvc end; procedure Twm.WebModuleDestroy(Sender: TObject); begin MVCEngine.Free; end; end.