Festplatte durchsuchen lassen???

[Bernd29bln]

Hi Leutz, :-D

Wie kann ich es machen das mein programm die festplatte nach audio dateien sucht und diese in eine listbox anzeigt oder speichert?

Gruss Bernd, :coder2:

[Sprint]

FindFirst, FindNext, FindClose.

[shmia]

http://www.delphipraxis.net/internal...ect.php?t=2464

[Bernd29bln]

hallo,

danke für eure schnelle antwort ich hätte da noch ne frage wie rufe ich die procedure auf ?

gruss bernd

[alcaeus]

Zitat:

Zitat von Bernd29bln

danke für eure schnelle antwort ich hätte da noch ne frage wie rufe ich die procedure auf ?

Pass auf, sonst geht dir die Katze noch an den Hals ;)
Sakura hat im ersten Posting genau beschrieben, wie die Funktion aufzurufen ist. Ich weiß nicht wo das Problem liegt :gruebel:

Greetz
alcaeus

[Bernd29bln]

hallo

ich habe eine listbox in der die dateien angezeigt werden sollen die auf der hd gefunden wurden wen ich die procedure die mir shmia vorgeschlagen hat so übernehme wie sie dort steht passiert logischer weise garnix also hab ich da was vergessen oder die falsche kompo weis ich nicht hab mich mit sowas nie befasst.

gruss bernd

[alcaeus]

Nimm den zweiten Code und gib als ersten Parameter

Delphi-Quellcode:

ListBox1.Items

an, das sollte funktionieren.

Greetz
alcaeus

[Jarmen_Kell]

Delphi-Quellcode:

          Form1.Memo1.Lines.Add(RootFolder + SR.Name);  // <---- Das
        end;
      until FindNext(SR) <> 0;

durch deine Listbox oder was auch immer ersetzen

[Bernd29bln]

hallo alcaeus, :hi:

soll ich es hier einfügen:

Delphi-Quellcode:

if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then

gruss aus berlin :gruebel:

[MathiasSimmack]

Nein, du solltest den Begriff "Memo1" im Beispielcode durch den Namen deiner ListBox (oder was auch immer ersetzen). :roll: Steht doch da ...

[Bernd29bln]

hab ich gemacht aber die listbox bleibt leer. :roll:

Delphi-Quellcode:

procedure FindAllFiles(var FileList: TStrings; RootFolder: string; Mask: string =
  '*.*'; Recurse: Boolean = True);

var
  SR: TSearchRec;
begin
  IncludeTrailingPathDelimiter(RootFolder);

  if Recurse then
    if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then
    try
      repeat
        if SR.Attr and faDirectory = faDirectory then
            // --> ein Verzeichnis wurde gefunden
            //   der Verzeichnisname steht in SR.Name
            //   der vollständige Verzeichnisname (inkl. darüberliegender Pfade) ist 
            //       RootFolder + SR.Name
          if (SR.Name <> '.') and (SR.Name <> '..') then 
            FindAllFiles(FileList, RootFolder + SR.Name, Mask, Recurse); 
      until FindNext(SR) <> 0;
    finally 
      FindClose(SR); 
    end; 
  if FindFirst(RootFolder + Mask, faAnyFile, SR) = 0 then
  try 
    repeat 
      if SR.Attr and faDirectory <> faDirectory then 
      begin
          // --> eine Datei wurde gefunden 
          //   der Dateiname steht in SR.Name 
          //   der vollständige Dateiname (inkl. Pfadangabe) ist 
          //       RootFolder + SR.Name
        Form1.ListBox1.Items.Add(RootFolder + SR.Name);
      end; 
    until FindNext(SR) <> 0; 
  finally
    FindClose(SR); 
  end; 
end;

:wall:

[alcaeus]

Ich zitiere mal die Mieze:

Zitat:

Das ganze noch mal ohne das hardgecodete Memo in der Prozedur und somit besser allgemein verwendbarer

Einfach ein bisschen runterscrollen im ersten Beitrag, dann kommt der allgemeine Code, dem man ein TStrings-Objekt übergeben kann.

Greetz
alcaeus

[Bernd29bln]

hi,

na den code hab ich doch da steht doch schon form1.listbox1.items.add
gucks du

Delphi-Quellcode:

