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

* boolean for decodestringbase64 to select strict mode.

Browse Source 
git-svn-id: trunk@22713 -
This commit is contained in:
marco 2012-10-18 08:01:15 +00:00
parent 65c657006c
commit 7263b3c5a4
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -87,7 +87,7 @@ type
end;
function EncodeStringBase64(const s:string):String;
function DecodeStringBase64(const s:string):String;
function DecodeStringBase64(const s:string;strict:boolean=false):String;
implementation
@ -417,7 +417,7 @@ begin
raise EStreamError.Create('Invalid stream operation');
end;
function DecodeStringBase64(const s:string):String;
function DecodeStringBase64(const s:string;strict:boolean=false):String;
var
Instream,
@ -428,7 +428,10 @@ begin
try
Outstream:=TStringStream.Create('');
try
Decoder:=TBase64DecodingStream.Create(Instream,bdmMIME);
if strict then
Decoder:=TBase64DecodingStream.Create(Instream,bdmStrict)
else
Decoder:=TBase64DecodingStream.Create(Instream,bdmMIME);
try
Outstream.CopyFrom(Decoder,Decoder.Size);
Result:=Outstream.DataString;