system.zip "Freeze" verhindern?

[gee21]

Grüezi zusammen.

Kleine Frage an euch.

Ich entpacke zip Dateien mit der integrierten system.zip Funktion.

Delphi-Quellcode:

function UnZipFile(ArchiveName, Path: String): boolean;
var Zip:TZipFile;
begin

  Zip:=TZipFile.Create;
  try
  zip.Open(ArchiveName,zmRead);
  zip.ExtractAll(Path);
  zip.Close;
  result:=true;
  except
   result:=false;
  end;
  zip.Free;

end;

Mein Problem ist jedoch das beim entpacken das ganze Programm einfriert bis es fertig entpackt ist.

Ich habe bereits etwas herum getestet mit:
application.ProcessMessages; und auch mit der Doublebuffered Funktion für Forms/Panels.

Jedoch leider ohne Erfolg. Weiss jemand von euch wie man das "einfach" hinkriegen könnte?

[nahpets]

Es müsste doch ein Ereignis OnProgress (http://docwiki.embarcadero.com/Libra...ile.OnProgress) geben.

Wenn Du darin 'ne Fortschrittsanzeige machst, sollte das Programm doch eigentlich nicht einfrieren.

[Der schöne Günther]

Ganz einfach: Mit einem Thread oder (noch einfacher) einem Task

[gee21]

Zitat von Der schöne Günther:

Ganz einfach: Mit einem Thread oder (noch einfacher) einem Task

Hallo Günther, Danke vielamsl für die Antwort

Habe nun das ganze versucht mit einem Task. Dies funktioniert teilweise.
Die Form reagiert und zb ein Animiertes Gif bewegt sich nun während des Entpackens / während des Tasks. (Dies war ja mein Ziel)

Ist der Task jedoch fertig, so sind alle Objekte auf der Form (zb RadioGroup oder die Images) komplett "kapput" die Farben verändern sich ganz merkwürdig und Schriftarten verschwinden. etwa 30 sek später stürzt das Programm dann ab (reagiert nicht mehr) (Siehe Bild)

Weisst du oder sonst jemand was ich falsch mache?

Ich habe dieses Beispiel übernommen:

Delphi-Quellcode:

var
 aTask: ITask;
begin
 aTask := TTask.Create (procedure ()
var
...
...
   begin

//Hier kommt dann der Code zum entpacken des Zip Files

   end);
 aTask.Start;
end;

[himitsu]

Du greifst in dem Task/Thread aber nicht zufällig unsynchronisiert auf die GUI (die Edits, Label, ...) zu?


Ach ja,

Delphi-Quellcode:

except
 result:=false;
end;

"Fehlerbehandlung ... setzen 6"

[EWeiss]

Habe mir System.zip noch nicht angeschaut.
Aber kannst du nicht einzelne Dateien extrahieren?
Also anstelle von zip.ExtractAll ?

Ich denke nur dann kannst du ein application.ProcessMessages verwenden.
Und ein einfrieren deiner Anwendung verhindern.

gruss

[gee21]

Zitat:

Du greifst in dem Task/Thread aber nicht zufällig unsynchronisiert auf die GUI (die Edits, Label, ...) zu?

doch ich glaube das tue ich leider schon.

Zitat:

Habe mir System.zip noch nicht angeschaut.
Aber kannst du nicht einzelne Dateien extrahieren?
Also anstelle von zip.ExtractAll ?

Ich denke nur dann kannst du ein application.ProcessMessages verwenden.
Und ein einfrieren deiner Anwendung verhindern.

Ich denke das wäre auch eine Möglichkeit. Aber möchte es lieber mit dem Task versuchen, damit ich dann für andere Situationen weiss wie das funktioniert.

[EWeiss]

Zitat:

Ich denke das wäre auch eine Möglichkeit. Aber möchte es lieber mit dem Task versuchen, damit ich dann für andere Situationen weiss wie das funktioniert.

Nun gut du kannst es natürlich versuchen.
Ich habe dir die Lösung genannt.

gruss

[hoika]

Hallo,

< doch ich glaube das tue ich leider schon. >

Synchronize benutzen.

[gee21]

So hat zwar etwas gedauert aber jetzt habe ich immerhin schon mal teilweise etwas geschafft.
Danke euch dafür sehr.


Mein Problem im Moment ist allerdings, dass ich es zwar schaffe den Thread komplett durchlaufen zulassen. (Dafür benutze ich waitfor; ) ich habe aber bemerkt das der Code im Mainthread nicht auf den Thread wartet und den nachfolgenden Code sofort ausführt (Also hier im Beispiel: Code2).

Gibt es eine einfache Möglichkeit den "code2" erst nach dem Thread Ende durchzuführen?


Im Moment versuche ich dass so:

MAINTHREAD:

Delphi-Quellcode:

TForm1.Button1Click(Sender: TObject);
begin
code1..
code1....
code1......

 TMyThread1.Create(False);

code2..
code2....
code2.....
end;

THREAD

Delphi-Quellcode:

type
TMyThread1 = class(TThread)
procedure Execute; override;
end;


procedure TMyThread1.Execute;
var i: Integer;
begin
if directoryexists(form3.Edit1.Text+'res_mods\'+wotversion) then TDirectory.Delete(form3.Edit1.Text+'res_mods\', true);

forcedirectories(form3.Edit1.Text+'res_mods\'+wotversion);

tdirectory.copy(ExtractFilePath(Application.Exename)+'deff\res_mods',form3.Edit1.Text+'res_mods');

if directoryexists(ExtractFilePath(Application.Exename)+'inf') then TDirectory.Delete(ExtractFilePath(Application.Exename)+'inf', true);
forcedirectories(ExtractFilePath(Application.Exename)+'inf');
synchronize(Thread1sync);
waitfor;
end;