express server - beta
Simple REST Framework
###Getting Started
A simple project here
Requires
- X-Superobject Framework
Assuming you've already installed express framework, create a WebBroker - Web Server Application to your project (File -> New -> Other -> WebBroker -> Web Server Application).
The following code must be inserted in the "WebModule.pas" which is automatically generated in the "DefaultHandlerAction" event.
uses Express;
...
procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
App.Call(Request, Response);
end;###Samples
unit Test;
interface
uses Express;
type
TContent = record // or class
Name: String;
SurName: String;
end;
TResult = record // or class
Success: Boolean;
end;
[Location('api/test')] // this optional
TTest = class(TProvider)
public
[GET] [DEFAULT] // default attribute is optional.
function Multiply(A, B: Integer): Integer;
[GET]
function Divide(A, B: Integer): Integer;
[DELETE] [DEFAULT] // default attribute is optional.
function Del(Id: Integer): TResult;
[POST] [DEFAULT] // default attribute is optional.
function Insert(Id: Integer; Content: TContent): TResult; // Content is optional
[PUT] [DEFAULT] // default attribute is optional.
function Update(Id: Integer; Content: TContent): TResult; // Content is Optional
end;
****
initialization
TClassManager.Register(TTest); OR
unit Test;
interface
uses SysUtils, Express;
initialization
App.Get('api/test/multiply/:a/:b', procedure(Req: TRequest; Res: TResponse)
begin
Res.Send(Req.Params['a'].toInteger * Req.Params['b'].ToInteger);
end));
// ***
// * The default attribute is like this route
// ***
App.Get('api/test/:a/:b', procedure(Req: TRequest; Res: TResponse)
begin
Res.Send(Req.Params['a'].toInteger * Req.Params['b'].ToInteger);
end));
App.Del('api/test/del/:id', procedure(Req: TRequest; Res: TResponse)
var
Result: TResult;
begin
Result.Success := Req.Params['id'].toInteger = 1;
Res.SendRecord<TResult>(Result);
end));
App.Post('api/test/insert/:id', procedure(Req: TRequest; Res: TResponse)
var
Content: TContent;
Result: TResult;
begin
Content := TSuperRecord<TContent>.FromJSON(Req.WebRequest.Content);
Result := Content.Name = 'Onur';
Res.SendRecord<TResult>(Result);
end));
App.Put('api/test/update/:id', procedure(Req: TRequest; Res: TResponse)
var
Content: TContent;
Result: TResult;
begin
Content := TSuperRecord<TContent>.FromJSON(Req.WebRequest.Content);
Result := Content.Name = 'YILDIZ';
Res.SendRecord<TResult>(Result);
end));
Aspec Oriented Programming
unit AOPTest;
interface
uses Express;
type
[Location('api/test')]
TTest = class(TInject)
public
[GET]
function Multiply(A, B: Integer): Integer;
end;
****
initialization
TClassManager.Register(TTest); OR
unit AOPTest;
interface
uses SysUtils, Express;
initialization
App.Use(hmGet, 'api', procedure(Req: TRequest; Res: TResponse; var Next: Boolean)
begin
Next := False;
Res.Send('Unauthorized (route)');
end));
App.Use(hmGet, 'api/test/multiply', procedure(Req: TRequest; Res: TResponse; var Next: Boolean)
begin
Next := False;
Res.Send('Unauthorized (method)');
end));
App.Use(hmGet, 'api/test/multiply/:a/:b', procedure(Req: TRequest; Res: TResponse; var Next: Boolean)
begin
Next := Req.Params['a'].toInteger = 1;
Res.Send('Unauthorized (method paremeter)');
end));