mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 00:05:53 +01:00
87 lines
2.2 KiB
ObjectPascal
87 lines
2.2 KiB
ObjectPascal
unit RoutingSampleControllerU;
|
|
|
|
interface
|
|
|
|
uses
|
|
MVCFramework, MVCFramework.Commons, ObjectsMappers;
|
|
|
|
type
|
|
|
|
[MVCPath('/')]
|
|
TRoutingSampleController = class(TMVCController)
|
|
public
|
|
[MVCHTTPMethod([httpGet])]
|
|
[MVCPath('/search/($searchtext)/($page)')]
|
|
[MVCProduces('text/plain')]
|
|
procedure SearchCustomers(CTX: TWebContext);
|
|
|
|
[MVCHTTPMethod([httpGet])]
|
|
[MVCPath('/people/($id)')]
|
|
[MVCProduces('application/json')]
|
|
procedure GetPerson(CTX: TWebContext);
|
|
|
|
[MVCHTTPMethod([httpGet])]
|
|
[MVCPath('/people/($id)/json')]
|
|
[MVCProduces('application/json')]
|
|
procedure GetPersonJSON(CTX: TWebContext);
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
System.SysUtils, BusinessObjectsU, Data.DBXJSON;
|
|
|
|
{ TRoutingSampleController }
|
|
|
|
procedure TRoutingSampleController.GetPerson(CTX: TWebContext);
|
|
var
|
|
P: TPerson;
|
|
IDPerson: Integer;
|
|
begin
|
|
IDPerson := CTX.Request.ParamsAsInteger['id'];
|
|
{
|
|
Use IDPerson to load the person from a database...
|
|
In this example, we're creating a fake person
|
|
}
|
|
P := TPerson.Create;
|
|
P.FirstName := 'Daniele';
|
|
P.LastName := 'Teti';
|
|
P.DOB := EncodeDate(1975, 5, 2);
|
|
P.Married := True;
|
|
Render(P);
|
|
end;
|
|
|
|
procedure TRoutingSampleController.GetPersonJSON(CTX: TWebContext);
|
|
var
|
|
P: TJSONObject;
|
|
IDPerson: Integer;
|
|
begin
|
|
IDPerson := CTX.Request.ParamsAsInteger['id'];
|
|
{
|
|
Use IDPerson to load the person from a database...
|
|
In this example, we're creating a fake person
|
|
}
|
|
P := TJSONObject.Create;
|
|
P.AddPair('FirstName', 'Daniele');
|
|
P.AddPair('LastName', 'Teti');
|
|
P.AddPair('DOB', ISODateToString(EncodeDate(1975, 5, 2)));
|
|
P.AddPair('Married', TJSONTrue.Create);
|
|
Render(P);
|
|
end;
|
|
|
|
procedure TRoutingSampleController.SearchCustomers(CTX: TWebContext);
|
|
var
|
|
search: string;
|
|
P: Integer;
|
|
orderby: string;
|
|
begin
|
|
search := CTX.Request.Params['searchtext'];
|
|
P := CTX.Request.ParamsAsInteger['page'];
|
|
orderby := '';
|
|
if CTX.Request.QueryStringParamExists('order') then
|
|
orderby := CTX.Request.QueryStringParam('order');
|
|
Render(Format('SEARCHTEXT: "%s", PAGE: %d, ORDERBYFIELD: "%s"', [search, P, orderby]));
|
|
end;
|
|
|
|
end.
|