Forum: Programmieren allgemein
by DieDolly,
16. Nov 2019
Das nenne ich einen super Fehler von mir.
Ich meine natürlich https://www.7-zip.org/
Forum: Programmieren allgemein
by DieDolly,
16. Nov 2019
Für ZIP sieht das so aus
if (CompressArchive.ClassType = JclCompression.TJclZipCompressArchive) or (CompressArchive.ClassType = JclCompression.TJclZipUpdateArchive) then
begin
(CompressArchive as TJclZipUpdateArchive).SetNumberOfThreads(4);
Gerne würde ich noch mehr helfen. Aber ich bin was JCL/7z angeht leider auch kein Profi.
Was der Delphi-Gemeinschaft enorm helfen würde, wäre...
Forum: Programmieren allgemein
by DieDolly,
16. Nov 2019
Bei 7z kann man mehrere Kompressionsthreads so angeben (benötigt JCL)
CompressFormat := GetArchiveFormats.FindUpdateFormat('datei.7z');
if CompressFormat <> nil then
begin
if (CompressArchive.ClassType = JclCompression.TJcl7zCompressArchive) or (CompressArchive.ClassType = JclCompression.TJcl7zUpdateArchive) then
begin
CompressArchive :=...