Discussion :

[vali]

J'utilise cette fonction trouvée sur le FAQ qui retourne entre autre le Path d'un alias BDE:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
uses
  BDE;
 
function DetailAlias(Alias : String): DBDesc;
var
  tStr: array[0..100] of char;
  Description: DBDesc;
begin
  StrPLCopy(tStr, Alias, High(tStr));
  DbiGetDatabaseDesc(tStr, @Description);
  result:= Description;
end;
 
procedure TMyForm.MyButtonClick(Sender: TObject);
begin
  with DetailAlias('DBDEMOS') do
  begin
    Label1.Caption := StrPas(szName);
    Label2.Caption := StrPas(szPhyName);
    Label3.Caption := StrPas(szDbType);
  end;
end;

Or je n'arrive pas à le faire marcher. Rien ne s'affiche dans les labels.
Y a-t-il une astuce ??

[vali]

Le path que je cherche à récupérer est tiré d'un "objet" de type paradox dans mon BDE.

C'est peut-être paradox qui coince ?

[JustMe]

Je te fille ma procédure je n'ai pas essayé celle de la FAQ pour voir si tu n'a pas fais d'erreur mais en voici ma procedure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
function GetAliasPath(Alias: String): String; 
var 
  Liste: TStringList; 
begin 
  Liste := TStringList.Create; 
  try 
    Session.GetAliasParams(Alias, Liste); 
    Result := Liste.Values['PATH']; 
  finally 
    Liste.Free; 
  end; 
end;

J'espère que celle là va marcher pour toi.

[Giovanny Temgoua]

Rien ne s'affiche dans les labels.

Tu obtiens un message d'erreur du genre "Erreur xxxxx"? Si oui lequel ?

Sinon effectivement, la solution de JustMe fonctionne correctement...

[vali]

Alors pour la fonction du FAQ, j'ai rajouté un check

Code :

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

 check(DbiGetDatabaseDesc(tStr, @Description));

et voici le message d'erreur :
Le projet a provoqué une classe d'exception EDBEngineError avec le message 'Une erreur
est survenue lors de l'initialisation du Borland Database Engine' (erreur $2014)


En ce qui concerne la fonction de Just Me, elle m'a l'air de fonctionner. Je la teste en ce moment même...

[Giovanny Temgoua]

C'est normal que cette erreur apparaisse.

En effet, la fonction Check appele la fonction DbiError si le résultat d'une opération est différent de 0, c'est cette dernière qui crée alors l'exception!

Tout ce qu'il faut faire, c'est ajouté l'unité DBTables dans ta clause uses, puis à la création de la fiche, faire un Session.Open, ensuite un Session.Close à la fermeture de celle-ci.