delphimvcframework/samples/master_details/WebModuleUnit1.pas

unit WebModuleUnit1;

interface

uses System.SysUtils, System.Classes, Web.HTTPApp, mvcframework;

type
  TWebModule1 = class(TWebModule)
    procedure WebModuleCreate(Sender: TObject);
  private
    FEngine: TMVCEngine;
  public
    { Public declarations }
  end;

var
  WebModuleClass: TComponentClass = TWebModule1;

implementation

{ %CLASSGROUP 'Vcl.Controls.TControl' }

uses Controllers.Orders, mvcframework.Middleware.CORS, mvcframework.Middleware.Compression,
  Controllers.Base, MVCFramework.Commons, MVCFramework.Middleware.ActiveRecord,
  FDConnectionConfigU;

{$R *.dfm}

procedure TWebModule1.WebModuleCreate(Sender: TObject);
begin
  FEngine := TMVCEngine.Create(self,
    procedure(Config: TMVCConfig)
    begin
      //Enabling the following line, the API will start to respond from "/api/v1"
      //So "/articles/1" becomes "/api/v1/articles/1"
      //Config[TMVCConfigKey.PathPrefix] := '/api/v1';
    end);
  FEngine.AddController(TOrdersController);
{$IFDEF TESTINSTANCE}
  FEngine.AddController(TPrivateController);
{$ENDIF}
  FEngine.AddMiddleware(TMVCActiveRecordMiddleware.Create(CON_DEF_NAME, ''));
  FEngine.AddMiddleware(TCORSMiddleware.Create);
  FEngine.AddMiddleware(TMVCCompressionMiddleware.Create(256));

end;

end.