Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Eindeutiger Vergleich für große Dateien gesucht

    Delphi
    by FriFra, 4. Aug 2005
  @negaH: Eben diese Wahrscheinlichkeiten sind nach meinen Erfahrungen/Tests "etwas" anders...
  Wenn ich ein Programm habe, welches alle gefundenen gleichgroßen Dateien vergleichen soll, dann dauert das Erzeugen der jeweiligen Hashwerte deutlich länger als ein Bitweiser Vergleich, da sich die meisten "duplikate", trotz gleicher Größe erheblich unterscheiden. Es liegt auf der Hand, daß es länger...
• Forum: Sonstige Fragen zu Delphi

  Re: Eindeutiger Vergleich für große Dateien gesucht

    Delphi
    by FriFra, 4. Aug 2005
  ja, das wars ;) ... nur das HashFile bremst das ganze bei mir extrem aus. Wenn ich ausschliesslich mit der MMF Methode vergleiche ist das ganze wesentlich schneller als über Hash. Ich weiss im Moment nicht so recht, wo der Vorteil/Sinn von diesem Hash-Vergleich liegen soll :gruebel:
• Forum: Sonstige Fragen zu Delphi

  Re: Eindeutiger Vergleich für große Dateien gesucht

    Delphi
    by FriFra, 4. Aug 2005
  :shock: Das war ja mehr als ich erwartet hab... Danke negah :)
  
  Eins ist mir allerdings aufgefallen... die CompareFile Funktion die du vor Deiner unit gepostet hast, ist bei mir deutlich schneller als die aus der FileCompare.pas. Ich hab das ganze über mehrere Dateien laufen lassen und komme mit der Funktion aus dem Thread auf 10s und mit der aus der unit auf 70s :gruebel: ... ich hab mir...
• Forum: Sonstige Fragen zu Delphi

  Re: Eindeutiger Vergleich für große Dateien gesucht

    Delphi
    by FriFra, 4. Aug 2005
  :oops: da hatte ich doch gerade den "falschen" Fehler markiert...
  Viel häufiger tritt jedoch an folgender Stelle ein Fehler auf:P1 := MapViewOfFile(MapHandle1, FILE_MAP_READ, CurPosHi,
  CurPosLo, CurSize);
  ...
  
  
  Es scheint also CurPosHi und/oder CurPosLo nicht zu passen :roll: ...
• Forum: Sonstige Fragen zu Delphi

  Re: Eindeutiger Vergleich für große Dateien gesucht

    Delphi
    by FriFra, 4. Aug 2005
  @negah: Ich hab auch mal versucht Deinen Code umzusetzen... leider kommt es beim Vergleich hin und wieder zu Fehlern...
  Result := False;
  FileHandle1 := FileOpen(FileName1, fmOpenRead or fmShareDenyWrite);
  if FileHandle1 <> INVALID_HANDLE_VALUE then
  try
  FileHandle2 := FileOpen(FileName2, fmOpenRead or fmShareDenyWrite);
  if FileHandle2 <> INVALID_HANDLE_VALUE then
  ...