有用7z.DLL, SevenZipSharp.dll 流压缩出错.

    Public Function Compress7z(indata() As Byte) As Byte()

        Dim compressed As Byte() = Nothing

        Dim compressor As SevenZipCompressor = New SevenZipCompressor()

        compressor.CompressionMethod = CompressionMethod.Default

        compressor.CompressionLevel = CompressionLevel.Normal



        Using msin As MemoryStream = New MemoryStream(indata)

            msin.Position = 0

            Using msout As MemoryStream = New MemoryStream()

                compressor.CompressStream(msin, msout) '//“System.NullReferenceException”类型的未经处理的异常在 SevenZipSharp.dll 中发生 其他信息: 未将对象引用设置到对象的实例。

                msout.Position = 0

                ReDim compressed(CInt(msout.Length))

                msout.Read(compressed, 0, compressed.Length)

            End Using

        End Using



        Return compressed



    End Function