Festplatte/n durchsuchen

[michi160991]

Also ich hab ein problem ich bin relativ neu hier
So ich möchte mir ein Programm machen wo man nach musik auf seiner festplatte suchen kann beziehungsweiße in bestimmten teilen der festplatte!? also ich hab das so auf gebaut da ist dan ein fenster dort gibt man den titel des songs ein und wenn man dann auf den button suche klickt sollte der titel in einem neuen fenster wie bei der windows suche auf tauchen. leider weiß ich nicht wie ich das hin bekom
danke für eure Hilfe gruß michi

[DGL-luke]

Hallo,

das gehört schwelich zu DB.

Was du brauchst ist wohl FindFirst.

[michi160991]

ehm wo gehört es dann hin? tut mir leid, wie schon gesagt ich bin neu hier.

wo bekomme ich findfirst her? wenn ich auf deinen link klicke kommt nichts wo man es downloaden könnte oder so.

und wenn ich es dann habe wie baue ich es dann ein?

danke

[fwsp]

FindFirst ist ne Routine. Such einfach mal hier im forum danach. FindFirst

[Matze]

Hi, herzlich Willkommen!

In der Code-Library findet sich auch so einiges. Beispiel.

[michi160991]

achso okay gut danke... ich hab jetzt hier mal diesen quell text :

Delphi-Quellcode:

// Deklaration ab Delphi 5 
procedure FindAllFiles(RootFolder: string; Mask: string = '*.*'; Recurse: Boolean = True); 

var 
  SR: TSearchRec; 
begin 
  // Implementation bis einschließlich Delphi 4 
  if RootFolder = '' then 
    Exit; 
  if AnsiLastChar(RootFolder)^ <> '\' then 
    RootFolder := RootFolder + '\'; 

  // Implementation ab Delphi 5 
  RootFolder := IncludeTrailingPathDelimiter(RootFolder); 

  // * * * * * 
  // nur bis einschließlich Delphi 4 benötigt 
  if Mask = '' then 
    Mask := '*.*'; 
  // * * * * * 

  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(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 

          // folgende Zeile schreibt den vollständigen Namen in eine Memo Feld des 
          // Formulars Form1 
          Form1.Memo1.Lines.Add(RootFolder + SR.Name); 
        end; 
      until FindNext(SR) <> 0; 
    finally 
      FindClose(SR); 
    end; 
end;

so nur ich muss ja noch die suche bestätigen also das er überhaupt sucht oder? wenn ja wie ist der befehl und wo muss dieser hin?


danke

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]

[Matze]

Die Funktion ist nicht die sauberste, da die VCL fest integriert ist. Schau dir mal den Link an, den ich oben gepostet habe (Titel: "Beispiel"). Da ist ein Aufruf enthalten, den du dir abändern kannst.

Die Funktion, die du rausgesucht hast, würde man so aufrufen:

FindAllFiles('C:\Dein Pfad\', '*.mp3', true); Dann müsstest du die Dateinamen noch gesondert überprüfen:

if (SR.Name <> '.') and (SR.Name <> '..') and (Pos('dein Suchstring im Dateinamen', SR.Name) > 0) then

[fwsp]

Zitat von michi160991:

so nur ich muss ja noch die suche bestätigen also das er überhaupt sucht oder? wenn ja wie ist der befehl und wo muss dieser hin?

hast du schon ein wenig ahnung von delphi? wenn nicht, solltest du vllt mit was einfacherem beginnen.
FindAllFiles('C:\' '*.mp3', True); damit sucht er alle mp3s auf laufwerk c

[michi160991]

naja bischen schon, aber es geht ... danke für die hilfe