pHTTPServer.dpr

program pHTTPServer;

{$IFDEF FPC}
  {$MODE Delphi}
{$ENDIF}

{$APPTYPE CONSOLE}

{$DEFINE VER2}//switch to another version

uses
  Forms, SysUtils, Windows
  {$IFDEF FPC}
    ,Interfaces
  {$ENDIF}
  {$IFDEF VER2}
    ,mormot.rest.http.server
  {$ELSE}
  ,mORMotHttpServer
  {$ENDIF}
  ;

var fHTTPServer : TSQLHttpServer;
const PORT='9999';
begin
  try
    fHTTPServer:=TSQLHttpServer.Create(PORT,[]);
    try
      fHTTPServer.AccessControlAllowOrigin:='*';
    finally
      fHTTPServer.Free;
    end;
  except
    on E:Exception do Application.MessageBox(PChar(E.Message),PChar(Application.Title), MB_OK + MB_ICONSTOP +MB_DEFBUTTON2);
  end;
end.