Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-16 00:05:53 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Use Constructor parameter to pass in status info

Browse Source
This commit is contained in:
Geoffrey Smith 2019-08-06 00:18:39 +10:00
parent c54c157dc7
commit b6c75d2a5a
1 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
sources/MVCFramework.Controllers.Swagger.pas
View File

@ -35,6 +35,8 @@ type
property ReturnType: TClass read FReturnType write FReturnType;
property Kind: TTypeKind read FKind write FKind;
function GetReturnTypeName:string;
constructor Create(AAttribute: MVCResponseAttribute); overload;
constructor Create(AAttribute: MVCResponseListAttribute); overload;
end;
TMVCEndPoint = class
@ -165,8 +167,6 @@ begin
else
raise Exception.Create('Format not valid on ' + AField.ClassName);
end;
end;
end;
@ -259,24 +259,15 @@ begin
end
else if LAttribute is MVCResponseAttribute then
begin
LStatus := TMVCStatusResponses.Create;
LStatus.statusCode := MVCResponseAttribute(LAttribute).StatusCode;
LStatus.statusDescription := MVCResponseAttribute(LAttribute).Description;
LStatus.ReturnType := MVCResponseAttribute(LAttribute).ResponseClass;
LStatus.Kind := tkClass;
LStatus := TMVCStatusResponses.Create(MVCResponseAttribute(LAttribute));
LEndpoint.statuses.Add(LStatus);
end
else if LAttribute is MVCResponseListAttribute then
begin
LStatus := TMVCStatusResponses.Create;
LStatus.statusCode := MVCResponseListAttribute(LAttribute).StatusCode;
LStatus.statusDescription := MVCResponseListAttribute(LAttribute).Description;
LStatus.ReturnType := MVCResponseListAttribute(LAttribute).ResponseClass;
LStatus.Kind := tkArray;
LStatus := TMVCStatusResponses.Create(MVCResponseListAttribute(LAttribute));
LEndpoint.statuses.Add(LStatus);
end
end;
LEndpoint.OperationId := LMethod.Name;
fEndpoints.Add(LEndpoint);
end;
@ -553,6 +544,22 @@ end;
{ TStatusResponses }
constructor TMVCStatusResponses.Create(AAttribute: MVCResponseAttribute);
begin
StatusCode := AAttribute.StatusCode;
StatusDescription := AAttribute.Description;
ReturnType := AAttribute.ResponseClass;
Kind := tkClass;
end;
constructor TMVCStatusResponses.Create(AAttribute: MVCResponseListAttribute);
begin
StatusCode := AAttribute.StatusCode;
StatusDescription := AAttribute.Description;
ReturnType := AAttribute.ResponseClass;
Kind := tkArray;
end;
// Possibly use this method to strip the Default 'T' off the start of an object name
function TMVCStatusResponses.GetReturnTypeName: string;
begin