handle-exception

Middleware for handle exception in HORSE

Sample Horse Server

uses Horse, Horse.Jhonson, Horse.HandleException, System.SysUtils;

var
  App: THorse;

begin
  App := THorse.Create(9000);

  App.Use(Jhonson);
  App.Use(HandleException);

  App.Get('ping',
    procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc)
    begin
      raise Exception.Create('My Error!');
    end);

  App.Start;
end.