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

UPD: TXzDecompressionStream.Seek function

Browse source
This commit is contained in:
Alexander Koblov 2023-10-09 19:45:44 +03:00
commit d8bc7ce213
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
plugins/wcx/zip/src/fparchive/abxz.pas
View file

@ -344,9 +344,12 @@ end;
function TXzDecompressionStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
begin
if (Offset = 0) and (Origin = soCurrent) then
Result:= FLzmaRec.total_in
else if (Origin = soBeginning) and (FLzmaRec.total_in = Offset) then
if (Offset >= 0) and (Origin = soCurrent) then
begin
if (Offset > 0) then Discard(Offset);
Result:= FLzmaRec.total_out;
end
else if (Origin = soBeginning) and (FLzmaRec.total_out = Offset) then
Result:= Offset
else begin
raise ELzmaDecompressionError.CreateFmt(SStreamInvalidSeek, [ClassName]);