delphimvcframework/samples/swaggerdoc_extended/ControllersU.pas

unit ControllersU;

interface

uses
  MVCFramework,
  MVCFramework.Commons,
  MVCFramework.Swagger.Commons,
  BaseControllerU,
  EntitiesU;

type
  [MVCPath('/mypeople')]
  [MVCSWAGDefaultModel(TPersonModel, 'MyPerson', 'MyPeople')] {commenting this line you get an exception}
  [MVCSWAGDefaultSummaryTags('MyPeople')] {commenting this line you get an exception}
  TMyPeopleController = class(TBaseController<TPerson, TPersonRec>)
  end;


  [MVCPath('/people')]
  [MVCSWAGDefaultModel(TPersonModel, 'Person', 'People')] {commenting this line you get an exception}
  [MVCSWAGDefaultSummaryTags('People')] {commenting this line you get an exception}
  TPeopleController = class(TBaseController<TPerson, TPersonRec>)
  public
    {this action is defined only in the child controller but uses the "DefaultModel"}
    [MVCPath('/all2')]
    [MVCHTTPMethod([httpGET])]
    [MVCSwagSummary(TSwaggerConst.USE_DEFAULT_SUMMARY_TAGS,
      'List all ' + TSwaggerConst.PLURAL_MODEL_NAME +
      ' (using route /all2, with model specified in controller)',
      'getAll2' + TSwaggerConst.PLURAL_MODEL_NAME)]
    [MVCSwagResponses(200, 'Success', SWAGUseDefaultControllerModel, True)]
    [MVCSwagResponses(500, 'Internal Server Error')]
    procedure GetAll2; virtual;

    {this action is defined only in the child controller but doesn't use the "DefaultModel"}
    [MVCPath('/all3')]
    [MVCHTTPMethod([httpGET])]
    [MVCSwagSummary(TSwaggerConst.USE_DEFAULT_SUMMARY_TAGS,
      'List all PersonWithNickNameModel (using route /all3, custom model specified on action)',
      'getAllPeopleWithNickName')]
    [MVCSwagResponses(200, 'Success', TPersonWithNickNameModel, True)]
    [MVCSwagResponses(500, 'Internal Server Error')]
    procedure GetAll3; virtual;
  end;


  [MVCPath('/tallpeople')]
  [MVCPath('/tallpeoplexxx')]
  [MVCSWAGDefaultModel(TTallPersonModel, 'TallPerson', 'TallPeople')] {commenting this line you get an exception}
  [MVCSWAGDefaultSummaryTags('Tall People')] {commenting this line you get an exception}
  TTallPeopleController = class(TPeopleController)
  public
    {this action is defined only in the child controller but uses the "DefaultModel"}
    [MVCPath('/all2')]
    [MVCHTTPMethod([httpGET])]
    [MVCSwagSummary(TSwaggerConst.USE_DEFAULT_SUMMARY_TAGS,
      'List all ' + TSwaggerConst.PLURAL_MODEL_NAME +
      ' (child controller, default controller model)', 'getAll2' + TSwaggerConst.PLURAL_MODEL_NAME)]
    [MVCSwagResponses(200, 'Success', SWAGUseDefaultControllerModel, True)]
    [MVCSwagResponses(500, 'Internal Server Error')]
    procedure GetAll2; override;

    [MVCPath('/all3')]
    [MVCHTTPMethod([httpGET])]
    [MVCSwagSummary(TSwaggerConst.USE_DEFAULT_SUMMARY_TAGS, 'List all PersonWithNickNameModel', 'getAllPersonWithNickNameModel')]
    [MVCSwagResponses(200, 'Success', TPersonWithNickNameModel, True)]
    [MVCSwagResponses(500, 'Internal Server Error')]
    procedure GetAll3; override;
  end;

implementation

uses
  JsonDataObjects,
  System.SysUtils,
  System.DateUtils,
  MVCFramework.Controllers.Register;

{ TPeopleController }

procedure TPeopleController.GetAll2;
begin

end;

procedure TPeopleController.GetAll3;
begin

end;

{ TTallPeopleController }

procedure TTallPeopleController.GetAll2;
begin
  inherited;

end;
//
procedure TTallPeopleController.GetAll3;
begin
  inherited;

end;

end.