Ich habe jetzt ein wenig rumprobiert und auch Fridolin Walthers Ansatz getestet. Fehler blieb.
Dann habe ich ganz einfach mal ein Button Klick Event gemacht mit:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(MD5Print(MD5File('Test.txt')));
end;
und er zeigt mir den MD5 Wert an.
Allerdings in meiner
FTP Funktion funktioniert es nicht:
EDIT:
FTP Thread entfernt und Lösung gefunden.
Zitat:
Autor: Fridolin Walther
Das Problem liegt in der MD5Update Funktion:
procedure MD5Update(var Context: MD5Context; Input: pChar; Length: longword);
Änder dort den Input Parameter in pAnsiChar (sowohl im interface als auch im implementation Teil der
Unit).
DANKE! Es geht! Habe dein Edit erst jetzt gesehen.. Kannst du mir vielleicht auch den Hintergrund nennen, wieso es nur mit pAnsiChar geht?