base64Decode kann nun auch zu longint dekodieren

1 files changed, 14 insertions, 2 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index 3e1911f..eb54b39 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -80,7 +80,8 @@ procedure fehler(s: string);
 
 function hexDump(p: pointer; cnt: longint): string;
 function base64ToBin(var s: string): boolean;
-function base64Decode(const s: string; out i: int64): boolean;
+function base64Decode(const s: string; out i: int64): boolean; overload;
+function base64Decode(const s: string; out i: longint): boolean; overload;
 
 var
   base64Chars: array[0..63] of char;
@@ -682,7 +683,7 @@ begin
   result:=true;
 end;
 
-function base64Decode(const s: string; out i: int64): boolean;
+function base64Decode(const s: string; out i: int64): boolean; overload;
 var
   j: longint;
   b: byte;
@@ -697,6 +698,17 @@ begin
   result:=true;
 end;
 
+function base64Decode(const s: string; out i: longint): boolean; overload;
+var
+  j: int64;
+begin
+  result:=base64Decode(s,j);
+  if result then
+    i:=j
+  else
+    i:=0;
+end;
+
 var b: byte;
 
 begin