Discussion :

[banban54]

[D6]
bonjour

J'ai déjà géré le problème de la limitation à 128Mo des tables paradox (grace aux info du forum d'ailleurs) sur mon pc.
Le problème est que lorsque je fais un install sur un autre pc je retrouve cette limitation
(install via inosetup avec MiniReg.exe BdeInst.dll et AddAlias.exe )

si quelqu'un avait une idée?

merci

[banban54]

bonjour

je pense qu'en reformulant ma question il sera plus facile de m'en sortir.

comment modifier les paramètres d'un pilote du BDE par programmation?

ainsi après le deploiement de mon prog et du BDE, via inosetup je pourrai faire en sorte de lancer un petit exécutable qui reconfigurera le BDE.

merci

[Zatoobux]

salut,

Sur http://info.borland.com/devsupport/bde/bdeapiex/ , du coté de DbiOpenCfgInfoList et de l'exemple associé.

a+

[banban54]

merci pour le lien (cela me semble un peu compliqué)

Donc en clair il va falloir s'attaquer à la base de registre!! aîl aïl!!
je vais retourner voir la FAQ.

j'ai déjà localisé ou il faut modifier
Hkey local machine
--software
---- Borland
------ Database Engine
-------- Settings
---------- Drivers
------------ Paradox
-------------- Table Create (pour Bloc size, Level et Fill factor)

à plus

[Zatoobux]

J'ai peut etre repondu a coté de la plaque...

J'ai déjà géré le problème de la limitation à 128Mo des tables paradox

Tu geres ça depuis l'admin BDE ?
Si oui où ?

Si c'est un parametre du BDE il sera facile de faire un exemple...

a+

[banban54]

oui le PB se règle à partir de l'administrateur BDE

onglet configuration
--Pilotes
---Natifs
----Pradox

pour moi:
passage de BLOCK SIZE de 2048 à 32768
passage de LEVEL de 7 à 5
passage de FILE FACTOR de 95 à 80

ces données ne figurent pas dans le fichier IDAPRI32.CFG mais dans la base de registre (voir post précédent)

j'ai fais un essai (en lecture) du lien précédent et pour le moment je n'ai que des messages d'erreur.

à plus

[Zatoobux]

J'ai implementé

Code :

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

function GetConfigParameter(Param: string; Count: pword): string;

Pour que la fonction fonctionne il faut qu'une session soit ouverte.
Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
  with TTable.Create (nil) do
  try
    DatabaseName := 'MonAlias';
    TableName := 'maTable';
    open;
  finally
    free;
  end;
  showMessage(GetConfigParameter (PARADOXBLOCKSIZE,0));

Ca fonctionne tres bien chez moi.
A la place de l'ouverture d'une table ouvre une TSession, une TDatabase...

a+

[banban54]

je vais faire un nouvel essai

comment appelles tu la fonction?
(moi j'ais mis un bouton pour renseigner un Tedit!! mais '@count' n'était pas reconnu)

[banban54]

pardon j'ai vu comment tu appelles la fonction
j'ai lu trop vite

à plus

[banban54]

fonctionnement correct!

je vais tester la partie modif maintenant
merci et à plus

(je mettrai le tag si j'y arrive )

[Zatoobux]

par contre pour voir que la modification des parametres a été effectué il faut fermer et relancer l'admin BDE.

a+

[banban54]

petite question, pourquoi dans

Code :

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

SetConfigParameter2(Param: string; Value: string);

value est un string? c'est là que moi j'aurai mis ma valeur pour 'PARADOXBLOCKSIZE' par exemple.

[Zatoobux]

Non param comme dans GetConfigParameter reste le parametre à changer.
Value est la valeur à affecter.

Code :

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

SetConfigParameter2 (PARADOXBLOCKSIZE,inttostr(4096));

a+

[banban54]

je venais juste de rentrer

Code :

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

1
2
 
SetConfigParameter2 (PARADOXBLOCKSIZE,'4096'));

mais ça à lamentablement planté, je vais tester InttoStr

a+

[banban54]

cela fonctionne correctement

à plus! @Zatoobux