mORMot Open Source

// Some declarations:
  private
    fModel: TOrmModel;
    fDBServer: IRestOrmServer;
    fProps: TSqlDBOleDBConnectionProperties;

The init code:
  fModel := CreateLOBModel;
  ConnectDB(LOBMonSetupRec.DBServer, LOBMonSetupRec.Database, LOBMonSetupRec.UserName, LOBMonSetupRec.PassWord);
  VirtualTableExternalRegister(Model, TSQLLobUserControllv2, fProps, 'dbo.LobUserControllv2');
  VirtualTableExternalRegister(Model, TSQLLob_GroupUsers, fProps, 'dbo.Lob_GroupUsers');
  VirtualTableExternalRegister(Model, TSQLLobGroupDtl, fProps, 'dbo.LobGroupDtl');
  
  rs := TRestServerDB.Create(Model);
  fDBServer := TRestOrmServer.Create(rs); // Gives the exception: First chance exception at $77171E94. Exception class ERestException with message 'TRestServerDB.SetOrmInstance twice'.

// Never reach this  part cause of the exception
  DBServer.CreateMissingTables;

Project TestExtDBConnection.exe raised exception class EOleDBException with message 'TSqlDBOleDBConnection: OleDB error [] (0x80040E14) -   (line 1): Could not create constraint or index. See previous errors.
  (line 1): Column 'CustomerID' in table 'Customer' is of a type that is invalid for use as a key column in an index.'.

  TOrmCustomer = class(TOrm)
  private
    fName: RawUTF8;
    fCustomerID: RawUTF8;
  published
    property Name: RawUTF8 read fName write fName;
    property CustomerID: RawUTF8 read fCustomerID write fCustomerID stored AS_UNIQUE;
  end;

function CreateOSModel: TOrmModel;
begin
  result := TOrmModel.Create([TOrmCustomer]);
end;

var
  model: TOrmModel;
  props: TSQLDBConnectionProperties;
  RestServer: TRestServerDB;
begin
  model := CreateOSModel;
  Props := GetODBCDriverSpec.Create('MyServer', 'MyDB', '', '');

  VirtualTableExternalRegister(Model, TOrmCustomer, props, 'dbo.Customer');
  RestServer :=  TRestServerDB.Create(Model, ':memory:');
  RestServer.CreateMissingTables;             <<<---- Getting error here.

unit frm_Main;
    if FDocumentService.Client.SetUser(pmcUserName, TAuthUser.ComputeHashedPassword(pmcPassword), True) then             //  - Does not compile

    if FDocumentService.Client.SetUser(pmcUserName, TAuthUser.ComputeHashedPassword(pmcUserName,pmcPassword), True) then // - Compile

  if IsValidJson(json)
    and (DynArrayLoadJson(customers, json, TypeInfo(TCustomerItemArray)) <> Nil)// - Does not compile - "Incompatible types"

constructor TTest.create(const aConnection: TStrings);
var
  model: TOrmModel;
  connection: TsqlDBConnectionPropertiesClass;
  serverName, DBName, UserID, Passw: RawUTF8;
  rest: TRestServerFullMemory;
begin
  fModel := TOrmModel.Create([TOrmUsers], '');
  connection := GetODBCDriverSpec;
  serverName := aConnection.Values['Server'];
  DBName := aConnection.Values['Database'];
  UserId := aConnection.Values['User_Name'];
  Passw := aConnection.Values['Password'];
  fProps := connection.Create(serverName, DBName, UserID, Passw);
  VirtualTableExternalRegister(fModel, TOrmUsers, fProps, 'dbo.Users');
  fModel.Props[TOrmUsers].ExternalDB.MapField('ID', 'UserID');
  fModel.Props[TOrmUsers].ExternalDB.MapField('UserEmail', 'Description');
  rest := TRestServerFullMemory.create(fModel);
  fDBServer := TRestOrmServerDB.Create(rest); // <<--- occurs here!
  try
    fDBServer.CreateMissingTables;
  finally
  end;
end;

