Discussion :

[drxel]

Bonjour a tous,

J'ai un petit soucis avec le composant OpenDialog.
Je fais un test avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
      Edit1.Text:=''; 
      Edit2.Text:='';
      Edit3.Text:='';
      Edit4.Text:='';
      Form1.OpenDialog1.InitialDir:=ExtractFilePath(application.ExeName);
      if Form1.OpenDialog1.Execute then
        begin
              Edit1.Text:=Form1.OpenDialog1.FileName;
              Edit2.Text:=ExtractFilePath(Form1.OpenDialog1.FileName);
              Edit3.Text:=ExtractFileDir(Form1.OpenDialog1.FileName);
              Edit4.Text:=ExpandUNCFileName(Form1.OpenDialog1.FileName);
        end;

Lorsque je l'utilise "normalement", avec un fichier zip, tout se passe bien : j'ai un bon filename et je peux extraire le chemin du filename


Par contre, si je l’utilise avec un fichier a l’intérieur d'un zip je n'obtient plus de chemin.


Le fichier ZIP n'est pas un répertoire, mais Windows le montre comme tel.
Comment éviter ce problème si l’utilisateur sélectionne un fichier dans un zip ? sachant que si j'ai le chemin complet, je peux voir s'il y un ".zip" dedans et le dezipper


Merci d'avance.

Delphi 2007, Win7

[Linkin]

Tu ne pourras pas.

Windows "dézippe" ton fichier zip dans un répertoire temporaire pour afficher la liste des fichiers du zip. Quand tu "sors" du zip, ce répertoire est supprimé. Donc ton fichier n'existe plus.
Ce n'est pas le fonctionnement exact, mais l'idée est que ton fichier n'existe pas en tant que tel dans le système de fichiers donc tu ne peux pas le sélectionner.

[drxel]

Il n'y a donc aucun moyen de récupérer l’arborescence jusqu'au zip ?

[Lung]

Il n'y a pas une option pour empêcher Windows de mettre le nez dans les zip ?

[drxel]

Je n'ai pas encore trouve l'option sous windows.

[Ph. B.]

Bonjour,

Le fichier ZIP n'est pas un répertoire, mais Windows le montre comme tel.
Comment éviter ce problème si l’utilisateur sélectionne un fichier dans un zip ? sachant que si j'ai le chemin complet, je peux voir s'il y un ".zip" dedans et le dezipper

Il faut utiliser l'événement OnFolderChange et une variable pour savoir que le fichier renvoyé est inclus dans un fichier archive :

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
24
25
26
27
28
29
type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    //...
    procedure Button1Click(Sender: TObject);
    procedure OpenDialog1FolderChange(Sender: TObject);
    //...
  private
    { Déclarations privées }
    FLastFileSelected: String;
    //...
  public
    { Déclarations publiques }
    //...
  end;
 
//...
procedure TForm1.OpenDialog1FolderChange(Sender: TObject);
begin
  FLastFileSelected := OpenDialog1.FileName;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    ShowMessage(OpenDialog1.FileName + #13#10 +
                FLastFileSelected);
end;

Après, "ya plus ka" !
Attention, suivant les manipulations, on peut retrouver dans la variable 2 fois le nom du fichier zip (par exemple C:\Repertoire\SousRepertoire\Fichier.zip\Fichier.zip)

[drxel]

Bonjour Ph. B.,

Je viens de voir le message et je vais essaye des que possible ta solution.

[drxel]

Merci Ph. B.,

Je viens d'essayer ta solution et elle fonctionne parfaitement.