delphi - TJclCompressArchive(绝地项目)。如何选择压缩格式？

Question

在 Win7 x64 上使用 Delphi XE，有 Jedi Class Library ver. 3.45 和 7z.dll 版本。 9.20,

Uses .., jclcompression;

procedure TForm1.Button1Click(Sender: TObject);
const
   an = 'C:\1.7z';
   fn = 'C:\1.txt';
var Arc: TJclCompressArchive;
    Ext: TJclCompressArchiveClass;

begin
   Ext := GetArchiveFormats.FindCompressFormat(an);
   Arc := Ext.Create(an);
   Arc.AddFile(ExtractFileName(fn), fn);
   Arc.Password:='123';

   // arc. .. compresslevel:= 0..9 (or store..ultra)
   // arc. .. compressmethod:= (lzma,lzma,bzip2,ppmd)
   // arc. .. dictionarysize:= (1 shl 1..30)
   // arc. .. comressheader:= true-false
   // arc. .. cryptalgorithm:= ??? aes256 only?
   // arc. .. threads:= 1..2
   // arc. .. cryptheader:= true-false

   Arc.Compress;

end;

如何选择上面显示的压缩选项作为带有“//”的注释？

Jedi 文档几乎为零，有人遇到过这样的问题吗？

使用 7z 尝试了一些不同版本的“作业”:tSevenZip、SevenZipVcl、SevenZip Api，但得出的结论是，Jedi 项目中使用 7z.dll 的作业的最新版本。

Answer 1

7z 特定参数由 TJcl7zCompressArchive 类实现，因此这就是您必须使用的...尝试类似的东西

Ext := GetArchiveFormats.FindCompressFormat(an);
if(Ext <> nil)and(Ext.InheritsFrom(TJcl7zCompressArchive))then begin
   Arc := Ext.Create(an);
   TJcl7zCompressArchive(Arc).SetCompressionLevel(9);
   TJcl7zCompressArchive(Arc).SetCompressHeader(True);
   ...
end;