[base64] added new methods

Author: exilon

Quick.Base64.pas

@@ -33,6 +33,7 @@
 interface
 
 uses
+  System.SysUtils,
   {$IFDEF DELPHIXE7_UP}
   System.NetEncoding;
   {$ELSE}
@@ -42,6 +43,10 @@ interface
 
 function Base64Encode(const Input: string): string;
 function Base64Decode(const Input: string): string;
+{$IFDEF DELPHIXE7_UP}
+function Base64DecodeFromBinary(const Input: string) : string;
+function Base64DecodeToBytes(const Input: string) : TBytes;
+{$ENDIF}
 
 implementation
 
@@ -63,5 +68,20 @@ function Base64Decode(const Input: string): string;
   {$ENDIF}
 end;
 
+{$IFDEF DELPHIXE7_UP}
+function Base64DecodeFromBinary(const Input: string) : string;
+var
+  b : TBytes;
+begin
+  b := TNetEncoding.Base64.DecodeStringToBytes(Input);
+  Result := TEncoding.ANSI.GetString(b);
+end;
+
+function Base64DecodeToBytes(const Input: string) : TBytes;
+begin
+  Result := TNetEncoding.Base64.DecodeStringToBytes(Input);
+end;
+{$ENDIF}
+
 end.