Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(VB.NET) Decompress Large Binary File in BlocksDecompresses a large binary file in blocks. This example uses BeginDecompressBytes, MoreDecompressBytes, and EndDecompressBytes.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim facSrc As New Chilkat.FileAccess Dim facDest As New Chilkat.FileAccess ' Open a previously compressed file for decompressing. ' See Compress Large File in Blocks Dim success As Boolean = facSrc.OpenForRead("qa_data/bmp/compressedBmp.dat") If (success <> True) Then Debug.WriteLine(facSrc.LastErrorText) Exit Sub End If ' If we compress in 32K chunks, find out how many blocks there will be. Dim blockSize As Integer = 32768 Dim numBlocks As Integer = facSrc.GetNumBlocks(blockSize) ' Open an output file for the decompressed data. success = facDest.OpenForWrite("qa_output/decompressed.bmp") If (success <> True) Then Debug.WriteLine(facDest.LastErrorText) Exit Sub End If Dim compress As New Chilkat.Compression compress.Algorithm = "deflate" Dim decompressedBytes() As Byte Dim compressedBytes() As Byte Dim i As Integer = 0 While i < numBlocks compressedBytes = facSrc.ReadBlock(i,blockSize) If (i = 0) Then decompressedBytes = compress.BeginDecompressBytes(compressedBytes) Else decompressedBytes = compress.MoreDecompressBytes(compressedBytes) End If facDest.FileWrite(decompressedBytes) i = i + 1 End While ' At the very end, flush any remaining decompressed bytes, if any. decompressedBytes = compress.EndDecompressBytes() facDest.FileWrite(decompressedBytes) facSrc.FileClose() facDest.FileClose() Debug.WriteLine("Finished decompressing file.") |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.