paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 09:26:15 +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; function TBase64Encoding.DoEncode(const aInput, aOutput: TStream): Integer;
Var Var
S : TBase64DecodingStream; S : TBase64EncodingStream;
begin begin
S:=TBase64DecodingStream.Create(aInput); S:=TBase64EncodingStream.Create(aInput);
try try
Result:=S.Size; Result:=S.Size;
aOutput.CopyFrom(S,Result); aOutput.CopyFrom(S,Result);