有用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

[华芸智森]

搞定,将7Z的源代码重编译一次就好了.估计是跟编译有关.

[落叶1210]

compressor.CompressStream(msin, msout) 是不是有对象 为 null？？

[华芸智森]

没有对象是空的.