Hab da mal was versucht "auf die Schnelle" bekomme aber leider eine Fehlermeldung.
Zitat:
[dcc32 Fehler] DECUtil.pas(769): E2250 Es gibt keine überladene Version von 'AddModuleUnloadProc', die man mit diesen Argumenten aufrufen kann
Hier mein Test-Code:
Delphi-Quellcode:
procedure TfmMain.btnDoItClick(Sender: TObject);
var
cipher: TCipher_Rijndael;
begin
if rb1.Checked = True then begin
cipher := TCipher_Rijndael.Create;
try
cipher.Init(edkey.Text);
edDest.Text := cipher.EncodeBinary(edSource.Text, TFormat_HEX); //decode für entschlüsseln
finally
FreeAndNil(cipher);
end;
end;
end;
Was hab ich verkehrt gemacht?