procedure FindAllFiles(var FileList: TStrings; RootFolder: string; Mask: string =
  '*.*'; Recurse: Boolean = True);

var
  SR: TSearchRec;
begin
  IncludeTrailingPathDelimiter(RootFolder);

  if Recurse then
    if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then
    try
      repeat
        if SR.Attr and faDirectory = faDirectory then
            // --> ein Verzeichnis wurde gefunden
            //   der Verzeichnisname steht in SR.Name
            //   der vollständige Verzeichnisname (inkl. darüberliegender Pfade) ist 
            //       RootFolder + SR.Name
          if (SR.Name <> '.') and (SR.Name <> '..') then 
            FindAllFiles(FileList, RootFolder + SR.Name, Mask, Recurse); 
      until FindNext(SR) <> 0;
    finally 
      FindClose(SR); 
    end; 
  if FindFirst(RootFolder + Mask, faAnyFile, SR) = 0 then
  try 
    repeat 
      if SR.Attr and faDirectory <> faDirectory then 
      begin
          // --> eine Datei wurde gefunden 
          //   der Dateiname steht in SR.Name 
          //   der vollständige Dateiname (inkl. Pfadangabe) ist 
          //       RootFolder + SR.Name
        Form1.ListBox1.Items.Add(RootFolder + SR.Name);
      end; 
    until FindNext(SR) <> 0; 
  finally
    FindClose(SR); 
  end; 
end;

[mirage228]

Scroll im oben verlinken Thread mal runter. Da findest Du den (meinen) Code, den alcaeus gemeint hat, auch.

Guckst Du:

Delphi-Quellcode:

procedure FileList(const APath, AExt: string; ARecurse: Boolean; 
  AList: TStrings); 
var 
  F    : TSearchRec; 
  Path : string; 
begin 
  Path := IncludeTrailingPathDelimiter(APath); // nur für Delphi 4 und höher! 
  if (ARecurse) and 
    (FindFirst(Path + '*.*', faAnyFile, F) = 0) then 
  try 
    repeat 
      if (F.Name <> '.') and (F.Name <> '..') and 
        ((F.Attr and faDirectory) = faDirectory) then 
        FileList(Path + F.Name, AExt, ARecurse, AList); 
    until FindNext(F) <> 0; 
  finally 
    FindClose(F); 
  end; 
  if FindFirst(Path + AExt, faAnyFile, F) = 0 then 
  try 
    repeat 
      if (F.Name <> '.') and (F.Name <> '..') and 
        ((F.Attr and faDirectory) <> faDirectory) then 
        AList.Add(Path + F.Name); 
    until FindNext(F) <> 0; 
  finally 
    FindClose(F); 
  end;

mfG
mirage228

[alcaeus]

Zitat:

Zitat von Bernd29bln

Delphi-Quellcode:

Form1.ListBox1.Items.Add(RootFolder + SR.Name);

Ändere das wieder zurück in

Delphi-Quellcode:

FileList.Add(RootFolder + SR.Name);

und rufe die Funktion so auf:

Delphi-Quellcode:

procedure FindAllFiles(Form1.ListBox1.Items, <DeinPfad>, <DeineMask);

Das sollte dann klappen. Den zweiten Source musst du eben nicht anpassen, da er ja allgemein ist. Du musst einfach nur übergeben, wohin er die Strings kopieren soll.

Greetz
alcaeus

[Bernd29bln]

:hi: ich glaub ich lass es lieber ich bekomme es nicht auf die reihe dank euch trozdem.

gruss

[Bernd29bln]

die listbox bleibt troz allem leer kann nicht mal jemand die procedure posten für ne listbox.

für ganz doofe :wall:

[Matze]

Erst willst du aufgeben, 7 Minuten später doch nicht mehr.

Pushen ist auch innerhalb von 24 Stunden nicht gestattet.

Mach es so, das geht 100%

Delphi-Quellcode:

procedure FindAllFiles(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean = True);
var
  SR: TSearchRec;
