开发者

how to get the 7z archive's item stream?

开发者 https://www.devze.com 2023-02-28 07:26 出处:网络
i use the jedi \'sjclTJclDecompressArchiveClass and 开发者_高级运维TJclDecompressArchive //http://wiki.delphi-jedi.org/index.php?title=JEDI_Code_Library

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;


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

0

精彩评论

暂无评论...
验证码 换一张
取 消