Discussion :

[alex4]

Bonjour,

Comme conseillé dans certains posts, j'ai téléchargé l'Abbrevia TurboPower pour compresser mes fichiers depuis une application qui tourne en Delphi...

Cependant, j'arrive à compresser un seul fichier. Si je veux en mettre plusieurs dans le même fichier zip, cela ne fonctionne pas !

Y a t-il quelque chose de spécial à faire pour que ce que je veux fonctionne ???? Si oui, pouvez-vous m'aider ? Merci d'avance

[octal]

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
 
procedure ZipMesFichiers;
var AbZipKit : TAbZipKit;
begin
  AbZipKit := TAbZipKit.create(nil);
  try
    AbZipKit.TempDirectory := 'c:\toto\';
    AbZipKit.BaseDirectory := 'c:\toto\';
    AbZipKit.AutoSave      := true;
    AbZipKit.OpenArchive( 'c:\toto\MonArchiveDeTxt.zip');
    AbZipKit.AddFiles('*.txt',  0);
  // et on rajoute un fichier encore au format doc
     AbZipKit.AddFiles('Lefichier.doc',  0);
    AbZipKit.CloseArchive;
  finally
    AbZipKit.Free;
  end;
end;

G pas compilé mais ca devrait marcher ...
dans le uses faudra rajouter

Code :

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

AbArcTyp, AbZipKit

quand tu fait appel à AbZipKit.AddFiles('Lefichier.doc', 0);
alors faudra comprendre une chose:
si tu met pas de chemin devant le nom du fichier il prendra par défaut

le AbZipKit.BaseDirectory + nomdufichier
sinon si tu passe la totale du genre
AbZipKit.AddFiles('c:\autreRep\Lefichier.doc', 0);
il yra le chercher au bon endroit.


Si t'as des soucis n'hesites pas moi

[alex4]

OK ça fonctionne merci beaucoup

A+

[octal]

ok ...
encore une chose ... quand tu rajoute des fichiers avec AddFiles(...) le chemin complet du fichier est stocké (archivé) dans le Zip. Si tu veux pas avoir les chemin dans le zip il faudra rajouter la ligne

Code :

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

AbZipKit.StoreOptions  := [soStripDrive, soStripPath, soRemoveDots];

juste avant le OpenArchive.
Ces options sont les suivantes:
- soStripDrive : vire les nom de lecteurs, et donc les chemins sont stocké dans l'archive sous une forme relative au rep courant du genre "\toto\monFichier.txt'
- soStripPath : vire le chemin complet et donc dans l'archive t'aura juste les noms de fichiers .

Concernant l'option AbZipKit.AutoSave := True
Elle informe abZipKit de mettre à jour la totalité de l'archive à jour à chaque fois que l'on rajoute/supprime/renomme un fichier dans l'archive. Pour accélérer la compression il vaudrai mieux la mettre à False. Cependant un bug dans Abbrevia (je sais pas s'il a été réglé dans la dernière version) fait en sorte que dans certains cas (quand c à False) abbrevia marche pas du tout ...ce pb je l'ai eu (ainsi que pas mals de dévloppeurs que je connais) quand on compresse une archive directement sur un lecteur amovible sur A:\ avec des disquettes ... sur les lecteurs zip je l'ai pas eu (heureusement). De meme on l'a sur les lecteurs Novell.
Deuxieme remarque: Quand on a une archive sur un lecteur réseau, et que l'on essaie de la décomprésser, il faut impérativement la décomprésser dans un rép temporaire local (mettre AbZipKit.TempDirectory en Local) sinon sur XP et Win2000+SP4 ca marche pas sur les lecteurs réseaux, il trouve que l'archive est abimée, surtotu si le nom du poste local, ou celui qui sur lequel ya le lecteur réseau contient des lettres accentuées dans le nom.
voilà .. j'espère que ca pourra vous être utile. Je pense meme que je vais faire un petit article spécial abbreviaZip puisque je vois que beaucoup de monde veux faire dela compression avec delphi. Sinon, si ce n'est ces remarques là ce kit là marche très très bien. On l'utilise dans pas mal d'appli commerciales sans pb depuis un bon bout de temps.

Enfin N'oublie pas de rajouter [RESOLU]

[Pierre Castelain]

Je pense meme que je vais faire un petit article spécial abbreviaZip puisque je vois que beaucoup de monde veux faire dela compression avec delphi.

Excellente idée