Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  Re: ListFiles mit FindFirst beschleunigen

    Delphi
    by Moony, 13. Jan 2010
  Aber wenn es doch keinen Erfolg gibt, lohnt doch dann der Aufwand nicht.
• Forum: Win32/Win64 API (native code)

  Re: ListFiles mit FindFirst beschleunigen

    Delphi
    by Moony, 13. Jan 2010
  Demnach würde ich ein tool bauen, das auf Netzwerkseite steht und dort lokal die Suchopereationen durchführt und meiner Applikation den Rückgabewert liefert. Ich rufe also von der Workstation aus das Programm im Netzwerk auf, es arbeitet dort und wenn es fertig ist liefert es mit die ganzen Informationen gebündelt zurück?
  
  Habe ich das richtig verstanden? Und das könnte schneller sein?
• Forum: Win32/Win64 API (native code)

  Re: ListFiles mit FindFirst beschleunigen

    Delphi
    by Moony, 13. Jan 2010
  Also, die Dateisuche findet fast immer über ein lokales Netzwerk statt. In den Verzeichnissen sind fast immer nur die Dateien drin, welche die gesuchte Endung besitzen, ist aber keine Sicherheit dass es so ist. Es sind ebenfalls Dateien im Verzeichnis, welche die Suchkriterien nicht erfüllen. Es kommt also auch mal vor, dass ein Verzeichnis durchlaufen wird, aber keine zutreffende Datei gefunden...
• Forum: Win32/Win64 API (native code)

  Re: ListFiles mit FindFirst beschleunigen

    Delphi
    by Moony, 12. Jan 2010
  Oh, sorry.
  
  Das
  (fmPhoto.ImageSet.CheckAttr) and (not fmPhoto.DoRefreshAll)
  
  sind Boolean-Variablen einfach nur um zu prüfen ob ich alle Dateien mit der Endung nehmen soll oder nur die mit der angegebenem Attribut.
  
  Das Uppercase nur einmal aufzurufen hat keine Verbesserung gebracht.
  
  @himitsu: Die Stringliste wird leer übergeben und in dieser Routine ggf. gefüllt, damit ich weiter mit...
• Forum: Win32/Win64 API (native code)

  ListFiles mit FindFirst beschleunigen

    Delphi
    by Moony, 12. Jan 2010
  Hallo zusammen,
  
  ich habe bei meiner Applikation mittlerweile festgestellt, dass die Routine zum Auflisten bestimmter Dateien in einem Verzeichnis bei knapp 3500 Dateien ca. 15 Sekunden dauert. Ich suche mit folgender Routine das Verzeichnis ab:
  
  
  procedure ListFiles(Path, Ext: string; FileList: TStringList; Attr: integer);
  var
  SR : TSearchRec;
  begin
  if Length(Path) > 0 then