MD5-Prüfroutine für Delphi 10.2

[gammatester]

Zitat von mensch72:

Eine beliebige Datei (hier 5,3GB) komplett in MemoryStream einlesen ist doch Wahnsinn... morgen ist es eine 15GB Datei und da is auch in 64bit mit 16GB Ram schluss mit lustig...

Ganz meine Meinung In einer virtuellen Maschine war bei mir auf schon bei 512 MB Schluß, mit nichtssagender Stream Error Exception. Deine Lösung mag zwar schneller sein, aber selbst mit der simplen eingebauten Prozedur MD5File aus md5.pas Lösung mit max. 64 KB Buffer hat man keine wesentlichen Geschwindingkeitseinbußen:

Code:

D:\Work\CRC_HASH>timethis md5fileb.exe 512MB_A

TimeThis :  Command Line :  md5fileb.exe 512MB_A
TimeThis :    Start Time :  Mon Nov 27 09:33:02 2017

sizeof(buf)= 61440
31e4d9c6d74cd592b78f77f72965d6ab

TimeThis :  Command Line :  md5fileb.exe 512MB_A
TimeThis :    Start Time :  Mon Nov 27 09:33:02 2017
TimeThis :      End Time :  Mon Nov 27 09:33:05 2017
TimeThis :  Elapsed Time :  00:00:02.474