paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 02:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Use correct stream type in TBase64Encoding.DoEncode, fix issue #40779

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-05-13 10:36:53 +02:00
parent 0248b9904c
commit 52c65e076f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/vcl-compat/src/system.netencoding.pp
View File

@ -140,10 +140,10 @@ end;
function TBase64Encoding.DoEncode(const aInput, aOutput: TStream): Integer;
Var
S : TBase64DecodingStream;
S : TBase64EncodingStream;
begin
S:=TBase64DecodingStream.Create(aInput);
S:=TBase64EncodingStream.Create(aInput);
try
Result:=S.Size;
aOutput.CopyFrom(S,Result);