Fortschrittsanzeige beim Durchsuchen der Festplatte

[newuser01]

Hallo ich bins mal wieder :) Ich habe diesmal folgendes Problem. Ich möchte wärend die Festplatte nach bestimmten mp3 Dateien durchsucht wird diesen Vorgang auch anzeigen lassen (Progressbar)den Code wie ich nach den Dateien suche habe ich siehe unten. Nun muss das ganze nur noch Zeitgleich mit der Progressbar zusammenarbeiten um den Fortschritt anzuzeigen. Dazu brauche ich ja den Max-Wert der Progressbar den könnte ich ja übergeben in dem ich die ganze Festplatte ersteinmal nach allen mp3 Dateien durchsuchen lasse und dieses dann in eine Stringlist schreibe um dann Count der Stringlist der Progressbar zu übergeben. Danach brauch ich ja dann nur noch über eine Schleife der Progressbar.Position i übergeben soweit meine Idee nur bekomm ich das nicht ganz hin :(

//hier der Code um bestimmte mp3 Dateien zu suchen

Delphi-Quellcode:

procedure GetFilesInDirectory(ADirectory: string; AMask: String; AList: TStrings; ARekursiv: Boolean);
var
  SR: TSearchRec;
begin
  if (ADirectory<>'') and (ADirectory[length(ADirectory)]<>'\') then
    ADirectory:=ADirectory+'\';

  if (FindFirst(ADirectory+AMask,faAnyFile-faDirectory,SR)=0) then begin
    repeat
      if (SR.Name<>'.') and (SR.Name<>'..') and (SR.Attr<>faDirectory) then
          AList.Add(ADirectory+SR.Name)
    until FindNext(SR)<>0;
    FindClose(SR);
  end;

  if ARekursiv then
    if (FindFirst(ADirectory+'*.*',faDirectory,SR)=0) then
    begin
      repeat
        if (SR.Name<>'.') and (SR.Name<>'..') then
          GetFilesInDirectory(ADirectory+SR.Name,AMask,AList,True);
      until FindNext(SR)<>0;
      FindClose(SR);
    end;
end;

procedure TForm1.btnSearchClick(Sender: TObject);
begin

lbAusgabe.Clear;
GetFilesInDirectory(DriveComboBox1.Drive+':\','*'+eSearch.Text+'*.mp3',lbAusgabe.Items,True);


end;

Grüße
Holger

[Zacherl]

Dann müsstest du aber zweimal suchen ... ein Beipsiel zum Suchen von Dateien mit Progressbar findest du in der CodeLib.

Florian

[Luckie]

Das geht so nicht, denn woher willst du wissen wie viele datein du findest, um den maximalen Wert zu setzen?

Es geht nur mit einem kleinen Trick: http://www.michael-puff.de/Developer/Delphi/Sonstiges -> FindAllFilesProgress_Demo.zip

[DGL-luke]

Also ich würd mir die Gesamtgröße der Festplatte/des ordners holen und den Fortschritt anhand des verhältnis' durchsuchter speicherplatz/vorhandener belegter speicherplatz berechnen.

[himitsu]

Bei der gesamten Festplatte hat DGL-luke schon fast Recht.
Auch wenn die den belegten Speicher der Ordner, alternativen Datenströme, MFT, gesperrter Ordner u.s.w nicht mir einrechnen kannst.

"belegter Speicher", oder "Gesammtspeicher" - "freier Platz" = Proggresbar.Max

dann wärend dem Durchsuchen alle gefundenen Dateigrößen zusammenrechnen = Proggresbar.Position


Natürlich mstest du noch 'nen Divisor einbauen, da die Platte bestimmt größer als 2 GB ist ;)


Oder mal so als Tipp: versuch dir mal zu überlegen wie ich das gelöst hab ... is garnicht sooo schwer und die Lösung urde weiter oben schon mehrmals fast so ähnlich vorgeschlagen :roll:
> http://www.delphipraxis.net/internal...117&highlight=

(kannst ja zum Test beidemal das Laufwerk "X:\" angeben ^^)




PS: die Größe eines Ordners kann man sich nicht holen
nur bei der gesamten Festplatte kann ganz schnell die anzahl der freien Cluster us dem Fesplattenbitmap ausgelesen und mit der Clustergröße multipliziert werden.

[Luckie]

Zitat:

Zitat von DGL-luke

Also ich würd mir die Gesamtgröße der Festplatte/des ordners holen und den Fortschritt anhand des verhältnis' durchsuchter speicherplatz/vorhandener belegter speicherplatz berechnen.

Wenn man die gesamte Festplatte durchsucht, ist das kein Problemn, da gibt es eine API-Funktion, aber für einen Ordner musst du ja doch wieder erst alle Dateien durchgehen und deren Größe bestimmen.

[DGL-luke]

Stimmt. Der Explorer rechnet da ja auch alles zusammen...

@himitsu: Entweder "Luke"/"Lukas"/"DGL-Luke" oder "Luckie", aber bitte nicht "Luck", sonst kommen wir hier leicht zu verwechslungen... ;)

[newuser01]

Also ersteinmal Danke für die schnellen Antworten Ich habe mir mal das FindAllFilesProgress_Demo.zip angesehen bei diesem Beispiel wird ja die ganze Festplatte nach allen Dateien durchsucht mit Fortschritt. Meine Frage warum das ganze neu erfinden könnte man diese Funktion nich umbauen so das nicht alle Files aufgelistet werden sondern nur bestimmte die gesucht (DriveComboBox1.Drive+':\','*'+eSearch.Text +'*.mp3') werden ?

also nicht ThreadParams.Mask := '*.*';
sondern ThreadParams.Mask :=DriveComboBox1.Drive+':\','*'+eSearch.Text +'*.mp3'

Ich habe es schon so versucht erst wird die Platte durchsucht und alles in eine ListBox eingetragen mit dem Code aus dem Demo und danach übergebe ich Count dieser ListBox der Progressbar.Max und führe anschließend meinen Code aus und suche bestimmte dateien Das funktioniet ist aber nicht besonders schön da die Aktion (Suchen) nicht genau zeitgleich mit der Aktion (Fortschritt) ist


//Auszug aus dem Demo

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ThreadParams           : PThreadParams;
begin
  RichEdit1.Clear;
  New(ThreadParams);
  try
    ThreadParams.Handle := Handle;
    ThreadParams.RootFolder := Edit1.Text;
    ThreadParams.Mask := '*.*';
    ThreadParams.Recurse := True;
    ThreadParams.Progress := True;
    WaitForThread(@ThreadFunc, ThreadParams);
  except
    on E: Exception do ShowMessage(E.Message);
  end;
end;

Grüße
Holger

[himitsu]

Das Problem ist, wenn du nur suchst, dann bist du schneller du suchst gleich richtig und zählst erst garnicht nach.

Sowas lohnt sich im Grunde nur, wenn noch was Zeitaufwenigeres nebenher gemacht wird, also z.B. die Dateiinhalte auch noch mit eingelesen werden.

Denn dann ist das Zählen wesendlich schneller und zeigt auch irgendwann einen Erfolg.


Derzeit laß ich ja die kleinen Strich durchlaufen ... hatte vorher den Balken komplett, also akutell gefundene/verarbeitete Dateien im Verhältnis zu den bisher Gezählten. Ist auch 'ne Möglichkeit, da man schon wärend des Zählens einen kleinen "Erfolg" sieht.


Luckies FindAllFiles zählt z.B. erstmal alles und geht dann durch.
Vorteil: ist schneller, weil nicht 2 Leseprozesse die Platte gleichzeitig belasten.
Nachteil: der Code hängt am Anfang schonmal recht lange (der zählt ja erstmal und man sieht garnüschts)

[newuser01]

Ok eine Fortschrittanzeige wäre vielleicht nicht so von Vorteil wegen der Geschwindigkeit aber wäre in meinem Code zb: ein Label möglich was den Status anzeigt also in welchem Ordner gerade gesucht wird ?

Gruß
Holger