mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-17 00:35:55 +01:00
65 lines
1.2 KiB
ObjectPascal
65 lines
1.2 KiB
ObjectPascal
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.
|