CompressByteData_ZLib Method Example

CompressByteData_ZLib Method Example

This example shows you how to compress (with zlib) and encrypt a bitmap, and then save the new data to a file. To try the example, copy the code to your module, and call the CompressAndEncryptBitmap subroutine in your module. Then run the example.

Private Sub CompressAndEncryptBitmap _
        (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 Bitmap into memory.
  Call BMU.LoadByteData(bFileName)
  
  'Compress the byte data.
  BMU.CompressByteData_ZLib
  
  'Encrypt the byte data.
  Call BMU.EncryptByteData(sKey)
  
  'Save the byte data to the new file.
  Call BMU.SaveByteData(nFileName)
End Sub