delphimvcframework/samples/swaggerdoc_extended/BaseControllerU.pas

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.