Einzelnen Beitrag anzeigen

bluescreen25

Registriert seit: 27. Nov 2005
Ort: Geldern
229 Beiträge
 
Delphi 7 Enterprise
 
#18

Re: schnellere Procedure gesucht

  Alt 21. Dez 2005, 20:40
Zitat von marabu:
Hallo bluescreen25,

ich hoffe ich habe deinen Hilferuf richtig verstanden. Hier eine Demo, die meine beiden Codes verbindet. Die Dateien werden in einer virtuellen ListBox ohne Pfadinfo angezeigt, aber mit Pfad gespeichert. Die Reaktion auf Anwendungsereignisse habe ich aus der Schleife heraus genommen und der Pfad wird als Konstante schon mit trailing path delimiter übergeben.

Mit dem fine tuning deiner Anwendung würde ich warten, bis sie fertig ist - und ich denke du hast da noch einiges zu erledigen. Eine wirkliche Beschleunigung erfährt ein media harvester nur durch eine informierte Auswahl der zu durchsuchenden Verzeichnisse. Alles zu durchsuchen ist ein brute force Ansatz, der eigentlich nicht nötig ist. In der Demo habe ich eine FolderBox eingebaut, die per Kontextmenü mit Verzeichnissen befüllt werden muss. Erst dann kann gesucht werden.

Es sind noch ein paar Details versteckt, aber die Zeit zum Ausarbeiten fehlt mir momentan. Vielleicht hilft es dir ja trotzdem ein Stück auf deinem eigenen Weg.

Grüße vom marabu
Hallo marabu, erstmal vielen Dank für deine Hilfe (weiss das zu schätzen). Deine Procedure hatte ich soweit integriert und auch das Prob mit den Pfaden hatte ich im Griff, obwohl ich ListBox.Style = lbVirtual noch nicht einmal so richtig prüfen konnte (hatte einen anderen Weg eingeschlagen).

Jetzt ist auf einmal die Diskussion hier entbrannt, um die schnellste procedure zu integrieren.
Da ich eh gerade dabei war zu probieren, ist mir aufgefallen, das die procedure von negaH nochmals spürbar schneller war, obwohl zur Zeit der Code irgendwie nicht ganz korrekt arbeitet.

Ich übergebe da einen Path und er durchsucht diesen inkl. Unterordner rasend schnell aber dann durchsucht er auch eine Path-Stuktur darüber. Da finde ich im Code von negaH leider den Fehler nicht.


Deine procedure läuft soweit perfekt .

Nochmals vielen Dank für deine Mühe und Geduld....
  Mit Zitat antworten Zitat