Encryption Progress Monitoring


Is there a way to encrypt a file with progress monitoring?  Huge files can take a while and it seems like the app is hanging.


Yes, here is the sample VB6 code:

Public WithEvents myCrypt As ChilkatCrypt2

' ....

Private Sub myCrypt_PercentDone(ByVal pctDone As Long)

    ProgressBar1.Value = pctDone
End Sub

Private Sub Command2_Click()

    Set myCrypt = New ChilkatCrypt2
    success = myCrypt.UnlockComponent("test")
    ' ...

    success = myCrypt.CkEncryptFile("c:/temp/big.txt", "c:/temp/bigEncrypted.dat")
End Sub