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: Zip - open .bz2, .xz and .zst archives

Browse source
This commit is contained in:
Alexander Koblov 2024-03-04 18:31:21 +03:00
commit 05b14ee6c4
3 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
plugins/wcx/zip/src/fparchive/abbzip2typ.pas
View file

@ -92,6 +92,7 @@ type
procedure LoadArchive; override;
procedure SaveArchive; override;
procedure TestItemAt(Index : Integer); override;
function GetStreamMode : Boolean; override;
function GetSupportsEmptyFolders : Boolean; override;
public {methods}
@ -470,6 +471,11 @@ begin
end;
end;
{ -------------------------------------------------------------------------- }
function TAbBzip2Archive.GetStreamMode: Boolean;
begin
Result:= FIsBzippedTar and (inherited GetStreamMode);
end;
{ -------------------------------------------------------------------------- }
procedure TAbBzip2Archive.DoSpanningMediaRequest(Sender: TObject;
ImageNumber: Integer; var ImageName: string; var Abort: Boolean);
begin

6
plugins/wcx/zip/src/fparchive/abxztyp.pas
View file

@ -87,6 +87,7 @@ type
procedure LoadArchive; override;
procedure SaveArchive; override;
procedure TestItemAt(Index : Integer); override;
function GetStreamMode : Boolean; override;
function GetSupportsEmptyFolders : Boolean; override;
public {methods}
@ -450,6 +451,11 @@ begin
end;
end;
{ -------------------------------------------------------------------------- }
function TAbXzArchive.GetStreamMode: Boolean;
begin
Result:= FIsXzippedTar and (inherited GetStreamMode);
end;
{ -------------------------------------------------------------------------- }
procedure TAbXzArchive.DoSpanningMediaRequest(Sender: TObject;
ImageNumber: Integer; var ImageName: string; var Abort: Boolean);
begin

6
plugins/wcx/zip/src/fparchive/abzstdtyp.pas
View file

@ -85,6 +85,7 @@ type
procedure LoadArchive; override;
procedure SaveArchive; override;
procedure TestItemAt(Index : Integer); override;
function GetStreamMode : Boolean; override;
function GetSupportsEmptyFolders : Boolean; override;
public {methods}
@ -465,6 +466,11 @@ begin
end;
end;
{ -------------------------------------------------------------------------- }
function TAbZstdArchive.GetStreamMode: Boolean;
begin
Result:= FIsZstdTar and (inherited GetStreamMode);
end;
{ -------------------------------------------------------------------------- }
procedure TAbZstdArchive.DoSpanningMediaRequest(Sender: TObject;
ImageNumber: Integer; var ImageName: string; var Abort: Boolean);
begin