delphimvcframework/samples/articles_crud_server/Controllers.Base.pas

unit Controllers.Base;

interface

uses
  MVCFramework, MVCFramework.Commons, Services, MainDM;

type
  TBaseController = class abstract(TMVCController)
  strict private
    FDM: TdmMain;
    FArticlesService: TArticlesService;
    function GetDataModule: TdmMain;
  strict protected
    function GetArticlesService: TArticlesService;
  public
    destructor Destroy; override;

  end;

  [MVCPath('/private')]
  TPrivateController = class(TBaseController)
  public
    [MVCPath('/articles')]
    [MVCHTTPMethods([httpDELETE])]
    procedure DeleteAllArticles;
  end;

implementation

uses
  System.SysUtils;

{ TBaseController }

destructor TBaseController.Destroy;
begin
  FArticlesService.Free;
  FDM.Free;
  inherited;
end;

function TBaseController.GetArticlesService: TArticlesService;
begin
  if not Assigned(FArticlesService) then
    FArticlesService := TArticlesService.Create(GetDataModule);
  Result := FArticlesService;
end;

function TBaseController.GetDataModule: TdmMain;
begin
  if not Assigned(FDM) then
    FDM := TdmMain.Create(nil);
  Result := FDM;
end;

{ TPrivateController }

procedure TPrivateController.DeleteAllArticles;
begin
  GetArticlesService.DeleteAllArticles();
end;

end.