Discussion :

[Duffy glenn]

Bonjour,
Je suis développeur en Delphi et je travaille actuellement sur la migration des composants FIBplus au composants Firedac. Cette migration est dû au passage du developpement sur Delphi XE2 à Delphi 10 seattle, et nous utilisons une base de données FireBird. Le problème que je rencontre actuellement est que je ne trouve les properties équivalantes aux properties "Allocations " et "PageSize" du composant "TpFIBDatabase" dans le composant TFDConnection. Pour faire court j'aimerai trouver l'équivalent du code suivant avec FireDac :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
if (not FDatabase.Connected) then
    FDatabase.Open();
 
    //Taille de la base en octets
    aAllocation := FDatabase.Allocation;
    aPageSize := FDatabase.PageSize;

[Coudrak]

Je pense qu'il faut faire FDConnection.Params.Add('PageSize=1024');
Par contre Allocation je ne vois pas ce que c'est.

[SergioMaster]

Bonjour,

Je pense qu'il faut faire FDConnection.Params.Add('PageSize=1024');

à priori il ne s'agit pas de mettre la taille de la page à 1024 mais de récupérer la taille de la page

Par contre Allocation je ne vois pas ce que c'est.

le nombre de pages

je pense qu'il faut chercher dans les sources (plus exactement dans le Firedac.Phys.IBWrapper )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 TIBDatabase = class(TIBObject)
..
  public
..
    property page_size: Integer index isc_info_page_size read GetDatabaseInfoInt;
...
    property allocation: Integer index isc_info_allocation read GetDatabaseInfoInt;

reste que je ne sais pas si l'on peut/comment convertir une FDConnection Firebird en TIBDatabase
mais au vu de l'objectif (si je l'ai bien compris) : Obtenir la taille de la base de données , si celle-ci n'est pas en plusieurs fichiers, ne serait-il pas plus simple d'obtenir la taille du fichier fdb ?

ou, mieux encore utiliser la requête suivante (que ce soit mono ou multi fichiers)

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
SELECT 
 (a.MON$PAGE_SIZE * a.MON$PAGES) / 1024  -- en Ko
FROM 
 MON$DATABASE a