test TSimbaFile.FileReadBytes for byte reading when hasing files

Author: Torwent

Source/simba.hash.pas

@@ -11,7 +11,7 @@ interface
 
 uses
   Classes, SysUtils,
-  simba.base;
+  simba.base, simba.fs;
 
 type
   {$SCOPEDENUMS ON}
@@ -63,10 +63,10 @@ function HashString(Algo: EHashAlgo; const S: String): String;
 
 function HashFile(Algo: EHashAlgo; const FileName: String): String;
 var
-  Bytes: TBytes;
+  Bytes: TByteArray;
 begin
   try
-    Bytes := GetFileContents(FileName);
+    Bytes := TSimbaFile.FileReadBytes((FileName);
   except
   end;