compression fichiers

Version imprimable

28/11/2003, 14h52
jm.th

compression fichiers

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. :furax:
Quelqu'un aurait-il un exemple d'algo de compression? Je dois utiliser Zlip
Merci beaucoup. :haha:
28/11/2003, 15h41
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.
28/11/2003, 15h56
jm.th

SI tu préfère, y'aurait-il un exemple d'algo utilisant Zlip?
28/11/2003, 15h57
jm.th

pardon, Zlib

Pour compresser:

Code:

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:

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.

20/01/2010, 11h44
Caine

A ajouter à la FAQ

Je propose d'ajouter ceci à la FAQ.

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

Beaucoup de recherche pour arriver ici :)
20/01/2010, 17h12
Dr.Who

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

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