Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.453 Beiträge
 
Delphi 12 Athens
 
#33

AW: MD5-Prüfroutine für Delphi 10.2

  Alt 29. Nov 2017, 14:30
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)
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat