Directory und Files auflisten

[Luckie]

Und bei SSDs wäre es egal. Da würde ich dann auf die zusätzliche Komplexität mit mehreren Threads verzichten. Ergo: Ein zusätzlicher Thread, um die Aufgabe von der GUI zu trennen. Und den Programmcode innerhalb dieses Threads optimieren. Wobei, ein 5-Minuten-Ei wird man nie in 3 Minuten gekocht bekommen.

[DeddyH]

[OT] Aber du willst es doch immer 4 1/2 Minuten gekocht haben. Vielleicht stimmt mit deinem Gefühl etwas nicht. [/OT]

[Smiley]

Gut gebrüllt Löwe DeddyH, Loriot ist immer noch gut.

Dass es andere Verfahren zum einlesen gibt weiß ich, deshalb meine Frage, was bringen die anderen Lösungen ?
Ist FindFirstFile schneller als .GetDirectories ?

[gast2019]

Zitat:

Dass es andere Verfahren zum einlesen gibt weiß ich, deshalb meine Frage, was bringen die anderen Lösungen ?

Vermutlich bringen die anderen Lösungen nur eine andere/einfachere Syntax für "neuere" Delphi-Versionen. Mit weniger Lametta

In #3 und #4 wurde IHMO das Wesentliche bereits geschrieben.

[Luckie]

Zitat von DeddyH:

[OT] Aber du willst es doch immer 4 1/2 Minuten gekocht haben. Vielleicht stimmt mit deinem Gefühl etwas nicht. [/OT]

"Mach doch mal was. Liste doch mal Dateien auf!"

So. Jetzt aber bitte zurück zum Thema.

[Smiley]

Ich habe jetzt mal ausprobiert was es ausmacht mit 4 Threads zu arbeiten.
Habe die Omnithread Lib benutzt und damit mein großes Verzeichnis eingelesen.
14019 Verzeichnisse 48488 Dateien

Mit OmniThread Zeit: 01:46:370
Ohne Threads Zeit: 01:56:908

Der Unterschied ist also kaum spürbar, zumindest wenn die Suche über ein Netzwerklaufwerk läuft.

[Smiley]

Eine andere Sache ist hierbei aufgetreten.
Möglicherweise hat dazu jemand eine Idee.

Wenn ich in mein Programm ein Application.ProcessMessages einbaue, hängt das Programm an dieser Stelle und muss mit dem Taskmanager beendet werden.

Hier das Programm dazu:

Delphi-Quellcode:

// **************************************************************************
procedure TForm1.btnStartClick(Sender: TObject);
var
  // SearchResult
  MainVerz: TStringDynArray;
  SearchResult: TStringDynArray;
  StartTime, FirstTime: TTime;
  I: Integer;

begin
  for I := 0 to 10 do
    TaskStatus[I] := False;

  Grid.RowCount := 1000; // High(SearchResult);
  Grid.FixedCols := 1;
  Grid.ColCount := 3;
  Grid.StartUpdate;
  AktLine := 1;

  // Uses IOUtils für GetDir..und System.Types für DynArray hinzufügen
  // Alle Hauptverzeichnisse einlesen und dann pro Verz. eine Suche ausführen in eigenem Thrad
  StartTime := Now();
  FirstTime := Now;
  MainVerz := TDirectory.GetDirectories('Y:\eBooks\eLoad24', TSearchOption.soTopDirectoryOnly, nil);

  for j := 0 to High(MainVerz) do
    begin
      ListBox1.Items.Add(MainVerz[j]);
      try
        Begin
          // Einlesen der Dateien ab dem Verz[j]
          SearchResult := TDirectory.GetFiles(MainVerz[j], '*.pdf', TSearchOption.soAllDirectories);
          for I := Low(SearchResult) to High(SearchResult) do
            begin
              if SearchResult[I] <> '' then
                begin
                  Grid.Cells[1, AktLine] := ExtractFilename(SearchResult[I]);
                  Grid.Cells[2, AktLine] := ExtractFilePath(SearchResult[I]);
                  inc(AktLine);
                end;
            end;
          TaskStatus[j] := True;
          ListBox1.Items.Add('Task ' + IntToStr(j) + ' Zeit: ' + FormatDateTime('hh:nn:ss:zzz', Now - StartTime));
          StartTime := Now();
          // Application.ProcessMessages;
        End;
      except
        { Catch the possible exceptions }
        MessageDlg('Incorrect path or search mask', mtError, [mbOK], 0);
        Exit;
      end;
      // Application.ProcessMessages;

    end;

  ListBox1.Items.Add('--------------------------------------------');
  ListBox1.Items.Add('Gesamt Zeit: ' + FormatDateTime('hh:nn:ss:zzz', Now - FirstTime));

  Grid.RowCount := AktLine;
  Grid.AutoSizeCol(1);
  Grid.AutoSizeCol(2);
  Grid.SortSettings.IgnoreCase := True;
  Grid.Sort(1, sdAscending);
  Grid.SortSettings.Show := True;
  Grid.EndUpdate;
end;
// **************************************************************************

[stifflersmom]

Wozu ist der Taskstatus? Den zählst Du fix von 0-10.
Aber weiter unten in:

Delphi-Quellcode:

 for j := 0 to High(MainVerz) do
    begin
....
TaskStatus[j] := True;

Davon ganz abgesehen brauchst Du bestimmt nicht soundsoviel tausend Processmessages... Es reicht, immer mal zwischendurch und nicht bei jeder Datei ein Processmessages zu benutzen. Vielleicht ein zusätzlicher Zähler, der alle 50 oder 100 Dateien ausgelöst wird.

[Smiley]

Der TaskStatus ist noch ein Überbleibsel als ich versucht habe mit 2 Tasks bzw. Threads zu arbeiten.
Den ProcessMessages habe ich nur nach jedem Verzeichnis gemacht, damit in der Listbox das Verzeichnis, in dem ich mich gerade befinde, angezeigt wird.
Selbst wenn ich nur ein einziges mal das PrcessMessages aufrufe hängt das Programm schon.
Ist wohl erst seit Windows 10 so, wie ich woanders schon gelesen habe.
Das wäre dann mal ein Grund doch mit Threads zu arbeiten.
Doch die Listbox und das Grid sind nur zum testen, eigentlich sollen die Daten ja in eine Datenbank geschrieben werden.
Da ist dann lediglich das Problem, dass vom Programm dann mal für einige Zeit "Keine Rückmeldung" angezeigt wird.
Habe dann mal versucht Listbox.Refresh aufzurufen in der Schleife, das geht solange gut, bis ein großes Verzewichnis kommt, dann kommt wieder "Keine Rückmeldung".
Wenn alle Verzeichnisse abgearbeitet sind ist alles wieder gut.