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: Progress with memory pack

Browse source
This commit is contained in:
Alexander Koblov 2015-04-25 11:41:47 +00:00
commit 412ab131cc
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/filesources/wcxarchive/uwcxarchivecopyinoperation.pas
View file

@ -243,6 +243,7 @@ begin
with FStatistics do
begin
if FTarBefore then CurrentFileDoneBytes := -1;
CurrentFileTo:= FWcxArchiveFileSource.ArchiveFileName;
UpdateStatistics(FStatistics);
end;

8
src/platform/utarwriter.pas
View file

@ -705,6 +705,7 @@ function TTarWriter.ProcessTree(var Files: TFiles;
var Statistics: TFileSourceCopyOperationStatistics): Boolean;
var
aFile: TFile;
Divider: Int64 = 1;
CurrentFileIndex: Integer;
iTotalDiskSize, iFreeDiskSize: Int64;
begin
@ -712,10 +713,13 @@ begin
Result:= False;
// Set base path
FBasePath:= Files.Path;
if FMemPack = 0 then begin
Divider:= 2;
end;
// Update progress
with Statistics do
begin
TotalBytes:= TotalBytes * 2;
TotalBytes:= TotalBytes * Divider;
UpdateStatistics(Statistics);
end;
// Check disk free space
@ -766,7 +770,7 @@ begin
if Assigned(FTargetStream) then
begin
FreeAndNil(FTargetStream);
if (Statistics.DoneBytes <> Statistics.TotalBytes div 2) then
if (Statistics.DoneBytes <> Statistics.TotalBytes div Divider) then
// There was some error, because not all files has been archived.
// Delete the not completed target file.
mbDeleteFile(FArchiveFileName)