Ersatz für TWin32FindData / Dateien suchen

[Targion]

Hallo!
Gibt es einen Ersatz für Win32FindData für Lazarus unter Linux? Oder gibt es eine Andere Möglichkeit, rekursiv in einem Ordner nach Dateien zu suchen?

[Christian]

wozu brauch man da Win32FindData ?

Dazu brauchst nur FindFirst,FindNext und nen TSearchRec

[DiBo33]

Geht doch mit
FindFirst
FindNext
FindClose

[Targion]

Dachte ich auch. Nachdem mein eigener (speziell für meine Zwecke angepasster) Code nicht funktioniert hat, habe ich den aus der DP ausprobiert, um zu sehen, ob die Suche unter Linux überhaupt funktioniert:

Code: Alles auswählen

procedure FindAllFiles(var FileList: TStrings; 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
            // --> 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
        FileList.Add(RootFolder + SR.Name);
      end;
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;
end;

Doch auch dieser Listet unter Linux nur die Dateien im RootFolder auf, die in den Unterordnern werden nicht berücksichtigt.

[schnullerbacke]

Guckst Du hier...

http://www.lazarusforum.de/downloads.ph ... etail&id=9" onclick="window.open(this.href);return false;

[Targion]

Nein, der Code sucht leider auch nicht rekursiv. Aber ich habe für mein Problem jetzt eine andere Lösung gefunden, Danke trotzdem für die Hilfe!

[schnullerbacke]

Bitte?

Bis jetzt hat er's gemacht und geändert hab ich nix. Der sucht auch in Unterverzeichnissen wenn man ihm das mitteilt.

[Targion]

Die Demo funktioniert nicht richtig. Wenn ich auf den Button drücke, dann sucht das Tool nur im aktuellen Verzeichnis.

[Christian]

Wie wärs dann, wenmn du den fehler suchen würdest ?
Du kannst doch nicht dauerhaft mit irgendwelchen Codes ausm Netz klarkommen !

[Targion]

Quatsch, das wäre ja basteln und nicht programmieren! Ich schaue mir den Code nochmal an, hatte aber bis jetzt keine Zeit, da ich eine Lösung für mein Projekt gefunden habe, wie man die Suche umgehen kann.

[monta]

http://lazarus-ccr.sourceforge.net/docs ... files.html" onclick="window.open(this.href);return false;

[pluto]

if SR.Attr and faDirectory = faDirectory then
daran liegt es in beiden schleifen verwendest du das.
Kann es ein das in deinem Verzeichnis keine Unterverzeichnisse sind ?

Ich verstehe den ersten Abschnitt so das er nur nach Verzeichnissen sucht aber nicht nach Dateien. Nim mal diese Zeile raus. Dann sollte es eigentlich gehen.

PS: Wo ist der unterschied zwischen Basteln und Programmieren(ist doch beides das gleiche oder ?)

[Targion]

@Monta: Wenn alles so einfach wäre! Mit dem Befehl funktioniert's super! Danke!
@pluto: Hmm. Meinen wir das selbe Stück Code? Bei mir gibt es nur einen ähnlichen Teil, und dieser ist unbedingt notwendig, um einen Ordner zu identifizieren.
P.S: Wenn man etwas bastelt benutzt man schon oder nur Fertigteile. Beim Programmieren denkt man sich alles selbst aus (würde ich sagen )
(Obwohl... Wenn es Code schon fertig gibt und man ihn versteht, wäre es ja blöd das Rad neu zu erfinden und den Code selbst nochmal zu erstellen. )

[pluto]

Na ich weis nicht, in beiden Teil verwendest du diese Abfragen.
und du möchtest nur eine Datei liste bekommen.. Da stimmt auf jeden Fall was nicht.

Ich sehe gerade: Zeile 28 Hat mich etwas durch einander gebracht. Der Code scheint inordnung zu sein. Drücke doch mal bei FindFirst auf F1 da ist ein Prima beispiel bei... ich meine auch für rekusiv.

Ich denke der Fehler sollte schon gefunden werden....

Edit: jetzt sehe ich den Fehler: Die zweite schleife muss zu erst...

[schnullerbacke]

Die Demo funktioniert nicht richtig. Wenn ich auf den Button drücke, dann sucht das Tool nur im aktuellen Verzeichnis.

Jupp, in der Suchroutine ist eine Zeile auskommentiert. Mit der kann man mit alle Dateien anzeigen lassen. Und bei mir durchsucht die auch alle Unterverzeichnisse im Hauptverzeichnis.
Kannst Dir ja spaßeshalber regular expressions einbauen. Dann geht auch noch mehr.

Zu beachten ist allerdings, das die Routine "case sensitiv" arbeitet. Alles Sachen die man leicht ändern kann...