使用德尔福的7-Zip？

Question

我想使用Delphi的7-Zip DLL，但一直没有找到像样的文档或示例。有谁知道如何使用德尔福的7-Zip DLL？

Answer 1

从版本1.102开始，JEDI Code Library支持7-Zip内置于JclCompression单元。尽管如此，我还没有使用过它。

Answer 2

如果您打算仅使用7Zip进行zip解压缩，请查看TZip组件。 我为自己的目的写了一个小包装，您可以在Zipper.pas文件中找到它，随时重复使用。

Answer 3

有很多绝地代码库的扩大对奥利弗·吉森的答案，因为，我无法找到任何像样的文档，但是这个工作对我来说：

uses 
    JclCompression; 

procedure TfrmSevenZipTest.Button1Click(Sender: TObject); 
const 
    FILENAME = 'F:\temp\test.zip'; 
var 
    archiveclass: TJclDecompressArchiveClass; 
    archive: TJclDecompressArchive; 
    item: TJclCompressionItem; 
    s: String; 
    i: Integer; 
begin 
    archiveclass := GetArchiveFormats.FindDecompressFormat(FILENAME); 

    if not Assigned(archiveclass) then 
     raise Exception.Create('Could not determine the Format of ' + FILENAME); 

    archive := archiveclass.Create(FILENAME); 
    try 
     if not (archive is TJclSevenZipDecompressArchive) then 
     raise Exception.Create('This format is not handled by 7z.dll'); 

     archive.ListFiles; 

     s := Format('test.zip Item Count: %d'#13#10#13#10, [archive.ItemCount]); 

     for i := 0 to archive.ItemCount - 1 do 
     begin 
     item := archive.Items[i]; 
     case item.Kind of 
      ikFile: 
       s := s + IntToStr(i+1) + ': ' + item.PackedName + #13#10; 
      ikDirectory: 
       s := s + IntToStr(i+1) + ': ' + item.PackedName + '\'#13#10;//' 
     end; 
     end; 

     if archive.ItemCount > 0 then 
     begin 
//   archive.Items[0].Selected := true; 
//   archive.ExtractSelected('F:\temp\test'); 

     archive.ExtractAll('F:\temp\test'); 
     end; 

     ShowMessage(s); 
    finally 
     archive.Free; 
    end; 
end; 

Answer 4

7邮编插件API

http://www.progdigy.com/?page_id=13

Answer 5

Zip和7z格式，没有DLL，尝试Synopse： http://synopse.info/forum/viewtopic.php?pid=163

Answer 6

德尔福现在有本地的，跨平台的ZIP支持与TZipFile在XE2：

How to extract zip files with TZipFile in Delphi XE2 and FireMonkey

Answer 7

我尝试了许多解决方案，并有问题，这一个工作。

下载https://github.com/zedalaye/d7zip 将7z.dll和sevenzip.pas复制到您的项目中，并将sevenzip.pas添加到您的项目中。

然后你可以用它来解压：

using sevenzip; 

procedure Unzip7zFile (zipFullFname:string); 
    var 
    outDir:string; 
    begin 
    with CreateInArchive(CLSID_CFormat7z) do 
    begin 
     OpenFile(zipFullFname); 
     outDir := ChangeFileExt(zipFullFname, ''); 
     ForceDirectories (outDir); 
     ExtractTo(outDir); 
    end; 
    end; 

用法：

Unzip7zFile(ExtractFilePath(Application.ExeName) + 'STR_SI_FULL_1000420.7z');