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: Update .tar.bz2 archive

Browse source
This commit is contained in:
Alexander Koblov 2014-10-25 07:20:23 +00:00
commit 4d7a134c47
1 changed files with 19 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

20
plugins/wcx/zip/fparchive/abbzip2typ.pas
View file

@ -322,20 +322,38 @@ var
CompStream: TStream;
i: Integer;
CurItem: TAbBzip2Item;
UpdateArchive: Boolean;
TempFileName: UTF8String;
InputFileStream: TStream;
begin
if IsBzippedTar and TarAutoHandle then
begin
SwapToTar;
inherited SaveArchive;
UpdateArchive := (FBzip2Stream.Size > 0) and (FBzip2Stream is TFileStreamEx);
if UpdateArchive then
begin
FreeAndNil(FBzip2Stream);
TempFileName := GetTempName(FArchiveName + ExtensionSeparator);
{ Create new archive with temporary name }
FBzip2Stream := TFileStreamEx.Create(TempFileName, fmCreate or fmShareDenyWrite);
end;
FTarStream.Position := 0;
FBzip2Stream.Size := 0;
CompStream := TBZCompressionStream.Create(bs9, FBzip2Stream);
try
CompStream.CopyFrom(FTarStream, 0);
finally
CompStream.Free;
end;
if UpdateArchive then
begin
FreeAndNil(FBzip2Stream);
{ Replace original by new archive }
if not (mbDeleteFile(FArchiveName) and mbRenameFile(TempFileName, FArchiveName)) then
RaiseLastOSError;
{ Open new archive }
FBzip2Stream := TFileStreamEx.Create(FArchiveName, fmOpenRead or fmShareDenyNone);
end;
end
else begin
{ Things we know: There is only one file per archive.}