Discussion :

[Caine]

Bonjour,

Je viens de tester ceci :http://www.developpez.net/forums/d63...sion-fichiers/

Voici ma version, adaptée:

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
28
29
30
 
 
procedure TForm1.BtUnzipClick(Sender: TObject);
var
   zip:TDecompressionStream;
   zsSrc:TFileStream;
   zsDest:TFileStream;
   Buffer: array [0..4095] of byte;
   iSize:integer;
   ZipFile : String;
begin
   ZipFile := OdgFile.FileName;
   zsSrc := TFileStream.Create(OdgFile.FileName,fmOpenread);
   zip := TDecompressionStream.Create(zsSrc);
   zsDest := TFileStream.Create(ZipFile+'.txt',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;

Hélas, quand je tente de décompresser les fichiers de logs OVH (extension .gz), j'ai une erreur sur le premier read.

L'erreur est de type ECompressionError, le message (vachement utile) est "Error".

Merci aux bonnes âmes

Alors, voilà après quelques tests: Je zippe un fichier avec l'algo fournit dans le post, puis j'utilise mon algo de unzip.

Tout fonctionne bien.

Par contre, si je tente d'ouvrir l'archive avec power archiver...Rien, le fichier zip généré est inutilisable.

Donc, résultat, une belle unité qui ne sert à rien

[djiga4me]

Bonjour,
Les fichiers compressés avec ZLib sont incompatibles avec le format Zip des autres programmes.

Alors je te conseille : ZipMaster pour faire celà !

[Caine]

Bonjour,

Merci de ta réponse, donc je vais faire avec gzip et l'inclure dans l'outil ou avec un lien pour le télécharger.

Après tout, je n'ai pas envie d'être pollué par l'open source.

Dommage que j'ai perdu les sources ada...au moins, ils marchaient!

[djiga4me]

Salut,
si tu veux fais ainsi, mais je te signale que les zip produits avec ZipMaster marchent avec tous les "Zippeurs" connus (PowerArchiver, WinRar, WinZip, 7-Zip ...etc.).

[Caine]

Hey je suis allez voir le site.

Cool, cette unité est en LGPL! C'est parfait.

Donc, un grand merci Je vais voir pour la mettre en place.

[djiga4me]

Pas de quoi !