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

Updated sample simple_api_using_mvcactiverecord_with_version to work with functional actions.

Browse Source
This commit is contained in:
Daniele Teti 2024-04-05 00:34:06 +02:00
parent ac78f902ca
commit f2e171e08c
2 changed files with 18 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
samples/simple_api_using_mvcactiverecord_with_version/CustomersControllerU.pas
View File

@ -16,76 +16,64 @@ type
public
[MVCPath]
[MVCHTTPMethods([httpGET])]
procedure GetCustomers([MVCFromQueryString('rql','')] RQLFilter: String);
function GetCustomers([MVCFromQueryString('rql','')] RQLFilter: String): IMVCResponse;
[MVCPath('/($ID)')]
[MVCHTTPMethods([httpGET])]
procedure GetCustomerByID(const ID: Integer);
function GetCustomerByID(const ID: Integer): IMVCResponse;
[MVCPath('/($ID)')]
[MVCHTTPMethods([httpPUT])]
procedure UpdateCustomerByID(const [MVCFromBody] Customer: TCustomer; const ID: Integer);
function UpdateCustomerByID(const [MVCFromBody] Customer: TCustomer; const ID: Integer): IMVCResponse;
[MVCPath]
[MVCHTTPMethods([httpPOST])]
procedure CreateCustomer([MVCFromBody] const Customer: TCustomer);
function CreateCustomer([MVCFromBody] const Customer: TCustomer): IMVCResponse;
[MVCPath('/_bulk')]
[MVCHTTPMethods([httpPOST])]
procedure BulkCreateCustomers([MVCFromBody] const Customers: TObjectList<TCustomer>);
function BulkCreateCustomers([MVCFromBody] const Customers: TObjectList<TCustomer>): IMVCResponse;
end;
implementation
uses
System.SysUtils,
FireDAC.Comp.Client,
FireDAC.Stan.Param,
MVCFramework.Logger,
MVCFramework.Serializer.Commons,
JsonDataObjects;
System.SysUtils;
{ TCustomersController }
procedure TCustomersController.CreateCustomer(const Customer: TCustomer);
function TCustomersController.CreateCustomer(const Customer: TCustomer): IMVCResponse;
begin
Customer.Insert;
Render201Created('/api/customers/' + Customer.ID.Value.ToString);
Result := CreatedResponse('/api/customers/' + Customer.ID.Value.ToString);
end;
procedure TCustomersController.GetCustomerByID(const ID: Integer);
function TCustomersController.GetCustomerByID(const ID: Integer): IMVCResponse;
begin
Render(ObjectDict().Add('data', TMVCActiveRecord.GetByPK<TCustomer>(ID)));
Result := OKResponse(TMVCActiveRecord.GetByPK<TCustomer>(ID));
end;
procedure TCustomersController.GetCustomers([MVCFromQueryString('rql','')] RQLFilter: String);
function TCustomersController.GetCustomers([MVCFromQueryString('rql','')] RQLFilter: String): IMVCResponse;
begin
if RQLFilter.IsEmpty then
Render(ObjectDict().Add('data', TMVCActiveRecord.All<TCustomer>))
else
Render(ObjectDict().Add('data', TMVCActiveRecord.SelectRQL<TCustomer>(RQLFilter, 1000)));
Result := OKResponse(TMVCActiveRecord.SelectRQL<TCustomer>(RQLFilter, 1000));
end;
procedure TCustomersController.UpdateCustomerByID(const Customer: TCustomer; const ID: Integer);
function TCustomersController.UpdateCustomerByID(const Customer: TCustomer; const ID: Integer): IMVCResponse;
begin
Customer.ID := ID;
Customer.Update();
Result := OKResponse;
end;
procedure TCustomersController.BulkCreateCustomers(const Customers: TObjectList<TCustomer>);
function TCustomersController.BulkCreateCustomers(const Customers: TObjectList<TCustomer>): IMVCResponse;
begin
TMVCActiveRecord.CurrentConnection.StartTransaction;
try
begin var lCtx := TMVCActiveRecord.UseTransactionContext;
for var lCustomer in Customers do
begin
lCustomer.Insert;
end;
TMVCActiveRecord.CurrentConnection.Commit;
Render201Created();
except
TMVCActiveRecord.CurrentConnection.Rollback;
raise;
end;
Result := CreatedResponse();
end;
end.

2
samples/simple_api_using_mvcactiverecord_with_version/EntitiesU.pas
View File

@ -62,7 +62,7 @@ type
property City: string read fCity write fCity;
property Rating: NullableInt32 read fRating write fRating;
property Note: string read fNote write fNote;
property ObjVersion: Integer read fObjVersion;
property ObjVersion: Integer read fObjVersion write fObjVersion;
end;
implementation