Schnellste Möglichkeit einen Verzeichnisbaum einzulesen

[Hobbycoder]

Hi,

ich muss einen Verzeichnisbaum einlesen und dabei Dateinamen, Dateigröße und Erstellungsdatum einlesen und mit einer Datenbank abgleichen. Tatsächlich handelt es sich nur um 2 Verzeichnisebenen. Allerdings immer über Netzwerk.
Zur Zeit nutze ich FindFirst/FindNext, und das dann recursiv. Es handelt ich ca. um 37000 Dateien.
Leider dauert das verhältnismäßig lange im Vergleich zur danach folgenden Datenbankoperation.

Gibt es schon signifikant schnellere Möglichkeiten, oder ist da nicht mehr viel rauszuholen?

Delphi-Quellcode:

procedure TThreadLoadBilderArchivieren.BilderEinlesen(
  Pfad: string);
var
  sr: TSearchRec;
  b: TBild;
begin
  if self.Terminated then Exit;
  if FindFirst(Pfad+'*.*', faAnyFile, sr)=0 then
  repeat
    if (sr.Name<>'.') and (sr.Name<>'..') and (LowerCase(sr.Name)<>'thumbs.db') then
    begin
      if sr.Attr and faDirectory = faDirectory then
      begin
        BilderEinlesen(Pfad+sr.Name+'\');
      end else begin
        if ExtractFileExt(sr.Name)<>'.tmb' then
        begin
          b:=TBild.Create;
          b.lfdnr:=0;
          b.Pfad:=Pfad+sr.Name;
          b.Dateidatum:=FileDateToDateTime(sr.Time);
          b.Groesse:=sr.size;
          FBildList.Add(b);
        end;
      end;
    end;
    if self.Terminated then Break;
  until FindNext(sr)<>0;
  sysutils.FindClose(sr);
end;

[himitsu]

Nimm direkt die WinAPI FindFirstFile und da gibt es Optionen, um Zusatzinfos wegzulassen (vor allem den 8.3-Dateiname), die Sortierung des Treibers und "LargeFetch".


PS: Aktuelle Delphis haben im TSearchRec ein Property, was dir direkt den TDateTime gibt. (ohne manuelles FileDateToDateTime)
https://docwiki.embarcadero.com/Libr...ils.TSearchRec

Tipp: Vielleicht nicht unbedingt schneller, aber "einfacher":
TDirectory.GetFiles
https://www.delphipraxis.net/216317-...ei-finden.html

[Hobbycoder]

Danke

Zitat:

PS: Aktuelle Delphis haben im TSearchRec ein Property, was dir direkt den TDateTime gibt. (ohne manuelles FileDateToDateTime)
https://docwiki.embarcadero.com/Libr...ils.TSearchRec

Tipp: Vielleicht nicht unbedingt schneller, aber "einfacher":
TDirectory.GetFiles

Leider noch auf einem alten D7 :-D
Aber die WinAPI werd ich mal ausprobieren.

[himitsu]

Zitat:

Zitat von Hobbycoder (Beitrag 1544070)

Leider noch auf einem alten D7 :-D

https://www.embarcadero.com/de/products/delphi/starter

https://www.delphipraxis.net/profile.php?do=editprofile da unten kann man was angeben :zwinker:


Und wegen Delphi 7:
Die Unicode-Version (W), nicht ANSI (A).

Bzw. direkt FindFirstFileExW mit BasicLevel anstatt FindFirstFileW.

[Delphi.Narium]

Kannst Du mal vergleichen, ob deine Routine lokal (mit der passender Datenmenge) deutlich schneller ist, als über das Netz.

Meine D7-Variante für rekursives Dateiensuchen sieht Deiner Routine verblüffend ähnlich und ist sehr schnell. Den Flaschenhals vermute ich daher im Netzwerkzugriff und nicht in Deiner Routine.

[Hobbycoder]

Zitat:

Zitat von himitsu (Beitrag 1544071)

Zitat:

Zitat von Hobbycoder (Beitrag 1544070)

Leider noch auf einem alten D7 :-D

https://www.embarcadero.com/de/products/delphi/starter

https://www.delphipraxis.net/profile.php?do=editprofile da unten kann man was angeben :zwinker:

Ist mir bekannt. Ist aber ein altes Projekt, dass ich jetzt nicht deswegen komplett überarbeiten will.

[Hobbycoder]

Zitat:

Zitat von Delphi.Narium (Beitrag 1544072)

Kannst Du mal vergleichen, ob deine Routine lokal (mit der passender Datenmenge) deutlich schneller ist, als über das Netz.

Meine D7-Variante für rekursives Dateiensuchen sieht Deiner Routine verblüffend ähnlich und ist sehr schnell. Den Flaschenhals vermute ich daher im Netzwerkzugriff und nicht in Deiner Routine.

So unterschiedlich können recursive Methoden, die FindFist/FindNext nutzen, nicht aussehen ;-)

