![]() |
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
(Perl) Decompress Large Binary File in BlocksDecompresses a large binary file in blocks. Note: This example requires Chilkat v11.0.0 or greater.
use chilkat(); $success = 0; # This example requires the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. $facSrc = chilkat::CkFileAccess->new(); $facDest = chilkat::CkFileAccess->new(); # Open a previously compressed file for decompressing. # See Compress Large File in Blocks $success = $facSrc->OpenForRead("c:/temp/qa_output/compressedBmp.dat"); if ($success == 0) { print $facSrc->lastErrorText() . "\r\n"; exit; } # If we compress in 32K chunks, find out how many blocks there will be. $blockSize = 32768; $numBlocks = $facSrc->GetNumBlocks($blockSize); # Open an output file for the decompressed data. $success = $facDest->OpenForWrite("c:/temp/qa_output/decompressed.bmp"); if ($success == 0) { print $facDest->lastErrorText() . "\r\n"; exit; } $compress = chilkat::CkCompression->new(); $compress->put_Algorithm("deflate"); $decompressedBytes = chilkat::CkByteData->new(); $compressedBytes = chilkat::CkByteData->new(); # Assuming numBlocks > 1 $compress->put_FirstChunk(1); $compress->put_LastChunk(0); $i = 0; while ($i < $numBlocks) { $success = $facSrc->ReadBlock($i,$blockSize,$compressedBytes); $success = $compress->DecompressBytes($compressedBytes,$decompressedBytes); $facDest->FileWrite($decompressedBytes); $i = $i + 1; $compress->put_FirstChunk(0); if ($i == ($numBlocks - 1)) { $compress->put_LastChunk(1); } } $facSrc->FileClose(); $facDest->FileClose(); print "Finished decompressing file." . "\r\n"; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.