YesUni not found

VCL TMS Cryptography Pack
1

I get errors YesUni and Hexa not found.

I use this code from the documentation.

procedure TForm1.Button1Click(Sender: TObject);
var
aes: TAESEncryption;
cipher: string;
begin
aes:= TAESEncryption.Create;
aes.AType:= atCBC;
aes.KeyLength:= kl256;
aes.Unicode := yesUni;
aes.Key:= '12345678901234567890123456789012';
aes.OutputFormat:=hexa;
aes.PaddingMode:= TpaddingMode.PKCS7;
aes.IVMode:= TIVMode.rand;
cipher:= aes.Encrypt('test');
aes.Free;

end;

2

Hi Ole,
These properties are defined in MiscObj. pas:

TConvertType = (base64, hexa, base64url, base32, raw);
TUnicode = (noUni, yesUni);

You may have an installation issue if this file is not found or more likely a path issue. Make sure the search path in project->options>compiler includes the directory where MiscObj is located.
bernard