MD5-Prüfroutine für Delphi 10.2

[gammatester]

Zitat von LTE5:

Hat das den alleinigen Grund MAX_PATH nicht zu übersteigen?
Das wäre doch mit \\?\ gelöst.

Das gibt es unter Linux oder Windows 98 gar nicht. Aber das ist auch nicht der Hauptgrund: Es sind Kompatibilität und Faulheit

Aber ich kann es gerne in die übernächste Version einbauen als

Delphi-Quellcode:

procedure HashFile({$ifdef CONST} const {$endif} fname: String; PHash: PHashDesc;
                    var Digest: THashDigest; var buf; bsize: word; var Err: word);
  {-Calculate hash digest of file, buf: buffer with at least bsize bytes}

Die nächste Version ist unterwegs (heute oder morgen je nach Ablenkung) und bringt wesentlich beschleunigte Blake2B- und Blake2S-Routinen, Blake2B für alle Compiler von TP5 bis Tokyo.

[LTE5]

Zitat:

Aber ich kann es gerne in die übernächste Version einbauen als

Das wär u.a. für mich sehr hilfreich.
Das \\?\ hänge jedenfalls ich immer vor meine Pfade.
Es kommt zwar nicht so oft vor, dass ein Pfad MAX_PATH überschreitet, aber es kann schon vorkommen.

P.S. kannst du ebenfalls bestätigen, dass Embarcaderos Fix gar kein Fix war? Denn wenn hash in den uses steht, wird nach System.Hash gesucht und nicht nach deiner Hash-Unit.
Angeblich wurde das von Embarcadero ja behoben ...

[Uwe Raabe]

Zitat von LTE5:

P.S. kannst du ebenfalls bestätigen, dass Embarcaderos Fix gar kein Fix war? Denn wenn hash in den uses steht, wird nach System.Hash gesucht und nicht nach deiner Hash-Unit.
Angeblich wurde das von Embarcadero ja behoben ...

Hier funktioniert das jedenfalls unter 10.2 Tokyo Update 1.

[LTE5]

Ich musste erst Hash nach weHash umbenennen, sonst wird immer nach System.Hash gesucht.

Wenn ich die Units alle neu runterlade und nichts umbenenne, kompiliere kommt md5.pas(100): E2003 Undeklarierter Bezeichner: 'THashContext'

Benenne ich Hash nach weHash um, ist alles gut.

[Uwe Raabe]

Zitat von LTE5:

Ich musste erst Hash nach weHash umbenennen, sonst wird immer nach System.Hash gesucht.

Komisch. Ich habe ein neues Projekt angelegt. Dabei werden die Unit-Scope-Names auf diesen Wert gesetzt:

Zitat:

Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;So ap.Win;Xml.Win;Bde;System;Xml;Data;Datasnap;Web;So ap

Dann im Suchpfad das Verzeichnis der crc-hash Units eingetragen.

Das Projekt sieht dann so aus und compiliert ohne Probleme:

Delphi-Quellcode:

program HashTest;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  hash,
  md5;

procedure Main;
var
  context: THashContext;
begin
  MD5Init(context);
end;

begin
  try
    Main;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Delphi 10.2 Update 1 (Version 25.0.27659.1188)

[LTE5]

Zitat:

Dann im Suchpfad das Verzeichnis der crc-hash Units eingetragen.

Habe ich nie gemacht. Wird wohl daran liegen.

[gammatester]

Zitat von LTE5:

P.S. kannst du ebenfalls bestätigen, dass Embarcaderos Fix gar kein Fix war? Denn wenn hash in den uses steht, wird nach System.Hash gesucht und nicht nach deiner Hash-Unit.
Angeblich wurde das von Embarcadero ja behoben ...

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)

Code:

G:\CRC_HASH>G:\CRC_HASH\t_emb_we.dproj
G:\CRC_HASH>T_EMB_WE.exe
Test hashing "abc"
Using WE - CRC/Hash
      MD5 900150983cd24fb0d6963f7d28e17f72
  SHA-256 ba7816bf8f01cfea414140de5dae2223b00361a396177a9cb410ff61f20015ad
Using system.hash
      MD5 900150983cd24fb0d6963f7d28e17f72
  SHA-256 ba7816bf8f01cfea414140de5dae2223b00361a396177a9cb410ff61f20015ad

[LTE5]

Ja ich denke die Lösung war einfach nur die Pfade zu den Hash-Dateien in die Suchpfade mit einzutragen, was ich vorher nie gemacht habe.