Progressbar beim auspacken

[floppybe]

Hallo DP gemeinde,

Ich habe etwas Recheche betrieben zu dem Thema Progressbar, bin aber dazu leider nicht ganz schlauer geworden.
deshalb erlaube ich mir, mich bei Euch nochmals etwas zu erkundigen.

Mein Code:

Delphi-Quellcode:

   var i : Integer;
begin
  ProgressBar1.Min:=0;
  ProgressBar1.Max:=100;
  for i:=0 to 100 do
    begin
      ProgressBar1.Position:=i;

end;

Das habe ich verstanden, da wird dei Progressbar hochgezählt.
Aber wo schreibe ich nun meinen Code rein, zum auspacken der Grafiken welche ich in einem ZIP habe ?

Mein Code:

Delphi-Quellcode:

zipforge1.BaseDir := ExtractFilePath(ParamStr(0)) + 'img';

zipforge1.FileName := ExtractFilePath(ParamStr(0)) + 'img/csimg.csc';

zipforge1.OpenArchive;
zipforge1.ExtractFiles('*.*');
zipforge1.CloseArchive;

analog dann zum wieder packen und löschen der vorhandenen Image Files beim beenden.

Delphi-Quellcode:

zipforge1.BaseDir := ExtractFilePath(ParamStr(0)) + 'img';
zipforge1.CompressionLevel := clMax;
zipforge1.FileName := ExtractFilePath(ParamStr(0)) + 'img/csimg.csc';

zipforge1.OpenArchive;
zipforge1.AddFiles('*.png');
zipforge1.AddFiles('*.bmp');
zipforge1.AddFiles('*.jpg');
zipforge1.AddFiles('*.gif');

zipforge1.CloseArchive;

DeleteFile(ExtractFilePath(ParamStr(0)) + 'img/about.bmp');
DeleteFile(ExtractFilePath(ParamStr(0)) + 'img/bookadd.bmp');
DeleteFile(ExtractFilePath(ParamStr(0)) + 'img/bookdelete.bmp');
DeleteFile(ExtractFilePath(ParamStr(0)) + 'img/bookedit.bmp');

Vielen Dank für das aufzeigen wie das geht mit der Progress Bar, mir ist es leider nicht so klar.

[nuclearping]

Guckst du hier: http://www.componentace.com/zip-and-...-in-delphi.htm

[Furtbichler]

Dazu ist vielleicht noch anzumerken, das der Eventhandler 'ArchiverOverallProgress' per Objektinspektor an das 'OverallProgress'-Event der TZipForge-Komponente angeflanscht wurde. Das geht auch per Code:

Delphi-Quellcode:

Archiver.OverallProgess := ArchiverOverallProgress;

Achtung: Der Name des Events kann auch 'OnOverallProgress' lauten. Oder 'Wurstbrot'. Musste mal schauen.

[floppybe]

Hallo nuclearping,

vielen Dank, das wahr wohl die Lösung. :-D

Gruss

Chris

Zitat:

Zitat von nuclearping (Beitrag 1252653)

Guckst du hier: http://www.componentace.com/zip-and-...-in-delphi.htm