Discussion :

[pomalo]

Bonjour

j'ai le code suivant pour compresser une sauvegarde

Code :

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

1
2
3
4
5
 
     FZipper := Tzipper.Create;
     FZipper.Filename := AFilename;
     FZipper.Entries.AddFileEntry(FFileName);
     FZipper.ZipAllFiles;

Sous Windows, j'obtiens bien une archive mais je ne peux pas l'extraire car le chemin du fichier stocké dans celle-ci correspond au chemin complet du fichier, y compris la lettre du lecteur. 7zip ne voit pas le fichier dans l'archive, celle-ci paraît vide.
Le gestionnaire d'archive de Windows le voit mais n'arrive pas à l'extraire car le chemin est incorrect.

Sous Linux, l'archive se crée avec le fichier mais là aussi le chemin part depuis la racine /

J'ai essayé de regarder dans les docs, mais je n'ai pas trouvé comment supprimer le chemin vers le fichier.

Quelqu'un aurait-il une info ou un exemple pour le faire ?
Merci
Cordialement
Claude

[Ph. B.]

Bonjour,
Ce composant accepte des fichiers au chemin d'accès valide, qu'il soit absolu ('C:\Temp\SousTemp\toto.txt') ou relatif par rapport au répertoire courant ('SousTemp\toto.txt' pour un répertoire courant 'C:\Temp').

A partir de là et en conjonction avec la fonction ExtractRelativePath, on peut réaliser des zips adéquats (sans chemin absolu ou spécifique à un SE). Exemple :

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
OldCurrentDir := GetCurrentDir;
SetCurrentDir('C:\Temp\');   
try
  FZipper := TZipper.Create;
  try
    FZipper.Filename := AFilename;
    FZipper.Entries.AddFileEntry(ExtractRelativepath('C:\Temp\', 'C:\Temp\SousTemp\toto.txt')));
    FZipper.Entries.AddFileEntry(ExtractRelativepath('C:\Temp\', 'C:\Temp\titi.jpg')));
    FZipper.ZipAllFiles;
  finally
    FZipper.Free;
  end;
finally
  SetCurrentDir(OldCurrentDir);
end;

A adapter aux besoins, attention à ne pas oublier le séparateur à la fin du chemin pour la fonction ExtractRelativePath à ce que AFileName soit un chemin absolu au risque de voir placer le zip dans le répertoire inadéquat...
--
Philippe.

[pomalo]

Merci

j'ai modifier le code de la manière suivante

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  OldCurrentDir := GetCurrentDir;
  SetCurrentDir(ExtractFilePath(AFilename));
  try
     FZipper := Tzipper.Create;
     FZipper.Filename := AFilename;
     FZipper.Entries.AddFileEntry(ExtractRelativepath('./', ExtractFileName(FIleName));
     FZIpper.ZipAllFiles;
  finally
    FZipper.Free;
  end;
  SetCurrentDir(OldCurrentDir);

et maintenant j'obtient bien un fichier sans chemin dans mon zip

merci
cordialement
Claude