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.
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.