unit WebModuleU;
interface
uses
System.SysUtils,
System.Classes,
MVCFramework,
Web.HTTPApp,
System.NetEncoding;
type
TMyWebModule = class(TWebModule)
procedure WebModuleCreate(Sender: TObject);
procedure WebModuleDestroy(Sender: TObject);
private
FMVC: TMVCEngine;
public
{ Public declarations }
end;
var
WebModuleClass: TComponentClass = TMyWebModule;
implementation
{$R *.dfm}
uses
MyControllerU,
MVCFramework.Commons,
MVCFramework.Middleware.StaticFiles,
System.Rtti, System.IOUtils;
procedure TMyWebModule.WebModuleCreate(Sender: TObject);
var
lExceptionHandler: TMVCExceptionHandlerProc;
begin
lExceptionHandler := procedure(
E: Exception;
SelectedController: TMVCController;
WebContext: TWebContext;
var ExceptionHandled: Boolean)
var
lColor: string;
begin
if E is EMyException then
begin
case EMyException(E).Severity of
Fatal, Error:
lColor := 'red';
Warning:
lColor := 'yellow';
Information:
lColor := 'blue';
else
lColor := 'black';
end;
WebContext.Response.ContentType := TMVCMediaType.TEXT_HTML;
WebContext.Response.Content :=
'Error occurred
' +
Format('', [lColor]) + TNetEncoding.HTML.Encode
(EMyException(E).ToString) + '
' +
'your truly custom exception handler...
' +
'';
ExceptionHandled := True;
end
else if E is EMVCException then
begin
WebContext.Response.ContentType := TMVCMediaType.TEXT_HTML;
WebContext.Response.Content :=
'Error occurred
' +
Format('', [lColor]) + TNetEncoding.HTML.Encode
(E.Message) + '
' +
'your truly custom exception handler...
' +
'';
ExceptionHandled := True;
end;
end;
FMVC := TMVCEngine.Create(Self,
procedure(Config: TMVCConfig)
begin
// session timeout (0 means session cookie)
Config[TMVCConfigKey.SessionTimeout] := '0';
// default content-type
Config[TMVCConfigKey.DefaultContentType] := TMVCConstants.DEFAULT_CONTENT_TYPE;
// default content charset
Config[TMVCConfigKey.DefaultContentCharset] := TMVCConstants.DEFAULT_CONTENT_CHARSET;
// unhandled actions are permitted?
Config[TMVCConfigKey.AllowUnhandledAction] := 'false';
// default view file extension
Config[TMVCConfigKey.DefaultViewFileExtension] := 'html';
// view path
Config[TMVCConfigKey.ViewPath] := 'templates';
// Enable Server Signature in response
Config[TMVCConfigKey.ExposeServerSignature] := 'true';
end);
FMVC.AddController(TMyController);
FMVC.SetExceptionHandler(lExceptionHandler);
end;
procedure TMyWebModule.WebModuleDestroy(Sender: TObject);
begin
FMVC.Free;
end;
end.