mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 00:05:53 +01:00
136 lines
3.1 KiB
ObjectPascal
136 lines
3.1 KiB
ObjectPascal
unit WineCellarAppControllerU;
|
|
|
|
interface
|
|
|
|
uses
|
|
MVCFramework,
|
|
MVCFramework.Commons,
|
|
dorm, dorm.loggers;
|
|
|
|
type
|
|
|
|
[MVCPath('/')]
|
|
TWineCellarApp = class(TMVCController)
|
|
private
|
|
dormSession: TSession;
|
|
|
|
protected
|
|
procedure OnBeforeAction(Context: TWebContext; const AActionNAme: string;
|
|
var Handled: Boolean);
|
|
override;
|
|
|
|
procedure OnAfterAction(Context: TWebContext;
|
|
const AActionNAme: string); override;
|
|
|
|
public
|
|
[MVCPath]
|
|
[MVCHTTPMethod([httpGET])]
|
|
procedure Index(ctx: TWebContext);
|
|
|
|
[MVCPath('/wines')]
|
|
[MVCHTTPMethod([httpGET])]
|
|
procedure WinesList(ctx: TWebContext);
|
|
|
|
[MVCPath('/wines')]
|
|
[MVCHTTPMethod([httpPOST])]
|
|
procedure SaveWine(ctx: TWebContext);
|
|
|
|
[MVCPath('/wines/search/($value)')]
|
|
procedure FindWines(ctx: TWebContext);
|
|
|
|
[MVCPath('/wines/($id)')]
|
|
[MVCHTTPMethod([httpGET, httpDELETE])]
|
|
procedure WineById(ctx: TWebContext);
|
|
|
|
[MVCPath('/wines/($id)')]
|
|
[MVCHTTPMethod([httpPUT])]
|
|
procedure UpdateWineById(ctx: TWebContext);
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
System.SysUtils, System.IOUtils, System.Classes, dorm.Commons, WinesBO,
|
|
ObjectsMappers, dorm.ObjectStatus, dorm.Query, System.Generics.Collections;
|
|
|
|
procedure TWineCellarApp.FindWines(ctx: TWebContext);
|
|
var
|
|
Wines: TObjectList<TWine>;
|
|
begin
|
|
Wines := dormSession.LoadListSQL<TWine>(
|
|
Select.From(TWine).Where('#TWine.name# containing ? order by #TWine.ID#',
|
|
[ctx.Request.Params['value']]));
|
|
Render<TWine>(Wines);
|
|
end;
|
|
|
|
procedure TWineCellarApp.Index(ctx: TWebContext);
|
|
begin
|
|
Redirect('/index.html');
|
|
end;
|
|
|
|
procedure TWineCellarApp.OnAfterAction(Context: TWebContext;
|
|
const AActionNAme: string);
|
|
begin
|
|
inherited;
|
|
dormSession.Free;
|
|
end;
|
|
|
|
procedure TWineCellarApp.OnBeforeAction(Context: TWebContext;
|
|
const AActionNAme: string;
|
|
var Handled: Boolean);
|
|
begin
|
|
inherited;
|
|
// in real world app, you should avoid to read from disk at every request
|
|
dormSession := TSession.CreateConfigured(
|
|
TStreamReader.Create('dorm.conf', TEncoding.ASCII), deDevelopment);
|
|
end;
|
|
|
|
procedure TWineCellarApp.SaveWine(ctx: TWebContext);
|
|
var
|
|
Wine: TWine;
|
|
begin
|
|
Wine := ctx.Request.BodyAs<TWine>;
|
|
dormSession.Persist(Wine);
|
|
dormSession.Commit();
|
|
end;
|
|
|
|
procedure TWineCellarApp.UpdateWineById(ctx: TWebContext);
|
|
var
|
|
Wine: TWine;
|
|
begin
|
|
Wine := ctx.Request.BodyAs<TWine>;
|
|
Wine.ObjStatus := osDirty;
|
|
dormSession.Persist(Wine);
|
|
dormSession.Commit();
|
|
Render(200, 'Wine updated');
|
|
end;
|
|
|
|
procedure TWineCellarApp.WineById(ctx: TWebContext);
|
|
var
|
|
Wine: TWine;
|
|
begin
|
|
Wine := dormSession.Load<TWine>(ctx.Request.ParamsAsInteger['id']);
|
|
|
|
// different behaviour according to the request http method
|
|
case ctx.Request.HTTPMethod of
|
|
httpDELETE:
|
|
begin
|
|
Wine.ObjStatus := osDeleted;
|
|
dormSession.Persist(Wine);
|
|
dormSession.Commit();
|
|
Render(200, 'Wine deleted');
|
|
end;
|
|
httpGET:
|
|
Render(Wine);
|
|
else
|
|
raise Exception.Create('Invalid http method for action');
|
|
end;
|
|
end;
|
|
|
|
procedure TWineCellarApp.WinesList(ctx: TWebContext);
|
|
begin
|
|
Render<TWine>(dormSession.ListAll<TWine>);
|
|
end;
|
|
|
|
end.
|