mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 00:05:53 +01:00
66 lines
1.5 KiB
ObjectPascal
66 lines
1.5 KiB
ObjectPascal
unit BaseControllerU;
|
|
|
|
interface
|
|
|
|
uses
|
|
MVCFramework,
|
|
MVCFramework.Commons,
|
|
MVCFramework.Swagger.Commons,
|
|
MVCFramework.Serializer.Commons;
|
|
|
|
type
|
|
TBaseController<T: class; R: record> = class(TMVCController)
|
|
public
|
|
[MVCPath]
|
|
[MVCHTTPMethod([httpGET])]
|
|
[MVCSwagSummary(TSwaggerConst.USE_DEFAULT_SUMMARY_TAGS,
|
|
'List all ' + TSwaggerConst.PLURAL_MODEL_NAME,
|
|
'getAll' + TSwaggerConst.PLURAL_MODEL_NAME)]
|
|
[MVCSwagResponses(200, 'Success', SWAGUseDefaultControllerModel, True)]
|
|
[MVCSwagResponses(500, 'Internal Server Error')]
|
|
procedure GetAll; virtual;
|
|
|
|
[MVCPath]
|
|
[MVCHTTPMethod([httpPOST])]
|
|
[MVCSwagSummary(TSwaggerConst.USE_DEFAULT_SUMMARY_TAGS,
|
|
'Create a ' + TSwaggerConst.SINGULAR_MODEL_NAME,
|
|
'create' + TSwaggerConst.SINGULAR_MODEL_NAME)]
|
|
[MVCSwagResponses(201, 'Created')]
|
|
[MVCSwagResponses(500, 'Internal Server Error')]
|
|
[MVCSwagParam(plBody, 'Entity', 'Entity Object', SWAGUseDefaultControllerModel)]
|
|
procedure CreateEntity; virtual;
|
|
end;
|
|
|
|
[MVCPath]
|
|
TMainController = class(TMVCController)
|
|
public
|
|
[MVCPath]
|
|
[MVCProduces(TMVCMediaType.TEXT_HTML)]
|
|
procedure DoRedirect;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TBaseController<T, R> }
|
|
|
|
procedure TBaseController<T, R>.CreateEntity;
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TBaseController<T, R>.GetAll;
|
|
begin
|
|
Render(ObjectDict().Add('data',
|
|
StrDict(['prop1','prop2'],['value1','value2']))
|
|
);
|
|
end;
|
|
|
|
{ TMainController }
|
|
|
|
procedure TMainController.DoRedirect;
|
|
begin
|
|
Redirect('/swagger');
|
|
end;
|
|
|
|
end.
|