CREATE DATABASE mit PageSize 32768 unter FireDAC

[WiPhi]

Moin zusammen,
ich habe ein kleines Problem mit dem Erstellen einer Firebird 4 Datenbank und einer PageSize Größe von 32768.

Folgenes führe ich zum Erstellen der Datenbank unter Delphi 11.2 (aktueller Patch ist drin) aus:

Delphi-Quellcode:

lFirebirdDataModule := TFireDACDataModule.Create(nil);
TFDPhysFBConnectionDefParams(lFirebirdDataModule.FDConnection.Params).Server := 'localhost';
TFDPhysFBConnectionDefParams(lFirebirdDataModule.FDConnection.Params).Port := 3050;
lFirebirdDataModule.FDConnection.Params.Database := 'Test';
lFirebirdDataModule.FDConnection.Params.UserName := 'SYSDBA';
lFirebirdDataModule.FDConnection.Params.Password := 'firebird';
TFDPhysFBConnectionDefParams(lFirebirdDataModule.FDConnection.Params).CharacterSet := TIBCharacterSet.csUTF8;
TFDPhysFBConnectionDefParams(lFirebirdDataModule.FDConnection.Params).ExtendedMetadata := True;
TFDPhysFBConnectionDefParams(lFirebirdDataModule.FDConnection.Params).OpenMode := TIBOpenMode.omOpen;

TFDPhysFBConnectionDefParams(lFirebirdDataModule.FDConnection.Params).PageSize := ps32768; // <- funktioniert nicht
//TFDPhysFBConnectionDefParams(lFirebirdDataModule.FDConnection.Params).PageSize := ps16384;  // <- funktioniert

TFDPhysFBConnectionDefParams(lFirebirdDataModule.FDConnection.Params).OpenMode := TIBOpenMode.omCreate;
lFirebirdDataModule.FDConnection.Open();
lFirebirdDataModule.FDConnection.Close;
lFirebirdDataModule.Free;

Am Ende habe ich eine Datenbank mit einer Pagesize von 8192 (Default). Setze ich die PageSize auf 16384 wird die Datenbnak auch mit der korrekten Größe angelegt.

Führe ich ein

Code:

CREATE DATABASE xyz PAGE_SIZE 32768

manuell mit isql aus, bekomme ich eine Datenbank mit der gewünschten PageSize erstellt.

Hat jemand einen Tipp, was ich falsch mache oder ist das vielleicht sogar noch ein Bug in FireDAC?

Viele Grüße und eine schönes Wochenende

[WiPhi]

Ich habe mal ein minimalistisches Beispiel gemacht, mit dem man es unter einem Firebird 4 Embedded nachvollziehen kann (Version ist im Projekt enthalten, deswegen ist es auch etwas größer).

Einfach das Projekt öffnen, übersetzen und einmal laufen lassen. Im Win32 Verzeichnis ensteht eine FB32K.fdb.

Mit gstat -a auf diese Datei sieht man die fehlerhafte PageSize (8192).

Ändert man in der FDConnection1 die Pagesize auf 16384 wird diese korrekt angelegt.

[hoika]

Hallo,
diese beiden Seiten bedeuten für mich, dass es in FireDAC noch nicht umgesetzt ist.

Definition der Page Sizes
https://docwiki.embarcadero.com/Libr...er.TIBPageSize

https://docwiki.embarcadero.com/Libr...rapper.ps32768
ps32768: TIBPageSize = TIBPageSize(Integer(ps16384) + 1);
Ich hätte ja eher erwartet:
ps32768: TIBPageSize = TIBPageSize(Integer(ps16384) + Integer(ps16384) );

[WiPhi]

Hallo, danke für deine Antwort.

Lt. https://quality.embarcadero.com/browse/RSP-36783 sollte es implementiert sein.

Ich habe die entscheidenden Stellen auch debuggt und keinen offensichtlichen Fehler erkannt. Die PageSize wird korrekt als Parameter ausgewertet und nach CreateDatabase übergeben:


Im CreateDatabase werden die Parameter in einen Firebird-Typen umgewandelt (Env.BuildPB) und dort vermute ich ein Problem mit den Datentypen:


Vielleicht ist es auch ein Problem des DLL-Aufrufs an Fisc_create_database.

Wie auch immer, ich habe über die Subscription an Embarcdero das Problem berichtet.

Viele Grüße.

[WiPhi]

Das Problem ist nun offiziell bei Embarcadero im Quality-Portal hinterlegt. Wer möchte, kann gern für das Issue voten:

https://quality.embarcadero.com/browse/RSP-40455