Problem mit md5.pas

[reepo2k]

Hallo, ich ahbe ein kleines Problem mit der md5.pas.

Wenn ich den Hash einer Datei bekommen möchte:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
Var
  MyHash : TMD5Digest;
begin
  MyHash := MD5File(OpenDialog1.FileName);
  Edit2.Text := md5.MD5DigestToStr(MyHash);
end;

Dann bekomm ich manchmal folgende Meldung:

Zitat:

Datei C:\bla.endung kann nicht geöffnet werden. Der prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wird.

Gibt es eine Möglichkeit, wie ich trotzdem an den MD5-Hash komme?


THX!


MfG: reepo2k

[dahead]

welche implementierung von md5 verwendest du, sprich von welchem autor stammt die unit?

bei mir geht das wie folgt:

Delphi-Quellcode:

var
  fChecksum: String;
begin
  fChecksum := MD5Print(MD5File(OpenDialog1.Filename));
end;

[reepo2k]

Die md5.pas die ich benutze ist von Dimka Maslov.

Hier mal das Copyright:

Zitat:

{************************************************* *****************}
{ MD5 Hashsum Evaluation Unit For Borland Delphi }
{ }
{ Copyright © 2002 by Dimka Maslov }
{ E-mail: [e-mail], }
{ Web-site: http://www.endimus.com }
{ }
{ Derived from the RSA Data Security, Inc. }
{ MD5 Message-Digest Algorithm described in RFC 1321 }
{ http://www.faqs.org/rfcs/rfc1321.html }
{************************************************* *****************}

[dahead]

das hilft mir nicht wirklich weiter, da die webseite mtwl. wohl nicht mehr unter der angegebenen url existiert.

funktioniert es nicht, wie ich oben geschrieben habe?

[St.Pauli]

Ich glaube die Implentierung stimmt schon. Nur wie du schon sagtest wird die Datei gerade verwendet.
Du könntest versuchen, den Prozess zu beenden, von dem sie benutzt wird.

[reepo2k]

Zitat von St.Pauli:

Ich glaube die Implentierung stimmt schon. Nur wie du schon sagtest wird die Datei gerade verwendet.
Du könntest versuchen, den Prozess zu beenden, von dem sie benutzt wird.

Jo, gibt es denn keine andere Möglichkeit als den Prozess zu beenden?
Denn das scheint mir nicht wirklich elegant.


So wie ich das mache funktioniert das ja auch, nur bei einigen Dateien nicht, da diese wie schon geschreiben verwendet werden.



MfG: reepo2k

[freak4fun]

Hallo ,
es wird aber nur der Hash vom Namen der Datei gebildet, oder? Ich bin mir nicht ganz sicher ob es das ist was reepo2k will.

MfG
freak

[reepo2k]

Zitat von freak4fun:

Hallo ,
es wird aber nur der Hash vom Namen der Datei gebildet, oder? Ich bin mir nicht ganz sicher ob es das ist was reepo2k will.

MfG
freak

Nein, nicht vom Namen, sondern von der Datei.

Ich habe mal die md5.pas als Dateianhang beigefügt.

MfG: reepo2k

Edit: Nur wenn die Datei bereits verwendet wird, bekomm ich keinen Hash, sondern eine Fehlermeldung.

[reepo2k]

So ich habe jetzt mal die md5.pas von http://www.fichtner.net/delphi/md5.delphi.phtml genommen und mit der hab ich so wie es aussieht nicht das Problem.

reepo2k