Hab so eben noch eine Testanwendung gebastelt:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Label1.Caption := MD5Print(MD5File(OpenDialog1.FileName));
label1.Refresh;
end;
end;
Funktioniert bei keiner exe. Hab diese
Unit aber unter Turbo Delphi schon erfolgreich eingesetzt. Weiß jemand wie man die md5.pas Delphi 2009 kompatibel macht oder gibt es alternativen (kommerzielle Verwendung muss erlaubt sein, darf auch was kosten)?
EDIT: Geht auch nicht bei
DLL, SYS,
COM, etc. Bei Text-Dateien (txt,
html, etc.) aber schon...
Problem gelöst, verwende jetzt das DEC 5.2