paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 08:29:20 +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; end;
function EncodeStringBase64(const s:string):String; function EncodeStringBase64(const s:string):String;
function DecodeStringBase64(const s:string):String; function DecodeStringBase64(const s:string;strict:boolean=false):String;
implementation implementation
@ -417,7 +417,7 @@ begin
raise EStreamError.Create('Invalid stream operation'); raise EStreamError.Create('Invalid stream operation');
end; end;
function DecodeStringBase64(const s:string):String; function DecodeStringBase64(const s:string;strict:boolean=false):String;
var var
Instream, Instream,
@ -428,7 +428,10 @@ begin
try try
Outstream:=TStringStream.Create(''); Outstream:=TStringStream.Create('');
try try
Decoder:=TBase64DecodingStream.Create(Instream,bdmMIME); if strict then
Decoder:=TBase64DecodingStream.Create(Instream,bdmStrict)
else
Decoder:=TBase64DecodingStream.Create(Instream,bdmMIME);
try try
Outstream.CopyFrom(Decoder,Decoder.Size); Outstream.CopyFrom(Decoder,Decoder.Size);
Result:=Outstream.DataString; Result:=Outstream.DataString;