AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Directory und Files auflisten

Ein Thema von Smiley · begonnen am 12. Aug 2019 · letzter Beitrag vom 17. Aug 2019
Antwort Antwort
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#1

AW: Directory und Files auflisten

  Alt 12. Aug 2019, 18:07
Bei Festplattenzugriffen sind mehrere Threads nicht immer sinnvoll, da die Schreib- und Leseköpfe ja auch nur an einer Stelle sein können. Im Gegenteil, mehrere Threads können dazu führen, dass sie unnötig oft hin und her springen müssen, was der Performance dann eher abträglich ist.

Aber eine Forensuche nach zum Beispiel FindFirstFile und ähnlichen sollte genügen Material zu Tage fördern.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#2

AW: Directory und Files auflisten

  Alt 12. Aug 2019, 18:14
Es gibt/gab Festplatten die eine sog. verschränkte Suche beherrschen. Bei denen könnte es etwas bringen mit mehreren Threads die Platte zu bearbeiten. Was auf jeden Fall empfehlenswert ist, die Plattenzugriffe und die Anzeige per Thread voneinander zu trennen. Und für den Aufbau der angezeigten Daten mit BeginUpdate/EndUpdate arbeiten, sofern das unterstützt wird.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#3

AW: Directory und Files auflisten

  Alt 12. Aug 2019, 18:34
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.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.666 Beiträge
 
Delphi 12 Athens
 
#4

AW: Directory und Files auflisten

  Alt 12. Aug 2019, 19:01
[OT] Aber du willst es doch immer 4 1/2 Minuten gekocht haben. Vielleicht stimmt mit deinem Gefühl etwas nicht. [/OT]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Smiley
Smiley

Registriert seit: 9. Dez 2004
Ort: Gedern
210 Beiträge
 
Delphi 12 Athens
 
#5

AW: Directory und Files auflisten

  Alt 12. Aug 2019, 19:16
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 ?
  Mit Zitat antworten Zitat
gast2019
(Gast)

n/a Beiträge
 
#6

AW: Directory und Files auflisten

  Alt 12. Aug 2019, 22:46
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.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#7

AW: Directory und Files auflisten

  Alt 12. Aug 2019, 23:02
[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.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von Smiley
Smiley

Registriert seit: 9. Dez 2004
Ort: Gedern
210 Beiträge
 
Delphi 12 Athens
 
#8

AW: Directory und Files auflisten

  Alt 16. Aug 2019, 16:34
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.
  Mit Zitat antworten Zitat
Benutzerbild von Smiley
Smiley

Registriert seit: 9. Dez 2004
Ort: Gedern
210 Beiträge
 
Delphi 12 Athens
 
#9

AW: Directory und Files auflisten

  Alt 16. Aug 2019, 16:39
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;
// **************************************************************************
  Mit Zitat antworten Zitat
Antwort Antwort

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:30 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz