Discussion :

[ovni76]

Bonjour,

Suite à un conseil donné dans un autre message, j'ai voulu utiliser la fonction GetCurrentDir pour avoir le dossier courant d'une application pour indiquer le chemin "FileName de composant sqlite3Dataset.
Sous Windows, la réponse est correcte tant depuis l4EDI que depuis l'exécutable mais voilà une particularité que je ne m'explique pas : sous Linux Fedora 20 en 64 bits j'ai créé une petite application pour tester la réponse de cette fonction car l'application devant utiliser cette fonction me donnait un message d'erreur.
Mon application de test est simple ; voir le code ci-dessous :

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
procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  // préparation de l'environnement
  defaultFormatSettings.ShortDateFormat:='DD/MM/YYYY';
  defaultFormatSettings.DateSeparator:='/';
  defaultFormatSettings.DecimalSeparator:=',';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:=GetCurrentDir;
end;

Cette petite application se trouve dans le dossier

/home/j/laz-linux/chemin

Donc je devrais avoir à l'exécution

Code :

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

 Edit1.Text = /home/j/laz-linux/chemin

et bien oui et non.
Depuis la commande exécuter de l'EDI j'ai la bonne réponse. Mais depuis l'exécutable, j'ai

Code :

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

  Edit1.Text = /home/j/laz-linux

Pourquoi cette différence ? Et une autre fonction ou instruction peut-elle corriger ce problème pour avoir le même code dans les deux systèmes d'exploitation ?

Merci d'avance pour votre aide
A+

[ThWilliam]

Bonjour.

Si c'est pour trouver le répertoire de ton application, if suffit de faire :

Code :

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

AppPath:= ExtractFilePath(Application.ExeName);

Cordialement
Thierry

[ovni76]

Merci Thierry,
C'est une autre solution qui fonctionne, mais pourquoi je n'ai pas la réponse à la différence constatée selon la manière de lancer mon appli.
A+

[Fapoche]

Merci Thierry,
C'est une autre solution qui fonctionne, mais pourquoi je n'ai pas la réponse à la différence constatée selon la manière de lancer mon appli.
A+

Bonjour,
La réponse de Thierry est la bonne. En Delphi et su Windows, c'est la technique que j'utilise aussi.
Le problème que vous posez est le même sur Windows avec Delphi. GetCurrentDir renvoie le chemin du dernier SetCurrentDir utilisé et cela peut être réalisé par n'importe quel autre programme. C'est une sorte de chemin "Par défaut" mais mieux vaut l'utiliser très localement dans vos fonctions.