⚙️ Installation

boss install horse-compression

../horse-compression/src

✔️ Compatibility

☑️ Compression types

⚡️ Quickstart Delphi

uses  Horse,  Horse.Jhonson,  Horse.Compression,// It's necessary to use the unit  System.JSON;begin  THorse    .Use(Compression())// Must come before Jhonson middleware    .Use(Jhonson);// You can set compression threshold:// THorse.Use(Compression(1024));  THorse.Get('/ping',    procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)var      I: Integer;      LPong: TJSONArray;begin      LPong := TJSONArray.Create;for I :=0to1000do        LPong.Add(TJSONObject.Create(TJSONPair.Create('ping','pong')));      Res.Send(LPong);end);  THorse.Listen(9000);end;

⚡️ Quickstart Lazarus

{$MODE DELPHI}{$H+}uses{$IFDEF UNIX}{$IFDEF UseCThreads}  cthreads,{$ENDIF}{$ENDIF}  Horse,  Horse.Jhonson,  Horse.Compression,// It's necessary to use the unit  fpjson,  SysUtils;procedureGetPing(Req: THorseRequest; Res: THorseResponse; Next: TNextProc);var  I: Integer;  LPong: TJSONArray;  LJson: TJSONObject;begin  LPong := TJSONArray.Create;for I :=0to1000dobegin    LJson := TJSONObject.Create;    LJson.Add('ping','pong');    LPong.Add(LJson);end;  Res.Send<TJSONArray>(LPong);end;begin  THorse    .Use(Compression())// Must come before Jhonson middleware    .Use(Jhonson);// You can set compression threshold:// THorse.Use(Compression(1024));  THorse.Get('/ping', GetPing);  THorse.Listen(9000);end.

🚀 Statistics

⚠️ License