zedalaye / d7zip Goto Github PK

What steps will reproduce the problem?
1. I used your example shown at progdigy related to progressbar but instead of 
7zip format I tried to uncompress an ISO image

with CreateInArchive(CLSID_CFormatUdf) do
  begin
    OpenFile('d:\myiso.iso'); //udf iso 
    SetProgressCallback(nil, ProgressCallback);
    ExtractTo('e:\'); //a pendrive
  end;
2. If progressbar is not used, then it works as expected.
3. BTW: program becomes unresponsive.

What is the expected output? What do you see instead?
Progressbar working, but I only see error.

What version of the product are you using? On what operating system?
1.2

Please provide any additional information below.
Thanks by advance. Great component. I'm using Delphi 7.

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;

An error occurs when working with large archives. The Cardinal type for the 
stream size is not sufficient, Int64 fixes the problem.

var
  Arch: I7zOutArchive;
Arch := CreateOutArchive(CLSID_CFormat7z);
Arch.AddStream(aStream, soReference, faArchive, CurrentFileTime, 
CurrentFileTime, 'folder\test.bin', false, false);
-> error when aStream.Size > 4 GB

This unit seems to be around ~50-60% slower than JEDI's implementation, maybe 
you could look into that.

What steps will reproduce the problem?
1. Tried to open a bzip2 archive created with 7zip. I have one item in the 
archive, and i7z.NumberOfItems returns 1, but i7z.ItemPath[i] returns ''.

What version of the product are you using? On what operating system?
Using latest ver of code and tried 7z.dll included and latest (9.20).