program GDI3.Server.App;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  DataSet.Serialize,
  Horse,
  Horse.OctetStream;

procedure Started;
begin
   Writeln(Format('GDI3.Server.App is runing on %s:%d', [THorse.Host, THorse.Port]));
   Readln;
end;

begin

   THorse.Use(OctetStream);

   THorse.Get('/',
      procedure(Req: THorseRequest; Res: THorseResponse)
      begin
         Res.Send('GDI3.Server.App 2 Ativado!');
      end);


  THorse.Post('/teste',
      procedure(Req: THorseRequest; Res: THorseResponse)
      begin
         Res.Send('teste');
      end);

      THorse.Listen(9000, Started);

end.