https://github.com/HashLoad/jhonson

Middleware for parse JSON in HORSE
https://github.com/HashLoad/jhonson

horse json middleware parser

Last synced: 14 days ago
JSON representation

Middleware for parse JSON in HORSE

• Host: GitHub
• URL: https://github.com/HashLoad/jhonson
• Owner: HashLoad
• License: mit
• Created: 2018-10-02T19:43:57.000Z (almost 6 years ago)
• Default Branch: master
• Last Pushed: 2023-12-28T12:38:54.000Z (6 months ago)
• Last Synced: 2024-04-13T21:53:47.164Z (3 months ago)
• Topics: horse, json, middleware, parser
• Language: Pascal
• Size: 41 KB
• Stars: 94
• Watchers: 13
• Forks: 23
• Open Issues: 0
• Metadata Files:
  • Readme: README.md
  • License: LICENSE

Lists

• awesome-delphi-pascal - Horse-jhonson

README

        
# jhonson

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

Installation is done using the [`boss install`](https://github.com/HashLoad/boss) command:

``` sh

boss install jhonson

```

If 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

```

## ✔️ Compatibility

This middleware is compatible with projects developed in:

- [X] Delphi

- [X] Lazarus

## ⚡️ Quickstart Delphi

```delphi

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;

      Res.Send(LBody);

    end);

  THorse.Listen(9000);

end;

```

## ⚡️ Quickstart Lazarus

```delphi

{$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;

  Res.Send(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.

```

## ⚠️ License

`Jhonson` is free and open-source middleware licensed under the [MIT License](https://github.com/HashLoad/jhonson/blob/master/LICENSE).