COMPRESSION AVEC ZLIB

Commentaire de coolcrash le 06/12/2002 20:00:11

Moi non plus, qu'es ce que tu a voulu compressé ?

le programme marche très bien

Commentaire de coolcrash le 08/12/2002 05:42:17

oui cela est supposé être possible, j'utilise la librairie zlib, sa crée des extension du .gzip si je ne me trompe.

voici un site de référence http://www.gzip.org/zlib/

Commentaire de threadom le 17/10/2006 20:00:40

Heureusement qu'on note pas la form :) sinon merci pour le module je vais faire quelque modif mais ca va me servir je pense ... :) l'inconvénient c'est que j'aimerais décompresser mon fichier en mémoire pour ne pas avoir de repertoire temporaire a créer ...

Ha ouai heu tu pourrais ptet modifier pour mettre l'extension en gzip ;)

Commentaire de sheorogath le 17/10/2006 20:55:18 administrateur CS

je supprime ta note si tu veux et renote ...

++

Commentaire de threadom le 17/10/2006 22:47:50

Merci j'ai mis le 10 :) tiens j'ai rajouté ce qui me manquais au passage.

' Decompression d'un fichier dans un tableau de "byte"
' Decompress a file in a byte Array
Public Function DecompressFileToByteArray(ByVal FilePathIn As String, ByRef TheData() As Byte) As Long
Dim intNextFreeFile As Integer
Dim lngResult As Long
Dim lngFileLen As Long
    
    ReDim TheData(FileLen(FilePathIn))
    
    ' Read byte array from file
    ' Lire le fichier d'entré dans un tableau de "byte"
    intNextFreeFile = FreeFile
    Open FilePathIn For Binary Access Read As #intNextFreeFile
        Get #intNextFreeFile, , lngFileLen ' the original (uncompressed) file's length
        Get #intNextFreeFile, , TheData() ' lngFileLen : La taille original du fichier décompresser.
    Close #intNextFreeFile
    
    ' Decompress
    ' Decompression du tableau de "byte"
    DecompressFileToByteArray = DecompressByteArray(TheData(), lngFileLen)
End Function

' Compression d'un tableau de "byte" dans un fichier
' Compress a byte array in a file
Public Function CompressByteArrayToFile(ByRef TheData() As Byte, ByVal FilePathOut As String, ByVal CompressionLevel As Integer) As Long
Dim intNextFreeFile As Integer
Dim lngResult As Long
Dim lngFileLen As Long
    
    ' On met en mémoire le taille du tableau de "Byte" décompresser
    lngFileLen = UBound(TheData)
    
    ' Compression du tableau de byte
    ' Compress byte array
    CompressByteArrayToFile = CompressByteArray(TheData(), CompressionLevel)
    
    ' Efface le fichier de sortie
    ' Kill any file in place
    On Error Resume Next
    Kill FilePathOut
    On Error GoTo 0
    
    ' Ecrit le tableau de "byte" dans le fichier de sortie
    ' Write it out
    intNextFreeFile = FreeFile
    Open FilePathOut For Binary Access Write As #intNextFreeFile
        Put #intNextFreeFile, , lngFileLen ' must store the length of the original (uncompress) byte array
        Put #intNextFreeFile, , TheData() ' lngFileLen : doit contenir la du tableau de "Byte" décompresser
    Close #intNextFreeFile
    
    ' Attention : le tableau de "byte" n'est pas désalouer
    ' Warning : the byte array is not desallocate
    ' Erase TheBytes
End Function



Et en ce qui concerne l'utlisation :
Exemple pour la compression :

    ReDim TheByte(255)
    For i = 0 To 255
        TheByte(i) = 255
    Next i
    CompressByteArrayToFile TheByte, "test", 9

Et .... Exemple pour la décompression :

    ReDim TheByte(0)
    DecompressFileToByteArray "test", TheByte

Voila.
Ha et si vous compté test sur quelque ligne comme moi pour etre sur de vous mettez "Erase TheByte" entre les deux