Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.183 Beiträge
 
Delphi 12 Athens
 
#85

Re: Filedup - Identische Dateien finden

  Alt 6. Jan 2007, 15:07
mehrere Dateien gleichzeitig bring in diesem Fall kaum etwas, da der Flaschenhals ja bei der Festplatte liegt und wenn dort dann an nochmehr Stellen gleichzeitig gearbeitet wird, dann wird eher alles noch Langsamer, wegen dem vielen Hinunhergespringe http://fnse.de/S05/1OC.gif

Ach ja ... bei wenigen Dateien und kleinen Datenmengen ist dein Programm zusammen mit der FileCache natürlich recht "schnell", aber bei besonders vielen und/oder großen Dateien wird die WindowsFileCache schon mal recht schnell überlastet und beginnt dramatisch dat Programm auszubremsen, weßhalb dort NonCached von Vorteil ist.

PS: darum sind ja eigentlich die CPU-Angaben recht uninteresant (die CPU-Last des Programms ist eh recht gering ... war bei der ersten Version ja noch nicht so ... hatte sie gerade nochmal mit im Vergleich )

http://fnse.de/S05/1O7.gif



PSS:
mein kleines Vergleichsprojektchen, welches sich jetzt am 3. Entwicklungstag dem Ende meiner Aufmerksamkeit entgegensieht, schaut nun so aus ... jetzt auch mit SourceCode

- mehrere Suchverzeichnisse möglich (einfach mit * trennen)
- Drag&Drop (auch mit mehreren Verzeichnissen)
- unicodefähig (wenn TEdit und TLabel entsprechend ersetzt werden)

- DIE CHECKBOX... (bevor sich wer wundert)
Damit wird das "ECHTE" Löschen der Dateien übergangen.
Die Dateien werden also nur in der List gelöscht und nicht in Echt, wenn da ein Häckchen ist.


Der 2. Hash (TopHash) ... früher (wenn man gestern so nennen darf) mal der Hash der kompletten Datei (FullHash) ... kann mit folgenden 2 Zeilen übergangen werden.
(eventuell wird er eh bald komplett entfernt)
Delphi-Quellcode:
// mit zweitem Hash
Function GetTopHash(Dir: Integer; Const Name: WideString): TCRC32o;
  ...

  Begin
    D := '';

// OHNE zweiten Hash
Function GetTopHash(Dir: Integer; Const Name: WideString): TCRC32o;
  ...

  Begin
Result := $12345678;
Exit;
    D := '';
Angehängte Dateien
Dateityp: zip searchsamefiles_827.zip (12,1 KB, 23x aufgerufen)
Dateityp: exe searchsamefiles2_131.exe (270,5 KB, 37x aufgerufen)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat