mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [0001544] Difference .7z archives size result at compression level ultra - normal - max between Double Commander vs 7z Archiver

Browse source
This commit is contained in:
Alexander Koblov 2016-10-15 19:04:18 +00:00
commit 861a010d64
2 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
plugins/wcx/sevenzip/src/SevenZipOpt.pas
View file

@ -367,10 +367,13 @@ var
SolidBlockSize: Int64;
Index: TArchiveFormat;
Solid: IJclArchiveSolid;
CompressHeader: IJclArchiveCompressHeader;
DictionarySize: IJclArchiveDictionarySize;
CompressionLevel: IJclArchiveCompressionLevel;
MultiThreadStrategy: IJclArchiveNumberOfThreads;
CompressionMethod: IJclArchiveCompressionMethod;
SaveCreationDateTime: IJclArchiveSaveCreationDateTime;
SaveLastAccessDateTime: IJclArchiveSaveLastAccessDateTime;
begin
if AJclArchive is TJclSevenzipCompressArchive then
ArchiveCLSID:= (AJclArchive as TJclSevenzipCompressArchive).ArchiveCLSID
@ -401,6 +404,15 @@ begin
if Supports(AJclArchive, IJclArchiveNumberOfThreads, MultiThreadStrategy) and Assigned(MultiThreadStrategy) then
MultiThreadStrategy.SetNumberOfThreads(PluginConfig[Index].ThreadCount);
if Supports(AJclArchive, IJclArchiveSaveCreationDateTime, SaveCreationDateTime) and Assigned(SaveCreationDateTime) then
SaveCreationDateTime.SetSaveCreationDateTime(False);
if Supports(AJclArchive, IJclArchiveSaveLastAccessDateTime, SaveLastAccessDateTime) and Assigned(SaveLastAccessDateTime) then
SaveLastAccessDateTime.SetSaveLastAccessDateTime(False);
if Supports(AJclArchive, IJclArchiveCompressHeader, CompressHeader) and Assigned(CompressHeader) then
CompressHeader.SetCompressHeader(True);
end;
try

4
plugins/wcx/sevenzip/src/SevenZipWcx.lpi
View file

@ -20,8 +20,8 @@
<VersionInfo>
<UseVersionInfo Value="True"/>
<MajorVersionNr Value="16"/>
<MinorVersionNr Value="8"/>
<RevisionNr Value="28"/>
<MinorVersionNr Value="10"/>
<RevisionNr Value="15"/>
<BuildNr Value="0"/>
<CharSet Value="04B0"/>
<StringTable FileDescription="SevenZip archiver plugin" InternalName="SevenZip" LegalCopyright="Copyright (C) 2014-2016 Alexander Koblov" ProductVersion=""/>