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

ADD: Base64 - don't show original file size, it is unknown (issue #1630)

Browse source 
(cherry picked from commit 94d501e320)
This commit is contained in:
Alexander Koblov 2024-05-09 17:50:59 +03:00
commit c4e8b2c348
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
plugins/wcx/base64/src/base64func.pas
View file

@ -164,6 +164,8 @@ begin
Result := E_SUCCESS;
FileName:= CeUtf8ToUtf16(AHandle.FileName);
FillChar(HeaderData, SizeOf(AHandle.Count), 0);
HeaderData.UnpSize:= $FFFFFFFE;
HeaderData.UnpSizeHigh:= $FFFFFFFF;
PackSize:= AHandle.Stream.Size - AHandle.Stream.Position;
HeaderData.PackSize:= Int64Rec(PackSize).Lo;
HeaderData.PackSizeHigh:= Int64Rec(PackSize).Hi;