mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
parent
41ea61700e
commit
084bd85028
1 changed files with 7 additions and 3 deletions
|
|
@ -86,12 +86,16 @@ begin
|
|||
end;
|
||||
|
||||
function ExtractXz(InStream, OutStream: TStream): Boolean;
|
||||
var
|
||||
AStream: TStream;
|
||||
begin
|
||||
with TLzmaDecompression.Create(InStream, OutStream) do
|
||||
Result:= False;
|
||||
AStream:= TXzDecompressionStream.Create(InStream);
|
||||
try
|
||||
Result:= Code();
|
||||
OutStream.CopyFrom(AStream, 0);
|
||||
Result:= True;
|
||||
finally
|
||||
Free;
|
||||
AStream.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue