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: Base64 - decoding progress

Browse source
This commit is contained in:
Alexander Koblov 2022-02-04 18:54:13 +03:00
commit 8c1dc7de0d
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -170,8 +170,10 @@ function ProcessFileW(hArcData: TArcHandle; Operation: Integer; DestPath, DestNa
var
ARead: Integer;
ABuffer: TBytes;
FileName: String;
AFileSize: Int64;
fsOutput: TStream;
APercent: Integer;
ATargetName: String;
AStream: TBase64DecodingStreamEx;
AHandle: TRecord absolute hArcData;
begin
@ -183,22 +185,24 @@ begin
if Operation = PK_TEST then
fsOutput:= TNullStream.Create
else begin
FileName:= CeUtf16ToUtf8(DestPath) + CeUtf16ToUtf8(DestName);
fsOutput:= TFileStreamEx.Create(FileName, fmCreate);
ATargetName:= CeUtf16ToUtf8(DestPath) + CeUtf16ToUtf8(DestName);
fsOutput:= TFileStreamEx.Create(ATargetName, fmCreate);
end;
try
AStream:= TBase64DecodingStreamEx.Create(AHandle.Stream);
try
AFileSize:= AHandle.Stream.Size;
SetLength(ABuffer, BUFFER_SIZE);
repeat
ARead:= AStream.Read(ABuffer[0], BUFFER_SIZE);
if ARead > 0 then
begin
fsOutput.WriteBuffer(ABuffer[0], ARead);
if (AHandle.ProcessDataProcW(DestName, ARead) = 0) then
APercent:= (AStream.Source.Position * 100) div AFileSize;
if (AHandle.ProcessDataProcW(DestName, -APercent) = 0) then
begin
FreeAndNil(fsOutput);
if Operation = PK_EXTRACT then mbDeleteFile(FileName);
if Operation = PK_EXTRACT then mbDeleteFile(ATargetName);
Exit(E_EABORTED);
end;
end;