2

i use the jedi 's jcl TJclDecompressArchiveClass and TJclDecompressArchive

//http://wiki.delphi-jedi.org/index.php?title=JEDI_Code_Library

var
  archiveclass: TJclDecompressArchiveClass;
  archive: TJclDecompressArchive;
  item: TJclCompressionItem;

implementation
  uses JclCompression;

archiveclass := GetArchiveFormats.FindDecompressFormat('c:\1.7z'));
  archive := archiveclass.Create('c:\1.7z');
  archive.ListFiles;
  archive.OnProgress := Form1.ArchiveProgress;


  for i := 0 to archive.ItemCount - 1 do
    begin
      item := archive.Items[i];
      try
      case item.Kind of
        ikFile:
         begin
         item.Selected:=True;
         archive.ExtractSelected('e:\temp');
// how to get the archive.item[i].Selected.stream ?





      end;

    end;
    finally


      end;
babaloveyou
  • 229
  • 2
  • 8

1 Answers1

1

Have you seen this question: Using 7-Zip from Delphi?

Community
  • 1
  • 1
RBA
  • 12,337
  • 16
  • 79
  • 126