Hello,
I am currently using IE 6.2.0 and trying to implement Layer encryption.
Here is part of the code that I am using:
MainForm.ImageEnViewMain.LayersCurrent := 0;
MainForm.ImageEnViewMain.Proc.Encrypt('xxx-xxx-xxx');
Application.ProcessMessages;
MainForm.ImageEnViewMain.LayersCurrent := 6;
MainForm.ImageEnViewMain.Proc.Encrypt('yyy-yyy-yyy');
Application.ProcessMessages;
MainForm.ImageEnViewMain.LayersCurrent := 7;
MainForm.ImageEnViewMain.Proc.Encrypt('zzz-zzz-zzz');
Application.ProcessMessages;
MainForm.ImageEnViewMain.LayersSaveToFile(FlName);
Application.ProcessMessages;
//Once file is saved Decrypt layers and Save Thumbnail
MainForm.ImageEnViewMain.LayersCurrent := 0;
MainForm.ImageEnViewMain.Proc.Decrypt('xxx-xxx-xxx');
Application.ProcessMessages;
MainForm.ImageEnViewMain.LayersCurrent := 6;
MainForm.ImageEnViewMain.Proc.Decrypt('yyy-yyy-yyy');
Application.ProcessMessages;
MainForm.ImageEnViewMain.LayersCurrent := 7;
MainForm.ImageEnViewMain.Proc.Decrypt('zzz-zzz-zzz');
Application.ProcessMessages;
//Code to save Thumbnail
MainForm.ImageEnViewMain.LayersMergeAll;
Application.ProcessMessages;
MainForm.ImageEnViewMain.IO.SaveToFile(ChangeFileExt(SaveDialogPSD.FileName, '.jpg'));
Again this error seems to get generated randomly.
I am using XE6 and compiling 32Bit version of application.
Note: All of the files have layers count greater than 28.
TIA
Yogi Yang
Search
Layer Encrypt and Decrypt giving error
Posted - Oct 27 2015 : 02:34:13
