Forum: Algorithmen, Datenstrukturen und Klassendesign
by gammatester,
29. Nov 2017
Es ist behoben, zumindest bei meinem TokyoStarter (Delphi 10.2 Version 25.0.26309.314 ) kann ich die Units sogar parallel benutzen (für Masochisten). Das wird auch schon seit Mai 2017 im Archiv mit separaten einem Testprogramm getestet (File t_emb_we.dpr in $d25.zip, siehe auch das D25-Logfile t_crchash_d25.log)G:\CRC_HASH>G:\CRC_HASH\t_emb_we.dproj
G:\CRC_HASH>T_EMB_WE.exe
Test hashing "abc"...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by gammatester,
29. Nov 2017
Das gibt es unter Linux oder Windows 98 gar nicht. Aber das ist auch nicht der Hauptgrund: Es sind Kompatibilität und Faulheit :wink:
Aber ich kann es gerne in die übernächste Version einbauen als procedure HashFile({$ifdef CONST} const {$endif} fname: String; PHash: PHashDesc;
var Digest: THashDigest; var buf; bsize: word; var Err: word);
{-Calculate hash digest of...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by gammatester,
29. Nov 2017
Um zu zeigen, daß kein wesentlicher Geschwindigkeitsverlust auftritt.Richtig.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by gammatester,
29. Nov 2017
procedure MD5File(const fname: Str255; var Digest: TMD5Digest; var buf; bsize: word; var Err: word);
{-MD5 of file, buf: buffer with at least bsize bytes}
Und als Kommentar in Hash.HashFile: {-Calculate hash digest of file, buf: buffer with at least bsize bytes}
Das Ergebnis Digest ist ein Var-Parameter! Außerdem hast Du noch einen Error-Code Err, falls ein Fehler auftritt.
Was willst Du...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by gammatester,
26. Nov 2017
Nein, nicht ganz. Hier ein Konsol-Prgramm, das paramstr(1) hasht.
program md5file;
{$apptype console}
uses
system.classes,
hash, md5, mem_util;
function MD5F(const AFileName: String): string;
var