mORMot Open Source

procedure TForm1.FormCreate(Sender: TObject);
var
  FirebirdServerIP: RawUTF8;
  FirebirdFDBFile: RawUTF8;
begin
  FirebirdServerIP := '127.0.0.1';
  FirebirdFDBFile  := 'C:\Users\fabio.SFERACONSULTING\Desktop\Mormot Samples Fabio\04 - HTTP Client-Server\data\MORMOT_CLIENT_SERVER.FDB';

  DeleteFile(UTF8ToString(FirebirdFDBFile));

  // 0. Create an AnyDAC Physical DriverLink for Firebird (or drop a TADPhysIBDriverLink on the form)
  TADPhysIBDriverLink.Create(Application).VendorLib := 'fbclient.dll';

  // 1. Populate the AnyDAC/FireDAC Firebird ConnectionProperties
  fConnectionProps := TSQLDBFireDACConnectionProperties.Create('IB?CreateDatabase=Yes',
                                                               FirebirdServerIP + ':' + FirebirdFDBFile,
                                                               'SYSDBA','masterkey'
                                                              );

  // 2. Connecting has the side effect of creating the database file
  fConnectionProps.ThreadSafeConnection.Connect;

  // 3. Create the Model
  Model := CreateSampleModel;

  // 4. Register all external tables (*BEFORE* calling TSQLRestClientDB/TSQLRestServerDB.Create!)
  VirtualTableExternalRegister(Model, TSQLSampleRecord, fConnectionProps, 'SampleRecord');

  DB := TSQLRestServerDB.Create(Model, ChangeFileExt(paramstr(0), '.db3'), true);

  DB.CreateMissingTables(0);  <======= Tables are not created in external Firebird DB, but instead are created in  to the SQlite database

  Server := TSQLHttpServer.Create('8080',[DB],'+',useHttpApiRegisteringURI);
  Server.AccessControlAllowOrigin := '*'; // allow cross-site AJAX queries
end;

procedure TMainForm.SetupDataBase;
var
  FirebirdServerIP: RawUTF8;
  FirebirdFDBFile: RawUTF8;
begin
  FirebirdServerIP := '127.0.0.1';
  FirebirdFDBFile  := 'C:\1DP\prove\mORMot_Test_Fabio\Data\MORMOT.FDB';

  DeleteFile(UTF8ToString(FirebirdFDBFile));

  // 0. Create an AnyDAC Physical DriverLink for Firebird (or drop a TADPhysIBDriverLink on the form)
  TADPhysIBDriverLink.Create(Application).VendorLib := 'fbclient.dll';

  // 1. Populate the AnyDAC/FireDAC Firebird ConnectionProperties
  fConnectionProps := TSQLDBFireDACConnectionProperties.Create('IB?CreateDatabase=Yes',
                                                               FirebirdServerIP + ':' + FirebirdFDBFile,
                                                               'SYSDBA','masterkey'
                                                              );

  // 2. Connecting has the side effect of creating the database file
  fConnectionProps.ThreadSafeConnection.Connect;

  // 3. Create the Model
  fModel := CreateModel;

  // 4. Register all external tables (*BEFORE* calling TSQLRestClientDB.Create!)
  VirtualTableExternalRegister(fModel, TSQLBaby, fConnectionProps, 'Baby');
  VirtualTableExternalRegister(fModel, TSQLParent, fConnectionProps, 'Parent');

  // 5. Create a REST Client
  fClient := TSQLRestClientDB.Create(fModel, nil, string('SQliteDb.sqlite'), TSQLRestServerDB, false, '');

  // 6. Create all missing tables/fields
  fClient.Server.CreateMissingTables;
end;