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

TMVCResponseBuilder and IMVCResponseBuilder (WIP)

Browse Source
This commit is contained in:
Daniele Teti 2023-08-29 23:51:08 +02:00
parent 3bcf2cca68
commit 56573899d3
3 changed files with 144 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

@ -145,3 +145,4 @@ samples/WineCellarSample/winecellarclient_mobile/Android/Debug/styles-v21.xml
samples/WineCellarSample/winecellarclient_mobile/Android/Debug/WineCellarMobileClient.classes/classes.dex
samples/apachemodule/Apache24/logs/httpd.pid
samples/session_file_based/Win32/DEBUG/sessions/
unittests/general/UnitTestReports/

32
samples/funcion_actions_showcase/ControllerU.pas
View File

@ -70,6 +70,13 @@ type
function GetMVCResponseWithObjectDictionary: IMVCResponse;
[MVCPath('/mvcresponse/error')]
function GetMVCErrorResponse: IMVCResponse;
{ using MVCResponseBuilder }
[MVCPath('/mvcresponse/message/builder')]
function GetMVCResponseSimpleBuilder: IMVCResponse;
[MVCPath('/mvcresponse/data/builder')]
function GetMVCResponseWithDataBuilder: IMVCResponse;
end;
implementation
@ -140,11 +147,36 @@ begin
Result := MVCResponse(HTTP_STATUS.OK, 'My Message', 'My Reason String');
end;
function TMyController.GetMVCResponseSimpleBuilder: IMVCResponse;
begin
Result := MVCResponseBuilder
.StatusCode(HTTP_STATUS.OK)
.Message('My Message')
.Reason('My Reason String')
.Build;
//Equivalent to the following
//
//Result := MVCResponse(HTTP_STATUS.OK, 'My Message', 'My Reason String');
end;
function TMyController.GetMVCResponseWithData: IMVCResponse;
begin
Result := MVCResponse(HTTP_STATUS.OK, TPerson.Create('Daniele','Teti', 99));
end;
function TMyController.GetMVCResponseWithDataBuilder: IMVCResponse;
begin
Result := MVCResponseBuilder
.StatusCode(HTTP_STATUS.OK)
.Data(TPerson.Create('Daniele','Teti', 99))
.Build;
//Equivalent to the following
//
//Result := MVCResponse(HTTP_STATUS.OK, TPerson.Create('Daniele','Teti', 99));
end;
function TMyController.GetMVCResponseWithObjectDictionary: IMVCResponse;
begin
Result := MVCResponse(

111
sources/MVCFramework.pas
View File

@ -1154,6 +1154,19 @@ function CreateResponse(const StatusCode: UInt16; const ReasonString: string;
function MVCResponse(AStatusCode: Integer; AMessage: string = ''; AReasonString: string = ''): IMVCResponse; overload;
function MVCResponse(AStatusCode: Integer; AData: TObject; AReasonString: string = ''): IMVCResponse; overload;
function MVCResponse(AStatusCode: Integer; AObjectDictionary: IMVCObjectDictionary; AReasonString: string = ''): IMVCResponse; overload;
type
IMVCResponseBuilder = interface
['{10210D72-AFAE-4919-936D-EB08AA16C01C}']
function StatusCode(const StatusCode: Integer): IMVCResponseBuilder;
function Message(const Message: String): IMVCResponseBuilder;
function Data(const Data: TObject): IMVCResponseBuilder;
function Reason(const Reason: String): IMVCResponseBuilder;
function ObjectDict(const ObjDictionary: IMVCObjectDictionary): IMVCResponseBuilder;
function Build: IMVCResponse;
end;
function MVCResponseBuilder: IMVCResponseBuilder;
// end - std responses
implementation
@ -1175,6 +1188,29 @@ var
gHostingFramework: TMVCHostingFrameworkType = hftUnknown;
type
TMVCResponseBuilder = class sealed(TInterfacedObject, IMVCResponseBuilder)
private
fBuilt: Boolean;
protected
fStatusCode: Integer;
fMessage: String;
fData: TObject;
fReason: String;
fObjectDict: IMVCObjectDictionary;
function StatusCode(const StatusCode: Integer): IMVCResponseBuilder;
function Message(const Message: String): IMVCResponseBuilder;
function Data(const Data: TObject): IMVCResponseBuilder;
function Reason(const Reason: String): IMVCResponseBuilder;
function ObjectDict(const ObjDictionary: IMVCObjectDictionary): IMVCResponseBuilder;
function Build: IMVCResponse;
public
constructor Create; virtual;
destructor Destroy; override;
end;
function IsShuttingDown: Boolean;
begin
Result := gIsShuttingDown;
@ -4589,9 +4625,84 @@ begin
Result := TMVCResponse.Create(AStatusCode, AObjectDictionary, AReasonString);
end;
function MVCResponseBuilder: IMVCResponseBuilder;
begin
Result := TMVCResponseBuilder.Create;
end;
// end - std responses
{ TMVCResponseBuilder }
function TMVCResponseBuilder.Build: IMVCResponse;
begin
if (fData = nil) and (fObjectDict = nil) then
begin
Result := MVCResponse(fStatusCode, fMessage, fReason);
end
else
begin
if fData = nil then
begin
Result := MVCResponse(fStatusCode, fObjectDict, fReason);
end
else
begin
Result := MVCResponse(fStatusCode, fData, fReason);
end;
end;
fBuilt := True;
end;
constructor TMVCResponseBuilder.Create;
begin
inherited;
fBuilt := False;
end;
function TMVCResponseBuilder.Data(const Data: TObject): IMVCResponseBuilder;
begin
fData := Data;
Result := Self;
end;
destructor TMVCResponseBuilder.Destroy;
begin
if not fBuilt then
begin
FreeAndNil(fData);
end;
inherited;
end;
function TMVCResponseBuilder.Message(
const Message: String): IMVCResponseBuilder;
begin
fMessage := Message;
Result := Self;
end;
function TMVCResponseBuilder.ObjectDict(
const ObjDictionary: IMVCObjectDictionary): IMVCResponseBuilder;
begin
fObjectDict := ObjDictionary;
Result := Self;
end;
function TMVCResponseBuilder.Reason(const Reason: String): IMVCResponseBuilder;
begin
fReason := Reason;
Result := Self;
end;
function TMVCResponseBuilder.StatusCode(
const StatusCode: Integer): IMVCResponseBuilder;
begin
fStatusCode := StatusCode;
Result := Self;
end;
initialization
// https://quality.embarcadero.com/browse/RSP-38281