Komprimiertes Archiv multithreaded erstellen?

[DieDolly]

Bei 7z kann man mehrere Kompressionsthreads so angeben (benötigt JCL)

Delphi-Quellcode:

 CompressFormat := GetArchiveFormats.FindUpdateFormat('datei.7z');

 if CompressFormat <> nil then
  begin
    if (CompressArchive.ClassType = JclCompression.TJcl7zCompressArchive) or (CompressArchive.ClassType = JclCompression.TJcl7zUpdateArchive) then
     begin
      CompressArchive := CompressFormat.Create('datei.7z');

      // >>>
      (CompressArchive as TJcl7zUpdateArchive).SetNumberOfThreads(4);
      // <<<

      ...........
     end;
  end;