SaveBitmap Method Example

SaveBitmap Method Example

This example shows you how to decompress 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
  
  'Save the Bitmap to the new file.
  Call BMU.SaveByteData(nFileName)
End Sub