FileExists/FileDate - Auslesen über Netzwerk langsam

[nahpets]

Also Delphi 7 kennt die Funktion FileAge, die Hilfe schreibt dazu:

Zitat:

Die Funktion gibt den Zeitstempel des Betriebssystems von einer Datei zurück.

Unit

SysUtils

Kategorie

Dateiverwaltung

Delphi-Syntax:

function FileAge(const FileName: string): Integer;

Beschreibung

Mit FileAge können Sie den Betriebssystem-Zeitstempel der in FileName angegebenen Datei ermitteln. Der Rückgabewert kann anschließend mit der Funktion FileDateToDateTime in ein TDateTime-Objekt konvertiert werden. Ist die angegebene Datei nicht vorhanden, wird der Wert -1 zurückgegeben.

Würde dann nicht sowas reichen?

Delphi-Quellcode:

function IsFileANewerFileB(aFileA, aFileB: string): Boolean;
begin
  Result := FileAge(aFileA) > FileAge(aFileB);
end;

[dGeek]

Verstehe ich nicht. Egal ob FindFirst oder FileAge. Alles gleich langsam.
In 15 Sekunden prüft er ~2700 Dateien (Durchgänge).

Wenn Quelle und Ziel eine fest im PC installierte Festplatte sind, dauert das ganze keine 3 Sekunden mit 10.000 Durchgängen.

[Dalai]

Die Geschwindigkeit des Netzwerks spielt hier eine stark untergeordnete Rolle. Wichtig ist die Latenz, und die ist nunmal in einem Netzwerk um Faktoren größer als bei einer lokal verbauten Platte. Und wenn es dann noch ein Plasterouter ist, sieht die Welt eh wieder anders aus (lies: Latenz noch größer), denn das sind nunmal keine NAS oder ähnliche auf LAN und SMB optimierte Geräte.

Grüße
Dalai

[dGeek]

Nur wie machen das dann Programme wie FreeFileSync.
Mit dem Programm kann ich 10000 Dateien von meiner im PC befindlichen Festplatte mit 10000 Dateien von der Festplatte im Netzwerk in etwa 10 Sekunden vergleichen.
Das Programm vergleicht auch Datum oder Inhalt. Genau wie ich. Nur ich bin irgendwie zu blöd

[RWarnecke]

Zu FreeFileSync gibt es auch den Quelltext, schaue da doch mal rein, wie die das machen. Wenn ich das richtig weiß und auch richtig beobachtet habe gehen die bei FreeFileSync über mehrere Threads die parallel laufen.

[dGeek]

Mh ja ok. Ich arbeite die 10000 Dateien (eine StringListe) in nur in einem Thread ab.

Hier wäre jetzt die Parallel Library von XE7 schön denke ich.

[himitsu]

Keinem ist das fehlende FindClose aufgefallen?
10.000 offene Such-Handlesmachen sich bestimmt gut.

Nja, wenn es langsam ist, dann würde ich wenigstens die Dateiliste sortieren und Dateien im gleichen Verziechnis auch mit dem gleichen FindFirst+FindNext suchen.