mORMot Open Source

type
  TMyServer = class(TSQLRestServerAuthenticationHttpBasic)
    protected
      function CheckPassword(Ctxt: TSQLRestServerURIContext;
         User: TSQLAuthUser; const aPassWord: RawUTF8): boolean; override;
    public
        function Auth(Ctxt: TSQLRestServerURIContext): boolean; override;
    private
  end;

implementation

{ TmyServer }

function TMyServer.Auth(Ctxt: TSQLRestServerURIContext): boolean;
begin
  inherited ;
  //result := true;
end;

function TmyServer.CheckPassword(Ctxt: TSQLRestServerURIContext;
  User: TSQLAuthUser; const aPassWord: RawUTF8): boolean;
begin
  result := true;
end;


-----------------------------------------------------------------------------------------------------
 with TSQLLog.Family do begin
    Level := LOG_VERBOSE;
    EchoToConsole := LOG_VERBOSE; // log all events to the console
  end;
  // create a Data Model
  aModel := TSQLModel.Create([TDummySQLUser, TSQLAuthGroup],ROOT_NAME);
  try
    aServer := TSQLRestServerFullMemory.Create(aModel,true);
    aServer.AuthenticationRegister(TMyServer);
    aServer.LogFamily.NoFile := false;
    try
      // register our ICalculator service on the server side
      aServer.ServiceDefine(TServiceCalculator,[ICalculator],sicShared);
      // launch the HTTP server
      aHTTPServer := TSQLHttpServer.Create(PORT_NAME,[aServer],'+',useHttpApiRegisteringURI);

      try
        aHTTPServer.AccessControlAllowOrigin := '*'; // for AJAX requests to work

        writeln(#10'Background server is running.'#10);
        writeln('Press [Enter] to close the server.'#10);
        readln;
      finally
        aHTTPServer.Free;
      end;
    finally
      aServer.Free;
    end;
  finally
    aModel.Free;
  end;