Awesome

Horse-Paginate

Middleware para Servidor Horse para Paginação de Dados JSON

Para Habilitar a Paginação de Dados JSON com a requisição vinda do cliente é necessário passar o seguinte parametro do HEADER da Requisição

X-Paginate = true;

Para controlar a paginação você pode enviar os seguintes parametros na URL da sua requisição

limit=X (Esse parametro define o limite de registros da paginação)

page=X (Esse parametro informa qual a pagina da paginação deve ser retornada)

Installation

boss install github.com/bittencourtthulio/Horse-Paginate

Exemplo

www.seusite.com:9000/ping?limit=10&page=5

Sample Horse Server

uses
  System.SysUtils,
  Horse,
  Horse.Paginate,
  Horse.Jhonson,
  System.JSON,
  DBClient,
  DataSet.Serialize;

begin
  THorse
    .Use(Paginate)
    .Use(Jhonson);

  THorse.Get('/ping',
    procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
    var
      DataSet: TClientDataSet;
    begin
      DataSet := TClientDataSet.Create(nil);
      try
        DataSet.LoadFromFile('items.xml');
        Res.Send<TJsonArray>(DataSet.ToJsonArray);
      finally
        DataSet.Free;
      end;
    end);

  THorse.Listen(9000);
end.