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

* Fix bug ID #0034071

Browse Source 
git-svn-id: trunk@39551 -
This commit is contained in:
michael 2018-08-02 13:10:12 +00:00
parent a7cbafb658
commit 4700e982d4
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-base/src/base64.pp
View File

@ -420,11 +420,15 @@ end;
function DecodeStringBase64(const s:string;strict:boolean=false):String;
var
SD : String;
Instream,
Outstream : TStringStream;
Decoder : TBase64DecodingStream;
begin
Instream:=TStringStream.Create(s);
SD:=S;
while Length(Sd) mod 4 > 0 do
SD := SD + '=';
Instream:=TStringStream.Create(SD);
try
Outstream:=TStringStream.Create('');
try