Compression

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 702 fois - Téléchargée 182 fois

Contenu du snippet

Fonction pour comprimer un tableau de byte

Source / Exemple :


Private Function comprime(ByVal source() As Byte) As Byte()
        Try

            Dim ms As New IO.MemoryStream
            Dim monzip As New GZipStream(ms, CompressionMode.Compress, True)

            monzip.Write(source, 0, source.Length)

            monzip.Close()

            Return ms.GetBuffer
        Catch ex As Exception
            'MsgBox(ex.Message)
            Return source
        End Try
    End Function

Conclusion :


Parfois le résultat c'est pas de la compression c'est du gofflage donc n'oubliez pas de faire un test pour comparer la taille initiale et la taille finale.

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.