function TMMBaseDB.GetODBCDriverSpec: TOleDBConnectionProperties;
const
  ODBCDriverKey_2018 = '\SOFTWARE\ODBC\ODBCINST.INI\ODBC Driver 17 for SQL Server';
  ODBCDriverKey_2012 = '\SOFTWARE\ODBC\ODBCINST.INI\SQL Server Native Client 11.0';
  ODBCDriverKey_2008 = '\SOFTWARE\ODBC\ODBCINST.INI\SQL Server Native Client 10.0';
begin
  with TRegistry.Create do
    try
      RootKey :=  HKEY_LOCAL_MACHINE;  //2147483650;//
      if OpenKeyReadOnly(ODBCDriverKey_2012) then
      begin
        result := TOleDBMSSQL2012ConnectionProperties;
        CloseKey;
      end
      else if OpenKeyReadOnly(ODBCDriverKey_2008) then
      begin
        result := TOleDBMSSQL2008ConnectionProperties;
        CloseKey;
      end
      else
        result := TOleDBMSSQLConnectionProperties;
    finally
      Free;
    end;
end;

TSqlDBOleDBMSSQL2012ConnectionProperties = class(TSqlDBOleDBMSSQLConnectionProperties)

uses
  mormot.core.base
  , mormot.orm.base
  , mormot.orm.core
  , mormot.rest.server
  , mormot.db.sql.oledb
  , mormot.orm.sql
  , system.classes
  , Winapi.Windows
  ;

2023-10-05 09:24:14.640	Debug	    mormot.rest.sqlite3.TRestServerDB(035da1e0) RecordVersionSynchronizeSlaveStart(TORMUser) current=19 Subscribe(036ec488)
2023-10-05 09:24:14.640	Enter	    mormot.soa.client.TServiceFactoryClient(036fac98).InternalInvoke IServiceRecordVersion.Subscribe("User",19,1) 
2023-10-05 09:24:14.640	Enter	       mormot.rest.http.client.TRestHttpClientWebsockets(03d93730).InternalUri POST
2023-10-05 09:24:14.640	Trace	          mormot.rest.http.client.TRestHttpClientWebsockets(03d93730) InternalRequest POST calling THttpClientWebSockets(03d939a0).Request
2023-10-05 09:24:14.640	Client	          mormot.rest.http.client.TRestHttpClientWebsockets(03d93730) POST DHSSync/ServiceRecordVersion.Subscribe status=200 len=18 state=1
2023-10-05 09:24:14.640	Leave	       00.003.082
2023-10-05 09:24:14.640	Service return	       mormot.soa.client.TServiceFactoryClient(036fac98) {"result":[false]}

2023-10-05 09:24:14.704	Error	    mormot.rest.sqlite3.TRestServerDB(035da1e0) RecordVersionSynchronizeSlaveStart(TORMUser): retry failure 

procedure TForm5.btnSynchronizeClick(Sender: TObject);
  function setUpSyncServer: TRestServerDB;
  begin
    result := TSQLRestServerDB.Create(CreateSyncModel, ChangeFileExt(Executable.ProgramFileName, '.db'));
    result.DB.Synchronous := smOff;
    result.DB.LockingMode := lmNormal;
    result.Server.CreateMissingTables;
  end;


begin
  if not fSyncRunning then
  begin
    btnSynchronize.Caption := 'Stopp Synk';
    fSyncServer := SetUpSyncServer;
    fHttpClientSync := TRestHttpClientWebSockets.Create('127.0.0.1', '8888', CreateSyncModel);

    fSyncServer.RecordVersionSynchronizeSlaveStart(TORMUser, fHttpClientSync);
    fSyncRunning := true;
  end
  else
  begin
    btnSynchronize.Caption := 'Synka';
    fSyncServer.RecordVersionSynchronizeSlaveStop(TORMUser);
    freeAndNil(fSyncServer);
    freeAndNil(fHttpClientSync);
    fSyncRunning := false;
  end;

end;

function setUpOrmSyncServer: TRestServerDB;
begin
  result := TRestServerDB.Create(CreateSyncModel, ChangeFileExt(Executable.ProgramFileName, '.db'));
  result.DB.LockingMode := lmNormal;
end;

begin
  OrmSyncServer := setUpOrmSyncServer;
  HttpSyncServer := TRestHttpServer.Create('8888', [OrmSyncServer], '+', UseBidirSocket,4 );
  OrmSyncServer.RecordVersionSynchronizeMasterStart;