FileExists/FileDate - Auslesen über Netzwerk langsam

[dGeek]

Ich benutze aktuell folgenden Schnipsel, um das Änderungsdatum einer Datei herauszufinden:

Delphi-Quellcode:

function getFileLastModified(const aFileName: string): TDateTime;
var
 SR: TSearchRec;
begin
 Result := 0;

 try
  FindFirst(aFileName, faAnyFile, SR);
  Result := SR.TimeStamp;
 except
 end;
end;

Die Funktion scheint etwas lahm zu sein, wenn man viele Dateien prüft, die auf einer Festplatte im Netzwerk liegen.
Gibt es da nichts Schnelleres? Speziell wenn aFileName nicht existiert ist das sehr langsam.

Letztendlich bin ich mir nicht sicher, ob es vielleicht doch FileExists() ist, welches über Netzwerk langsam ist.

[zeras]

Kannst du nicht die Dateien mit Findfirst und FindNext auslesen und nicht jedesmal mit deiner Funktion eine neue Suche starten, wo wieder jedes Mal Findfirst vorkommt?
Oder kann man die Dateien nicht mit einer generellen Suche Beispiel "*.txt" suchen?

[dGeek]

Die Dateiliste existiert bereits.

Erklärung:

Verzeichnis Quelle hat:
- Datei1
- Datei2
- Datei3

Verzeichnis Ziel (Festplatte im Netzwerk):
- Datei1


Datei2 und - Datei3 fehlen im Netzwerk also.

Jetzt wird durch die Quellliste iteriert:

von 0 bis Listenende-1 tue
- Wenn Quelle+DateiN neuer als Ziel+DateiN dann .... (IsFileANewerFileB)

Die Vergleichsfunktion:

Delphi-Quellcode:

function IsFileANewerFileB(aFileA, aFileB: string): Boolean;
var
 bRes: Boolean;
begin
 if (not FileExists(aFileB)) or (not FileExists(aFileA)) then
  bRes := True
 else
  bRes := getFileLastModified(aFileA) > functions.getFileLastModified(aFileB);

 Result := bRes;
end;

function getFileLastModified(const aFileName: string): TDateTime;
var
 SR: TSearchRec;
begin
 Result := 0;

 FindFirst(aFileName, faAnyFile, SR);
 Result := SR.TimeStamp;
end;

Und ich bin mir nicht sicher, was hier so extremst abbremst. Ich denke aber, es ist FileExists.
Denn wenn ich FileExists() weglasse und getFileLastModified auc, dann ist es superschnell.
Ich schätze mal, dass FindFirst intern auch irgendwie FileExists aufruft.

[Luckie]

Also erst mal könnte man den leeren Exception Block in die Tonne kloppen.
1. Überflüssig, wenn so wieso leer.
2. FindFirst wirft keine Execption: http://docs.embarcadero.com/products...FindFirst.html

Ergo total überflüssig.

Aber ohne näher Angaben über das Netzwerk (Auslastung, Größe, Server, Freigaben, Samba? wird man nicht viel dazu sagen können.

[dGeek]

Ich würde es eher Spielerei nennen :lol:

Es ist eine ganz normale Western Digital Festplatte an einem USB-Port meines Routers.
Wenn ich eine große Datei auf die Festplatte kopiere, so geschieht das mit den erwarteten 100 Megabit (~11 MByte sagt Windows)

[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 :lol:

[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.