La compression de fichier avec .Net 2.0 (Version VB.Net)

Date de publication : 07/07/2005

Par Ronald VASSEUR (autres articles)
 

Nous allons voir dans cet article comment il est possible avec le Framework .Net 2.0 de compresser ou de décompresser un fichier au format GZip. Cette nouveauté fait suite aux demandes des développeurs qui souhaitaient que le Framework intègre de telles fonctionnalités. Toutes ces opérations sont désormais rendues possibles par l'introduction d'un nouveau namespace : le System.IO.Compression .

Introduction

1. Présentation

Pour utiliser ces classes, il ne faut cependant pas oublier d'importer les namespaces suivants System.IO et System.IO.Compression.

Namespaces à utiliser :
Imports System.IO
Imports System.IO.Compression

2. Compresser un fichier

Compression d'un fichier
    Public Function compresserFichier(ByVal cheminSource As String, ByVal cheminDestination As String) As Boolean
        ' cheminSource : chemin complet du fichier à compresser
        ' cheminDestination : chemin complet du fichier compressé à créer

        Try

            ' Le fichier est placé dans le FileStream
            Dim monFileStream As New FileStream(cheminSource, FileMode.Open)


            Dim monBuffer(monFileStream.Length) As Byte
            ' Lecture de l'intégralité du FileStream
            monFileStream.Read(monBuffer, 0, CInt(monFileStream.Length))
            ' Fermeture du FileStream
            monFileStream.Close()
            ' Création du fichier qui va contenir le fichier compressé
            monFileStream = New FileStream(cheminDestination, FileMode.Create)

            ' Compression des données
            Dim monGZipStream As New GZipStream(monFileStream, CompressionMode.Compress, False)
            ' Ecriture des données compressées dans le fichier de destination
            monGZipStream.Write(monBuffer, 0, monBuffer.Length)
            ' Fermeture du GZipStream
            monGZipStream.Close()

            Return True

        Catch ex As Exception

            Return False
            MsgBox(ex.Message)

        End Try

    End Function

Attention : Le fichier qui sera contenu dans l'archive au format Gzip comportera le même nom que le fichier d'origine mais sans son extension, donc si par exemple vous compressez un fichier .txt je vous recommande de nommer le fichier compressé "mon_fichier.txt.gz", ainsi si vous le décompressez avec un logiciel tierce, le fichier sera bien nommé "mon_fichier.txt" et non "mon_fichier", ce qui pourrait être ennuyeux si l'on ne connait pas l'extension de ce fichier...

3. Décompresser un fichier

Décompresser un fichier
    Public Function decompression(ByVal cheminSource As String, ByVal cheminDestination As String) As Boolean
        ' cheminSource : chemin complet du fichier compressé
        ' cheminDestination : chemin complet du fichier où le fichier doit être décompressé

        Try

            'Lecture du fichier compresse
            Dim monFileStream As New FileStream(cheminSource, FileMode.Open)
            ' Données du fichier placées dans un GZipStream
            Dim monGzipStream As New GZipStream(monFileStream, CompressionMode.Decompress)

            ' Tableau qui va contenir la taille du fichier
            Dim tailleOctets(3) As Byte

            ' Positionnement dans le Stream pour récupérer la taille
            Dim position As Integer = CInt(monFileStream.Length - 4)
            monFileStream.Position = position

            ' Récupération de la taille du fichier
            monFileStream.Read(tailleOctets, 0, 4)

            ' Repositionnement en début du Stream
            monFileStream.Position = 0

            ' Conversion de la taille du fichier en entier
            Dim tailleFichier As Integer = BitConverter.ToInt32(tailleOctets, 0)
            ' Dimesionnement du buffer
            Dim buffer(tailleFichier + 100) As Byte
            ' Offset qui permettra de se repérer dans le Stream
            Dim monOffset As Integer = 0


            While (True)

                ' Les données sont décompressées et placées dans le buffer
                Dim decompressionOctets As Integer = monGzipStream.Read(buffer, monOffset, 100)

                ' Tant qu'il reste des données on continue
                If (decompressionOctets = 0) Then
                    Exit While
                End If

                ' On icrémente l'offset pour ne pas repartir de 0 à chaque fois...
                monOffset += decompressionOctets

            End While

            ' Création du fichier décompressé
            monFileStream = New FileStream(cheminDestination, FileMode.Create)
            ' Ecriture des données décomrpessées dans le fichier
            monFileStream.Write(buffer, 0, tailleFichier - 1)

            ' Efface les données en mémoire tampon
            monFileStream.Flush()

            ' Fermeture des Streams
            monFileStream.Close()
            monGzipStream.Close()

            Return True

        Catch ex As Exception

            Return False
            MsgBox(ex.Message)

        End Try

    End Function

Conclusion

Ressources

• Projet Visual Studio 2005 (VB.Net) :  Cliquez ici
• Application de compression/décompression :  Cliquez ici
• Le namespace System.IO :  Cliquez ici
• Le namespace System.IO.Comrpession :  Cliquez ici
• La classe FileStream :  Cliquez ici
• La classe GZipStream :  Cliquez ici