SaveByteData Method Example

SaveByteData Method Example

This example shows you how to compress 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
  
  'Encrypt the byte data.
  Call BMU.EncryptByteData(sKey)
  
  'Save the byte data to the new file.
  Call BMU.SaveByteData(nFileName)
End Sub