Question

How to compresses array of bytes into a gzip file (.gz) with VB.NET

Answer 1

Imports System.IO
Imports System.Text
Imports System.IO.Compression

Module Module1

    Sub Main()

        Dim array() As Byte = Encoding.ASCII.GetBytes(New String("W"c, 5000))

        Dim gzip() As Byte = GZipIt(array)

        File.WriteAllBytes("d:\\data.gz", gzip)

    End Sub

    Function GZipIt(ByVal gzip_arr() As Byte) As Byte()
        Using ms As MemoryStream = New MemoryStream()
            Using gzip As GZipStream = New GZipStream(ms, CompressionMode.Compress, True)
                gzip.Write(gzip_arr, 0, gzip_arr.Length)
            End Using
            Return ms.ToArray()
        End Using
    End Function

End Module


' run:
' 
'

 

70+ SQL courses for beginners and professionals