.: CheckIt! :.

[St.Pauli]

Du must einfach nur den Pfad der Funktion übergeben, z.B. 'C:\Test.txt' - also als String :wink:

Edit:

Delphi-Quellcode:

...
VAR Datei1, Datei2 : string;
begin
Datei1 := 'C:\Test1.txt';
Datei2 := 'C:\Test2.txt';

IF (HashFile(Datei1) = HashFile(Datei2)) THEN
    ShowMessage('Dateien sind gleich');

[Chrissi91]

Großes Danke! Ich habe in Version 1.3 (1. Beitrag) nun die Hashfunktion von negaH eingebunden. Sie funktioniert! Ich werde den Source heute noch in der Rubrik Opensource veröffentlichen! Über weitere Kritik würde ich mich freuen. :-D

[ichbins]

Jetzt sieht das Fenster aber (bei mir) ein bisschen komisch aus:

- Ich kann es nicht mehr verschieben
- Es hat einen so komisch hässlichen Rahmen :?

http://www.michaelensslin.kilu.de/dp/images/checkit.jpg

(xp-Version)

[Chrissi91]

Vorher konntest du die XP - Version nicht verschieben. Aber jetzt, wenn du auf das Weiße auf der Form klickst (der Hintergrund mit dem schwarzen gestrichelten Rahmen), kannst du das Fenster verschieben. Ich weiß, es sieht hässlich aus, aber das ist das Neue (die Komponente) zum Verschieben. Aber gut, ich mache es wieder rückgängig.

[ichbins]

Du darfst nicht nur mit dem Hash überprüfen und dann schon behaupten die Dateien wären identisch!!!!

Wenn der Hash identisch ist, dann sind die Dateien HÖCHSTWAHRSCHEINLICH identisch (1: 2^128), aber eben nur höchstwahrscheinlich. Du musst sie also noch weiter überprüfen.

[Daniel G]

Zitat:

Zitat von ichbins

Du darfst nicht nur mit dem Hash überprüfen und dann schon behaupten die Dateien wären identisch!!!!

Wenn der Hash identisch ist, dann sind die Dateien HÖCHSTWAHRSCHEINLICH identisch (1: 2^128), aber eben nur höchstwahrscheinlich. Du musst sie also noch weiter überprüfen.

Du weißt aber schon, dass eine Wahrscheinlichkeit von 1 : 2^128 ziemlich unwahrscheinlich ist, oder?

[Chrissi91]

Ups, dann habe ich da wohl etwa Mistverstanden ...

Also, wenn der Hash nicht identisch ist, brauche ich nicht weiterzuprüfen, wenn er identisch ist, muss ich zusätzlich noch mal überprüfen, ob die Dateien wirklich identisch sind. Sozusagen eine Art, den PC nicht zu stark auszulasten, wenn es auf den ersten Blick (Hash) nicht identisch sein kann.

Sehe ich das so richtig?

[Daniel G]

Zitat:

Zitat von Chrissi91

Ups, dann habe ich da wohl etwa Mistverstanden ...

Also, wenn der Hash nicht identisch ist, brauche ich nicht weiterzuprüfen, wenn er identisch ist, muss ich zusätzlich noch mal überprüfen, ob die Dateien wirklich identisch sind. Sozusagen eine Art, den PC nicht zu stark auszulasten, wenn es auf den ersten Blick (Hash) nicht identisch sein kann.

Sehe ich das so richtig?

Joar, so gehts auch.

[ichbins]

wobei natürlich die Wahrscheinlichkeit dass es jetzt noch abweicht seeeeehr gering ist. WinRAR benutzt z.B. Hashes auch zur Archivüberprüfung.

[Chrissi91]

Hallo,
http://www.delphipraxis.net/internal...=476350#476350

Endlich ist das Projekt unter der Open - Source Sparte!