Hat
DEC bei AES Decode und Encode keine EINFACHE Möglichkeit einen Progress-Callback einzubauen?
Anlass zu der Frage ist dieses Thema
https://www.delphipraxis.net/206384-...ml#post1479406
Es ist meiner Meinung nach für nicht-programmierer viel zu kompliziert gemacht!
Ich bitte in 6.1 darum, dass man ganz normale CallBacks über eine Prozedur verwenden kann.
Ich habe
DEC jahrelang gemieden, weil es viel zu kompliziert war. Aber 6.0 ist noch immer viel zu kompliziert, wenn man nicht mal "eben so" sowas simples wie einen CallBack einbauen kann.
Ich rechne fest damit, dass ich jetzt von echten Programmierern zusammengemault werde.
Wie ich mir einen CallBack vorstelle
Delphi-Quellcode:
// Eine Extra-Unit, ohne Form u.a. mit (beispielhaft)
function AESFileEncrypt(
const FileName, Password:
string):
string;
var
Cipher: TCipher_AES;
begin
Cipher := TCipher_AES.Create;
try
Cipher.Init(Password, #1#2#3#4#5#6#7#64, 0);
Cipher.Mode := cmCBCx;
Cipher.EncodeFile(DateiIn, DateiOut, ProgressCallBack);
finally
Cipher.Free;
end;
end;
procedure ProgressCallBack(parameter);
begin
// tue etwas mit den Parametern)
end;