FindFirst/FindNext BUG

[Nightshade]

Der folgende Code findet auf meinen Platten nicht alle Dateien.
Auf meiner "G"-Festplatte findet er alles einwandfrei, aber z.B. auf meiner "F"-Festplatte fidet er nichts.

Delphi-Quellcode:

procedure TForm1.ReadDir(path : string; sl : TStrings);
var
    Fsr : TSearchRec;
    FFileAttrs: Integer;
    FName : string;
begin
  path := IncludeTrailingPathDelimiter(path);
  FFileAttrs := faAnyFile;
  if FindFirst(Path + '*.*', FFileAttrs, Fsr) = 0 then
  begin
    repeat
      if (fsr.Attr and faDirectory) = fsr.Attr then
      begin
        if copy(fsr.name,1,1) <> '.' then
          ReadDir(Path+fsr.name, sl);
      end
      else if (fsr.Attr and FFileAttrs) = fsr.Attr then
      begin
        if copy(fsr.Name,1,1) <> '.' then begin
          FName := path+fsr.Name;
          sl.add(FName);
        end;
      end;
    until FindNext(fsr) <> 0;
    FindClose(fsr);
  end;
end;

Beim Debuggen der Funktion ist mir aufgefallen das FindFirst für fsr.Attr = 8208 zurückliefert.

Kann das mal jemand überprüfen ?

PS :

Win XP-Pro SP2
Delphi 2005 [eng] Architect Trail

[edit=sakura] D2005 aus dem Titel entfernt. Mfg, sakura[/edit]

[MathiasSimmack]

Zitat:

Zitat von Nightshade

Auf meiner "G"-Festplatte findet er alles einwandfrei, aber z.B. auf meiner "F"-Festplatte fidet er nichts.

Äh, dann ist es wohl kein Bug. ;) Oder willst du ernsthaft erzählen, dass "FindFirst" deine G-Platte problemlos durchsucht, aber bei F versagt? :gruebel:

[gsh]

Keine Ahnung von einen Bug aber mit dem was ich mir gebastelt habe funktioniert jedes Laufwerk.

Code:

procedure THaupt.SEARCH_DIR(Dir, Filter : string; var List : TStringList);
var
  SEARCH: TSearchRec;
  RES: integer;
begin
  Application.ProcessMessages;
  RES := findfirst(Dir+'\'+Filter,faanyfile-faDirectory,SEARCH);
  try
    while RES = 0 do
      begin
        if (SEARCH.Attr and faDirectory) = 0 then
          begin
            List.Add(Dir + '\' + SEARCH.Name);
            Application.ProcessMessages;
          end;
        RES := findnext(SEARCH);
      end;
  finally
    findclose(SEARCH);
  end;
  RES := findfirst(Dir+'\'+'*.*',faanyfile,SEARCH);
  try
    while RES = 0 do
      begin
        if (SEARCH.Name <> '.') and (SEARCH.Name <> '..') and ((SEARCH.Attr and faDirectory) <> 0) then
          SEARCH_DIR(Dir+'\'+SEARCH.Name, Filter, List);
        RES := findnext(SEARCH);
      end;
  finally
    findclose(SEARCH);
  end;
end;

Damit habe ich noch nie problemme gehapt.

gsh

[Nightshade]

Ich bin selber verwirrt, aber ich hab schon alle Platten per ScanDisk überprüft.

Nur bei "G" funktioniert es.

[Matze]

@Nightshade: Hast du deinen Code auch mal unter Delphi 7 getestet? Ist es dort genauso?

[Nightshade]

Zitat:

Zitat von Matze

@Nightshade: Hast du deinen Code auch mal unter Delphi 7 getestet? Ist es dort genauso?

Hmmm, auf die Idee hätte ich auch selber kommen können :oops:

Nein unter D7 geht es auch nicht....

Aber woher kommt dieses Atrr = 8208 ?

[md_mse]

Zitat:

Zitat von Nightshade

Der folgende Code findet auf meinen Platten nicht alle Dateien.
Auf meiner "G"-Festplatte findet er alles einwandfrei, aber z.B. auf meiner "F"-Festplatte fidet er nichts.

Delphi-Quellcode:

procedure TForm1.ReadDir(path : string; sl : TStrings);
...
  if FindFirst(Path + '*.*', FFileAttrs, Fsr) = 0 then
...
end;

Beim Debuggen der Funktion ist mir aufgefallen das FindFirst für fsr.Attr = 8208 zurückliefert.

Kann das mal jemand überprüfen ?

PS :

Win XP-Pro SP2
Delphi 2005 [eng] Architect Trail

Du musst vorher auf das Laufwerk wechseln, du kannst das nicht per "FindFirst" bewerkstelligen...
mit

Code:

ChDir('G:\')

kommst du sicherlich auch auf Laufwerk G: ;)

[jim_raynor]

Das Problem ist folgendes:

Delphi-Quellcode:

if (fsr.Attr and faDirectory) = fsr.Attr then

Richtig muss es heissen:

Delphi-Quellcode:

 if (fsr.Attr and faDirectory) = faDirectory then

Seit wann muss man ein ChDir machen, um Dateien auf einem anderen Laufwerk zu suchen?

Und deine Variante mit zwei Schleifen ist auch nicht gerade performant. Das kannst du doch alles in einer machen.

[DP-Maintenance]

Dieses Thema wurde von "sakura" von "Delphi 2005 - Bugreports" nach "Windows API" verschoben.
Kein Bug in Delphi, sondern beim Programmierer :mrgreen:

[md_mse]

@jim_raynor: Ich habe eigentlich in Erinnerung das das genau so wie bei FindFirstFile() ist...
Ja da bin ich mir sogar fast Sicher :)...

[Muetze1]

Moin!

Jo, so wie Jim_Raynor das auch richtig schreibt ist es auch bei FindFirstFile(). Das ist eindeutig der Fehler in deinem Code, da die einzelnen Flags nur Bits in den Attributen sind und du sie eigentlich ausmaskierst und dann schaust ob sie gesetzt sind. Du hast diese ausmaskiert und geschaut ob sich nix geändert hat, was dann bedeutet, das das jeweilige Bit nicht gesetzt ist. Somit rufst du eine Unterdirectorysuche auf ohne das du ein Directory vor dir hast.

MfG
Muetze1

[Christian Seehase]

Moin Nightshade,

noch ein Bug in Deiner Routine:

Delphi-Quellcode:

if copy(fsr.name,1,1) <> '.' then

es muss explizit auf <> '.' und <> '..' geprüft werden, da eine Datei/Verzeichnisname durchaus mit einem Punkt beginnen darf.

[Nightshade]

Zitat:

Zitat von Christian Seehase

Moin Nightshade,

noch ein Bug in Deiner Routine:

Delphi-Quellcode:

if copy(fsr.name,1,1) <> '.' then

es muss explizit auf <> '.' und <> '..' geprüft werden, da eine Datei/Verzeichnisname durchaus mit einem Punkt beginnen darf.

Jau, hast recht...