Discussion :

[Droïde Système7]

Bonjour

Je suis peut-être dans une phase de délire, mais suivant de multiples tests ce serait résolu facilement sans aucune manip en BdR ; ni code de dizaines de lignes de grande virtuosité

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
var
  sRuse: String;
begin
  ...
  ...   
    //--- Contrer le bug de l'InitialDir en l'étourdissant ------//
    sRuse      := GetCurrentDir;
    InitialDir := GetCurrentDir;
    sRuse      := GetCurrentDir;
    //-----------------------------------------------------------//

    if (sRuse <> '') then
    if Execute then
    begin
      Try

Merci de me dire si je rêve ou non, car je sais que ce problème peut rendre fou

Je redonne la manip d'un exemple pour effectuer ce genre de test :

Suffit d'ouvrir un fichier ailleurs que dans son répertoire et de le lire ; et de fermer ce programme.

Ensuite de relancer ce programme et regarder le path affiché en OpenDialog.

Si le path correspond effectivement au dossier contenant cet exe = OK RAS.
(Sauf forçage prévu/programmé du path)

Par contre, si le path affiché en OpenDialog est différent = devinez

J'ai hâte de vous lire, car ce serait trop beau et facile.

[Charly910]

Bonjour,

Je n'ai pas testé ton code, mais regarde la fin de cette discussion pour récupérer le dernier répertoire utilisé

A+
Charly

[Droïde Système7]

Charly,

Oui oui je sais, puisque je pensais également à ce topic aux codes et programmeurs virtuoses

Mais teste...

[ShaiLeTroll]

En D7, je ne sais pas mais en D10, suffit d'une fois pour qu'il prenne en compte le dossier souhaité et non le dernier dossier choisi par le OpenDialog (fonctionnalité OS et non VCL)

Quel est le phénomène à constater ?
Est-ce sRuse prend une valeur diffférente ?
Est-ce Execute qui affiche un dossier différent ?

Je suis parti sur Execute qui affiche un dossier différent !

Personnellement, je ne laisse jamais l'InitialDir libre, je le fixe systèmatiquement, soit relatif à l'exe pour un petit programme interne soit stocké dans un système de préférence (un XML ou Ini pour un standalone, DB pour un connecté)

Après tout, plus le projet grossi plus il y a de risque qu'un code nouveau ait un impact sur un code ancien, je n'utilise jamais les chemins relatifs
Si j'utilise le dossier de démarrage (celui fourni par le raccourci), je préfère le stocker dès le début pour éviter que le CurrentDir change en cours de route,
j'ai pris cette habitude, il y a presque 20 ans car en équipe, on ne maitrise pas l'insouciance des autres.


Sinon en D10, ça suffit

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
procedure TForm1.Button1Click(Sender: TObject);
var
  sRuse: String;
begin
  with TOpenDialog.Create(nil) do
  try
    //--- Contrer le bug de l'InitialDir en l'étourdissant ------//
     //sRuse      := GetCurrentDir;
     InitialDir := GetCurrentDir;
     // InitialDir := ExtractFileDir(Application.ExeName); // Cette variante aurait de loin ma préférence
     //sRuse      := GetCurrentDir;
    //-----------------------------------------------------------//
 
    //if (sRuse <> '') then
      Execute
 
  finally
    Free();
  end;
end;

Comme je le disais GetCurrentDir va savoir si un autre code ailleurs ne vas pas le modifier et donc impact celui-ci.
Si tu es seul sur ton projet, tu peux le maitriser à peu près mais un jour tu peux intégrer une lib externe, va savoir pourquoi, le dévéloppeur appel SetCurrentDirectory à un moment donnée, paf, code non maitrisé, comportement non maitrisé.

Sans parler de l'OS qui ajoute un comportement imprévu à cause d'un code laxiste.

[oneDev]

Je viens de tester, effectivement, le code suivant n'a pas le fonctionnement attendu.
C'est toujours le dernier dossier utilisé qui s'ouvre, même après avoir fermer l'application.

Code :

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

1
2
3
4
5
procedure TFrmMain1.btnOpenClick(Sender: TObject);
begin
  OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
  OpenDialog1.Execute;
end;

[ShaiLeTroll]

oneDev, as-tu testé en D7 ?

Car même avec un Dialog posé sur la form (même si je n'en vois pas l'utilité vs le with TOpenDialog.Create(nil) do) en D10, aucun problème.
Le code de oneDev en D10 a le comportement prévu.

Après tout D7 date de 2002, des bugs liés à l'OS qui évolue ce n'est pas étrange.

Mais as-tu testé la ruse aussi puisque c'est la question de ce sujet, le pourquoi du n'importe quoi !

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFrmMain1.btnOpenClick(Sender: TObject);
var
  sRuse: String;
begin
  sRuse := GetCurrentDir();
  OpenDialog1.InitialDir := GetCurrentDir();
  sRuse := GetCurrentDir();
  OpenDialog1.Execute;
end

Si ce code corrige le problème, cela n'a aucun sens sauf si l'on regarde le code de GetCurrentDir

En D10 GetCurrentDir c'est GetDir(0, Result); soit _WGetDir et c'est un bricolage GetCurrentDirectoryW et SetCurrentDirectoryW.
En D7, si il y a le même bricolage, est-ce bien protégé sur le Drive 0, il n'y aurait pas un SetCurrentDirectoryA parasite ???