TZipper et nom de fichier

Version imprimable

16/03/2012, 15h37
pomalo

TZipper et nom de fichier
Bonjour

j'ai le code suivant pour compresser une sauvegarde
Code:

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

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:

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.

Merci

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

Code:

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