Moin,
Ich habe ein ZipFile, in dem eine verschlüsselte Datei ist.
Nun soll in einer Funktion die Datei entpackt und der Inhalt entschlüsselt werden.
Das ganze gebe ich in einem Memo-Feld aus (Screen1).
Die Funktion, die das ganze ausführt ruft dann eine zweite Funktion auf (DecodeFile), die wiederum den Inhalt entschlüsselt.
Diese Funktion sieht wie folgt aus:
Delphi-Quellcode:
function DecodeFile(Datei, PW: string): Boolean;
var
Rijndael : TlbRijndael;
begin
if FileExists(Datei) then DeleteFile(Datei);
Rijndael := TlbRijndael.Create(nil);
Rijndael.GenerateKey(UpperCase(PW));
Rijndael.DecryptFile(Datei, 'Foo.Bar');
Rijndael.Free;
end;
Sobald ich nun
Rijndael.DecryptFile(Datei, 'Foo.Bar');
aufrufe wird das Fenster weiß (Screen2) und wird erst, nachdem alles vorbei ist wieder angezeigt.
Ich habe die Entpack-Funktion schon in einen eigenen Thread ausgelagert, das Memo und das Fenster mit repaint neu zeichnen lassen und und und.... aber ich komm einfach nicht weiter!
Hat jemand von euch eine Idee, woran das liegen könnte und wie man das lösen kann?
Gruß
Dirk