Bonjour,
j'ai plusieurs fichiers compressé *.gz sur mon ordinateur (j'ai chargé un exemple ici: test.mon-info.eu/adult.mon-info.eu-ssl_log-Jul-2020.gz).

J'utilise la fonction suivante pour les decompresser mais j'ai remarqué que le fichier *.txt finale comporte seulement 570 lignes, bien que le fichier source *.gz en compte 11 900. Quelque a une idee comme corriger ce probleme ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
var
  LInput, LOutput: TFileStream;
  LUnZip: TZDecompressionStream;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
    LInput := TFileStream.Create('C:\Exemple.gz', fmOpenRead);
    LOutput := TFileStream.Create('C:\Exemple.txt', fmCreate);
    LInput.Seek(0, soBeginning);
    LUnZip := TZDecompressionStream.Create(LInput, 15+16);
    LOutput.CopyFrom(LUnZip, LUnZip.Size);
    LUnZip.Free;
    LInput.Free;
    LOutput.Free;
Merci pour votre aide