• Home
 · 
• Files/File Controls/Input/Output
 · 
• Use GZIP Stream In .Net

Use GZIP Stream In .Net

Use GZIP Stream In .Net

API Declarations


.Compression
.Compression.GZipStream




Rate Use GZIP Stream In .Net

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

        Dim sourcefile As FileStream = File.OpenRead("c:\Friends.jpg")
        Dim desfile As FileStream = File.Create("d:\Friends.gz")

        Dim compstream As New GZipStream(desfile, CompressionMode.Compress)

        Dim theByte As Integer = sourcefile.ReadByte()

        While theByte <> -1
            compstream.WriteByte(CType(theByte, Byte))
            theByte = sourcefile.ReadByte()
        End While

        sourcefile.Dispose()
        desfile.Dispose()

    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim sourcefile As FileStream = File.OpenRead("d:\Friends.gz")
        Dim desfile As FileStream = File.Create("c:\Friends.jpg")

        Dim compstream As New GZipStream(sourcefile, CompressionMode.Decompress)

        Dim theByte As Integer = compstream.ReadByte()

        While theByte <> -1
            desfile.WriteByte(CType(theByte, Byte))
            theByte = compstream.ReadByte()
        End While

        sourcefile.Dispose()
        desfile.Dispose()

    End Sub