TPLockBox Funktionsaufruf -> Fenster wird weiß?!

[trashcandesign]

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

Delphi-Quellcode:

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? :gruebel:


Gruß
Dirk

[mkinzler]

Ei Repaint allein reicht oft nicht. Gib Rechenzeit mit

Delphi-Quellcode:

Application.ProcessMessages;

ab.

[trashcandesign]

Klasse,

das Fenster wird zwar immernoch weiß, aber sobald ich das ProcessMessages aufrufe wird wenigstens wieder alles angezeigt!


Danke dir für die schnelle Hilfe...

[SirThornberry]

obwohl du das ganze in einen Thread auslagerst hängt die Anwendung und das Fenster wird weiß? kannst du den Quelltext mal zeigen? Wenn du wirklich das ganze in dem Thread machst dürfte das nicht der Fall sein.

[trashcandesign]

Hier der Quelltext:

Delphi-Quellcode:

[...]

type
  TDecodeThread = class(TThread)
  private
    { Private-Deklarationen }
  public
    FFilename: string;
    FPW: string;
  function DecodeFile(sFileName, sPassword: string): Boolean;
  protected
    procedure Execute; override;
  end;

[...]

implementation
[...]



procedure TDlgDatenTransferIntern.MPFeuerImport;
var
  DThread               : TDecodeThread;
  sPassword, sFilename  : string;

  [...]
begin
  [...]

  //Thread aufruf
  DThread                 := TDecodeThread.Create(True);
  DThread.Priority        := tpNormal;
  DThread.FreeOnTerminate := True;
  DThread.FFilename       := sFilename;
  DThread.FPW             := sPassword;
  DThread.Resume;

  WaitForSingleObject(DThread.Handle, INFINITE);

  [...]
end;

function TDecodeThread.DecodeFile(sFileName, sPassword: string): Boolean;
var
  Blowfish                  : TlbBlowfish;
begin

    if FileExists(COPY(sFileName, 1, Length(sFileName)-4)+'.FDB') then
      DeleteFile(COPY(sFileName, 1, Length(sFileName)-4)+'.FDB');


    Blowfish            := TlbBlowfish.Create(nil);

    Blowfish.GenerateKey(UpperCase(sPassword));

    Blowfish.DecryptFile(COPY(sFileName, 1, Length(sFileName)-4)+'.BLF', COPY(sFileName, 1, Length(sFileName)-4)+'.FDB');

    Blowfish.Free;

end;


procedure TDecodeThread.Execute;
var
  HashDecodedFile: string;
begin
  if not DecodeFile(FFilename, FPW) then
    Messagebox(Handle, 'Fehler beim Entschlüsseln der Datei.',
      'Datei entschlüsseln', MB_ICONSTOP);
end;