Ist möglich. Aber das Netzwerk beim Kunden liegt nicht unter meiner Kontrolle. Das muss ich in dem Fall so nehmen wie es ist.
Ich kann (will) mir jetzt aber auch nicht die ganzen 37000 Dateien rüberholen um das bei mir zu testen ;-)

[Delphi.Narium]

Du muss Dir ja nicht die Dateien des Kunden holen, es reicht ja, wenn Du Dir einen passenden Verzeichnisbaum mit (durchaus auch leeren Dateien) anlegst.

Oder nimm einfach Laufwerk C: und miss die Zeit. Zeit durch Anzahl Dateien = Durchschnittswert * 37.000 wäre die zu erwartende Zeit. Gibt's da große Unterschiede oder ist das eher vernachlässigbar? Große Unterschiede hieße für mich, dass der Flaschenhals eher im Netzwerk zu suchen ist, andernfalls in Deiner Routine.

[jaenicke]

Der Flaschenhals ist hier die Latenz beim Zugriff auf den Server. Es wird für jeden Abruf der jeweils nächsten Datei eine Anfrage an den Server geschickt und darauf gewartet.

Lösen kann man das auf zwei Wegen:

• Du kannst die Abfrage mit mehreren Threads erledigen, indem du z.B. einen Thread pro Anfangsbuchstabe erstellst oder einen pro Unterverzeichnis oder ähnliches, je nachdem was passt. Anders als bei lokalen Abfragen ist die eingesparte Wartezeit auf die Antworten des Servers größer als die Verlangsamung durch parallele Abfragen ins Dateisystem. In aktuellen Delphis kann man dafür TTask oder parallel for verwenden, bei Delphi 7 kannst du TThread nutzen.
• Am besten ist aber die Nutzung einer SMB-Bibliothek wie libsmb2. Diese hat den großen Vorteil, dass smb2_opendir und smb2_readdir die Dateiinformationen direkt in einem Puffer abrufen, so dass nicht bei jeder Datei einzeln eine Anfrage an den Server geschickt wird. Wenn man den verwendeten Puffer im System noch erhöhen kann, erhöht sich die Geschwindigkeit zusätzlich.
  Die Implementierung ist relativ einfach, da nur ein paar exportierte Funktionen und Strukturen übersetzt werden müssen.

[Hobbycoder]

Zitat:

Zitat von jaenicke (Beitrag 1544094)

Am besten ist aber die Nutzung einer SMB-Bibliothek wie libsmb2. Diese hat den großen Vorteil, dass smb2_opendir und smb2_readdir die Dateiinformationen direkt in einem Puffer abrufen, so dass nicht bei jeder Datei einzeln eine Anfrage an den Server geschickt wird. Wenn man den verwendeten Puffer im System noch erhöhen kann, erhöht sich die Geschwindigkeit zusätzlich.
Die Implementierung ist relativ einfach, da nur ein paar exportierte Funktionen und Strukturen übersetzt werden müssen.

Das werd ich mal ausprobieren. Klingt sehr gut :thumb: