VB.NET文件ZIP压缩

 

 1Public Function Decompress()Function Decompress(ByVal algo As String, ByVal data() As Byte) As Byte()
 2    Try
 3        Dim sw As New Stopwatch
 4        '---复制数据(压缩的)到ms---
 5        Dim ms As New MemoryStream(data)
 6        Dim zipStream As Stream = Nothing
 7
 8        '---开始秒表---
 9        sw.Start()
        '---使用存储在ms中的数据解压---

        If algo = "Gzip" Then
            zipStream = New GZipStream(ms, CompressionMode.Decompress)
        ElseIf algo = "Deflate" Then
            zipStream = New DeflateStream(ms, CompressionMode.Decompress, True)
        End If

        '---用来存储解压的数据---
        Dim dc_data() As Byte

        '---解压的数据存储于zipStream中; 
        '把它们提取到一个字节数组中---
        dc_data = RetrieveBytesFromStream(zipStream, data.Length)

        '---停止秒表---
        sw.Stop()
        lblMessage.Text = "Decompression completed. Time spent: " & sw.ElapsedMilliseconds & "ms" & _
        "， Original size: " & dc_data.Length
        Return dc_data
    Catch ex As Exception
        MsgBox(ex.ToString)
        Return Nothing
    End Try
End Function

Public Function RetrieveBytesFromStream()Function RetrieveBytesFromStream( _
ByVal stream As Stream, ByVal bytesblock As Integer) As Byte()

    '---从一个流对象中检索字节---
    Dim data() As Byte
    Dim totalCount As Integer = 0
    Try
        While True

            '---逐渐地增加数据字节数组-的大小--
            ReDim Preserve data(totalCount + bytesblock)
            Dim bytesRead As Integer = stream.Read(data, totalCount, bytesblock)
            If bytesRead = 0 Then
                Exit While
            End If
            totalCount += bytesRead
        End While
        '---确保字节数组正确包含提取的字节数---
        ReDim Preserve data(totalCount - 1)
        Return data
    Catch ex As Exception
        MsgBox(ex.ToString)
        Return Nothing
    End Try
End Function