vb.net - Zip compression not unpacking fully - Stack Overflow

admin管理员组

文章数量:1345078

I am trying to unzip a byte array into another byte. I am providing the code used.

Most of the zip files that get processed unzip correctly but every once in while, the final byte count does not match what the zip file says is supposed to be there.

Private Function Decompress(ByVal toDecompress As Byte()) As Byte()

 Dim currentEntrySize As Long

 Try

     Dim InData() As Byte

     Dim bytes_read As Integer

     ' Get the stream of the source file.

     Using inputStream As New MemoryStream(toDecompress)

         ' Create the decompressed stream.

         Using decompressionStream As ZipInputStream = New ICSharpCode.SharpZipLib.Zip.ZipInputStream(inputStream)

             Dim currentEntry As Zip.ZipEntry

             currentEntry = decompressionStream.GetNextEntry()

             currentEntrySize = currentEntry.Size

             InternalZipFileName = currentEntry.Name

             ReDim InData(CInt(currentEntrySize) - 1)

             bytes_read = decompressionStream.Read(InData, 0, CInt(currentEntrySize))

             If CInt(currentEntrySize) <> bytes_read Then
                 Console.WriteLine("currentEntrySize <> bytes_read - " & currentEntrySize & "  " & bytes_read & " " & InternalZipFileName)
                 Return Nothing
             End If

             Return InData

         End Using

     End Using

 Catch ex As Exception
     Console.WriteLine(ex.Message & vbCrLf & ex.StackTrace)

     Return Nothing
 End Try

End Function

本文标签： vbnetZip compression not unpacking fullyStack Overflow