Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 15:55:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Added parameter to inform string encoding.

Browse Source
This commit is contained in:
João Antônio Duarte 2019-07-02 15:43:37 -03:00
parent 4b41c65721
commit 15aa842bf2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
sources/MVCFramework.Commons.pas
View File

@ -513,7 +513,7 @@ function B64Encode(const aValue: string): string; overload;
function B64Encode(const aValue: TBytes): string; overload;
function B64Decode(const aValue: string): string;
function URLSafeB64encode(const Value: string; IncludePadding: Boolean): string; overload;
function URLSafeB64encode(const Value: string; IncludePadding: Boolean; AByteEncoding: IIdTextEncoding = nil): string; overload;
function URLSafeB64encode(const Value: TBytes; IncludePadding: Boolean): string; overload;
function URLSafeB64Decode(const Value: string): string;
@ -979,12 +979,12 @@ begin
FFillChar := '='; { Do not Localize }
end;
function URLSafeB64encode(const Value: string; IncludePadding: Boolean): string; overload;
function URLSafeB64encode(const Value: string; IncludePadding: Boolean; AByteEncoding: IIdTextEncoding = nil): string; overload;
begin
if IncludePadding then
Result := TURLSafeEncode.EncodeString(Value)
Result := TURLSafeEncode.EncodeString(Value, AByteEncoding)
else
Result := TURLSafeEncode.EncodeString(Value).Replace('=', '', [rfReplaceAll]);
Result := TURLSafeEncode.EncodeString(Value, AByteEncoding).Replace('=', '', [rfReplaceAll]);
end;
/// <summary>