search

zedalaye / d7zip

A Delphi Wrapper around 7zip.dll
62 stars 42 forks source link

progressbar when creating file #4

Open GoogleCodeExporter opened 8 years ago

GoogleCodeExporter commented 8 years ago 
when I create the file. zip
shows no progress and the application hangs
ex:
var
 Arch: I7zOutArchive;
begin
 Arch := CreateOutArchive(CLSID_CFormat7z);
 Arch.AddFiles('C:\test', 'folder', '*.exe', true);
 SetCompressionLevel(Arch, 5);
 SevenZipSetCompressionMethod(Arch, m7BZip2);
 Arch.SetProgressCallback(nil, ProgressCallback);//Here hangs the application
 Arch.SaveToFile('c:\test.zip');
end;

Original issue reported on code.google.com by datilas....@gmail.com on 20 Aug 2013 at 3:53