Discussion :

[jm.th]

Je dois faire une appli, pour un serveur, qui compresse automatiquement, à une certaine heure, les copies de fichiers qu'il a reçu dans la journée.
J'ai beau faire des recherches, j'ai du mal à me faire une idée de l'algo à réaliser.
Quelqu'un aurait-il un exemple d'algo de compression? Je dois utiliser Zlip
Merci beaucoup.

[Dihap]

Algo à réaliser ?

Si tu utilises des composants l'algo doit être déjà écrit non ?

Au pire, regarde la librairie TZlib fourni avec Delphi.

[jm.th]

SI tu préfère, y'aurait-il un exemple d'algo utilisant Zlip?

[jm.th]

pardon, Zlib

[Dihap]

Pour compresser:

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 CompressFile(Filename:string;FileDestination:string);
var
   zip:TCompressionStream;
   zsSrc:TFileStream;
   zsDest:TFileStream;
begin
   zsSrc := TFileStream.Create(Filename,fmOpenRead);
   zsDest := TFileStream.Create(FileDestination,fmCreate);
   zip := TCompressionStream.Create(clMax,zsDest);
   try   
      zip.CopyFrom(zsSrc,zsSrc.size);
   finally
      FreeAndNil(zip);
      FreeAndNil(zsSrc);
      FreeAndNil(zsDest);
   end;
end;

Pour décompresser (moins évident celui-la):

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
 
procedure DecompressFile (zipFile:string; FileDestination:string);
var
   zip:TDecompressionStream;
   zsSrc:TFileStream;
   zsDest:TFileStream;
   Buffer: array [0..4095] of byte;
   iSize:integer; 
begin
   zsSrc := TFileStream.Create(zipFile,fmOpenread);
   zip := TDecompressionStream.Create(zsSrc);
   zsDest := TFileStream.Create(FileDestination,fmCreate);
 
   try
      iSize := 4096;
      while iSize > 0 do
      begin
         iSize := zip.Read(Buffer[0], 4096);
         if iSize > 0 then
            zsDest.Write(Buffer[0], iSize);
      end;
   finally
      FreeAndNil(zip);
      FreeAndNil(zsSrc);
      FreeAndNil(zsDest);
   end;
end;

Voilà

P.S. n'oublie pas de rajouter la librairie dans les uses.

[Caine]

Je propose d'ajouter ceci à la FAQ.

Justement je me demandais si Delphi managé les fichiers zip.

Beaucoup de recherche pour arriver ici

[Dr.Who]

JCL Compression :
http://sourceforge.net/projects/jcl/
(trés complet)

Turbo Power Abrevia :
http://sourceforge.net/projects/tpabbrevia/