begin
  RootFolder := IncludeTrailingPathDelimiter(RootFolder);

  if Recurse then
    if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then
      try
        repeat
          if SR.Attr and faDirectory = faDirectory then
            if (SR.Name <> '.') and (SR.Name <> '..') then
              FindAllFiles(RootFolder + SR.Name, Mask, Recurse);
        until FindNext(SR) <> 0;
      finally
        FindClose(SR);
      end;
  if FindFirst(RootFolder + Mask, faAnyFile, SR) = 0 then
    try
      repeat
        if SR.Attr and faDirectory <> faDirectory then
        begin
          Form1.ListBox1.Items.Add(RootFolder + SR.Name);
        end;
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  FindAllFiles('f:\mp3s\', '*.mp3', true);
end;

Um mehrere Dateiendungen zu durchsuchen kannst du das ja hintereinander aufrufen.

[Bernd29bln]

hi Martze ,

danke dir muss ich noch was beachten wen ich den code einfüge ?

gruss bernd, :spin2:

[Matze]

Zitat:

Zitat von Bernd29bln

Martze

:shock: :mrgreen:

Zitat:

Zitat von Bernd29bln

danke dir muss ich noch was beachten wen ich den code einfüge ?

Ein Delphi-Tutorial wäre nicht schlecht für dich, das sind die Grundlagen.

Nein, du musst nichts beachten, alles in den implementation-Abschnitt. Eine ListBox auf's Formular.

Und aufrufen muss du das natürlich nicht über einen Button, war nur ein Beispiel.

[Bernd29bln]

HI Matze,

habs mal ausprobiert listbox bleibt leer hier mal der code.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure FindAllFiles(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean = True);
var 
  SR: TSearchRec;
begin
  RootFolder := IncludeTrailingPathDelimiter(RootFolder); 

  if Recurse then
    if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then 
      try
        repeat
          if SR.Attr and faDirectory = faDirectory then
            if (SR.Name <> '.') and (SR.Name <> '..') then
              FindAllFiles(RootFolder + SR.Name, Mask, Recurse);
        until FindNext(SR) <> 0;
      finally
        FindClose(SR); 
      end;
  if FindFirst(RootFolder + Mask, faAnyFile, SR) = 0 then
    try 
      repeat
        if SR.Attr and faDirectory <> faDirectory then 
        begin 
          Form1.ListBox1.Items.Add(RootFolder + SR.Name); 
        end;
      until FindNext(SR) <> 0;
    finally 
      FindClose(SR); 
    end;
end; 

procedure TForm1.Button1Click(Sender: TObject);
begin
 FindAllFiles('c:\mp3s\', '*.mp3', true);
end;

end.

gruss bernd

[mirage228]

Hi,

heißt Dein Verzeichnis auch wirklich "C:\mp3s" ?

mfG
mirage228

[Bernd29bln]

ups :oops: tutmirleid hab net aufgepasst

[Bernd29bln]

habs mal probiert der compi reagiert darauf und sucht aber am ende bleibt die listbox leer.

gruss bernd

[Matze]

Der Code geht 100%, habe ihn selbst getestet. Hast du in dem Verzeichnis überhaupt MP3-Dateien drin?

Du kannst ja mal, nach

Delphi-Quellcode:

Form1.ListBox1.Items.Add(RootFolder + SR.Name);

das hier testweise aufrufen, damit es gleich aktualisiert wird:

Delphi-Quellcode:

Application.ProcessMessages;

[Bernd29bln]

na ich hab c:\ eingeben um auf der gesamten hd zu suchen hat auch lange gedauert das er nach mp3 suchen soll hab ich auch drin gelassen.

gruss bernd

[Bernd29bln]

Supi Matze ,

mit [/delphi]Application.ProcessMessages;[delphi] Klapt es vielen dank .

war ja wieder ne schwere geburt :balloon:

gruss

[Matze]

Zitat:

Zitat von Bernd29bln

Supi Matze ,

mit

Delphi-Quellcode:

Application.ProcessMessages;

Klapt es vielen dank .

Du kannst Beiträge auch editieren. ;)

Dann hat es davor auch geklappt, nur hast du das nicht gesehen. Wenn die Festplatte zuende zurchsucht worden wäre, hätte sich die ListBox aktualisiert und die Liste wäre da.

So dauert es nun etwas länger, bis alles gefunden wurde.

[Bernd29bln]

ja genau konnte mal wieder bei mir nicht schnell genug gehen GROSSEN Dank an allen die mir geholfen haben. :hello: