DecompressByteData_ZLib Method Example

DecompressByteData_ZLib Method Example

This example shows you how to decompress (with zlib) and decrypt a file, and then save the new data to a Bitmap file. To try the example, copy the code to your module, and call the DecompressAndDecryptBitmap subroutine in your module. Then run the example.

Private Sub DecompressAndDecryptBitmap _
        (bFileName As String, nFileName As String, sKey As String)
  Dim BMU As VWBitmapUtils.BitmapUtils
  
  'Initialize the BitmapUtils object.
  Set BMU = New VWBitmapUtils.BitmapUtils
  
  'Load the file into memory.
  Call BMU.LoadByteData(bFileName)
  
  'Decrypt the byte data.
  Call BMU.DecryptByteData(sKey)
  
  'Decompress the byte data.
  BMU.DecompressByteData_ZLib
  
  'Save the Bitmap to the new file.
  Call BMU.SaveByteData(nFileName)
End Sub