DecryptStream

Dear All,

Can any one advise how to use TAESEncryption.DecryptStream?

I am getting an error message saying: TStream.Seek is not implemented?

Regards

Dear Yazigi,
How do you try to use TAESEncryption.DecryptStream ?
I have no error message with this code (on RAD Studio 10.2) :


f := TFileStream.Create('filename.txt', fmOpenReadWrite);
o := TFileStream.Create('filename.txt.enc', fmCreate);
aes.EncryptStream(f, TStream(o));
aes.DecryptStream(o, TStream(f));
f.Free;
o.Free;


Best regards,
Marion