delphimvcframework/samples/winecellarserver/MainWebModuleUnit.pas

53 lines
1.0 KiB
ObjectPascal
Raw Normal View History

2013-10-29 16:51:16 +01:00
unit MainWebModuleUnit;
interface
uses
System.SysUtils,
System.Classes,
Web.HTTPApp,
MVCFramework;
2013-10-29 16:51:16 +01:00
type
Twm = class(TWebModule)
procedure WebModuleCreate(Sender: TObject);
private
MVCEngine: TMVCEngine;
public
{ Public declarations }
end;
var
WebModuleClass: TComponentClass = Twm;
implementation
uses
WineCellarAppControllerU,
MVCFramework.Commons,
MVCFramework.Middleware.StaticFiles,
System.IOUtils;
2013-10-29 16:51:16 +01:00
{$R *.dfm}
procedure Twm.WebModuleCreate(Sender: TObject);
begin
MVCEngine := TMVCEngine.Create(self,
procedure(Conf: TMVCConfig)
begin
// Conf.Value[tmvcconfigkey.PathPrefix] := '/dmvc';
end);
2013-10-29 16:51:16 +01:00
MVCEngine.AddController(TWineCellarApp);
if not IsLibrary then
begin
MVCEngine.AddMiddleware(TMVCStaticFilesMiddleware.Create('/app', { StaticFilesPath }
TPath.Combine(AppPath, '..\..\www'), { DocumentRoot }
'index.html' { IndexDocument - Before it was named fallbackresource }
));
end;
2013-10-29 16:51:16 +01:00
end;
end.