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: Wrong "From" path when copying from .b64 (issue #1639)

Browse source 
(cherry picked from commit 9370d9ec7c)
This commit is contained in:
Alexander Koblov 2025-11-03 14:18:22 +03:00
commit c1df50e370
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
Base64 archiver plugin
Copyright (C) 2022-2024 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2022-2025 Alexander Koblov (alexx2000@mail.ru)
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
@ -181,6 +181,7 @@ var
fsOutput: TStream;
APercent: Integer;
ATargetName: String;
ASourceName: UnicodeString;
AStream: TBase64DecodingStreamEx;
AHandle: TRecord absolute hArcData;
begin
@ -200,13 +201,14 @@ begin
try
AFileSize:= AHandle.Stream.Size;
SetLength(ABuffer, BUFFER_SIZE);
ASourceName:= CeUtf8ToUtf16(AHandle.FileName);
repeat
ARead:= AStream.Read(ABuffer[0], BUFFER_SIZE);
if ARead > 0 then
begin
fsOutput.WriteBuffer(ABuffer[0], ARead);
APercent:= (AStream.Source.Position * 100) div AFileSize;
if (AHandle.ProcessDataProcW(DestName, -APercent) = 0) then
if (AHandle.ProcessDataProcW(PWideChar(ASourceName), -APercent) = 0) then
begin
FreeAndNil(fsOutput);
if Operation = PK_EXTRACT then mbDeleteFile(ATargetName);