Jhonson is a official middleware for working with JSON in APIs developed with the Horse framework.
We created a channel on Telegram for questions and support:
Installation is done using the boss install command:
boss install jhonsonIf you choose to install manually, simply add the following folders to your project, in Project > Options > Resource Compiler > Directories and Conditionals > Include file search path
../jhonson/src
This middleware is compatible with projects developed in:
- Delphi
- Lazarus
uses
Horse,
Horse.Jhonson, // It's necessary to use the unit
System.JSON;
begin
// It's necessary to add the middleware in the Horse:
THorse.Use(Jhonson());
// You can specify the charset when adding middleware to the Horse:
// THorse.Use(Jhonson('UTF-8'));
THorse.Post('/ping',
procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
var
LBody: TJSONObject;
begin
// Req.Body gives access to the content of the request in string format.
// Using jhonson middleware, we can get the content of the request in JSON format.
LBody := Req.Body<TJSONObject>;
Res.Send<TJSONObject>(LBody);
end);
THorse.Listen(9000);
end;{$MODE DELPHI}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Horse,
Horse.Jhonson, // It's necessary to use the unit
fpjson,
SysUtils;
procedure PostPing(Req: THorseRequest; Res: THorseResponse; Next: TNextProc);
var
LBody: TJSONObject;
begin
// Req.Body gives access to the content of the request in string format.
// Using jhonson middleware, we can get the content of the request in JSON format.
LBody := Req.Body<TJSONObject>;
Res.Send<TJSONObject>(LBody);
end;
begin
// It's necessary to add the middleware in the Horse:
THorse.Use(Jhonson);
// You can specify the charset when adding middleware to the Horse:
// THorse.Use(Jhonson('UTF-8'));
THorse.Post('/ping', PostPing);
THorse.Listen(9000);
end.Jhonson is free and open-source middleware licensed under the MIT License.