Dateien ohne Inhalt (leere Dateien) finden

[Schwedenbitter]

Hallo,
ich habe ein Problem mit meinem Fileserver und hoffe zunächst, die richtige Rubrik innerhalb der gefunden zu haben.

Nach einem Absturz (Ursache ist hier egal), habe ich jetzt schon ein paar Dateien gefunden, deren Größe <> 0 Bytes ist, deren Inhalt aber wie folgt aussieht:

Code:

00000000   00 00 00 00   00 00 00 00   00 00 00 00   00 00 00 00
00000010   00 00 00 00   00 00 00 00   00 00 00 00   00 00 00 00
00000020   00 00 00 00   00 00 00 00   00 00 00 00   00 00 00 00

Das sollte so nicht sein und ich befürchte, dass es noch ein paar weitere Dateien "erwischt" hat. Ich habe jetzt in meiner Not quick and dirty etwas zusammenprogrammiert, was mir derartige Null-Dateien rekursiv suchen soll, was aber nicht funktioniert. Den vollständigen Code habe ich angehängt. Der Fehler muss aber irgendwo hier liegen:

Delphi-Quellcode:

If (SR.Size > 0) Then                  // 0-Byte-Dateien ignorieren
Begin
   AssignFile(F, Dir + PathDelim + SR.Name);
   System.FileMode:=fmOpenRead;
   {$I-}
   Reset(F);
   If (IOResult = 0) Then
   Begin
      IsEmpty:=True;
      BlockRead(F, Buffer, BuffSize, Res);
      CloseFile(F);
      If (Res > 0) Then
      Begin
         For I:=1 To Res Do
         Begin
            If (Buffer[I] <> 0) Then
            Begin
               IsEmpty:=False;
//             Break;
            End;
         End;
      End;
      If IsEmpty Then
         LBFiles.Items.Append(Dir + PathDelim + SR.Name + ' - (' +
         FormatFloat('0,', SR.Size) + ')');
   End;
   {$I+}
End;

Kann mir jemand helfen, meine Denkblockade aufzulösen?

Danke, Alex

[Aphton]

Genauere Fehlermeldung?

Verrate mir übrigens bitte wie groß die größte Datei ist

Edit1:

Delphi-Quellcode:

  BlockRead(F, Buffer, BuffSize, Res); // #1
  {...}
  For I:=1 To Res Do  // #2
  Begin
    If (Buffer[I] <> 0) Then // #2
  {...}

Ich nehme an, dass dein Buffer nicht 0 indiziert ist (= 1 bis n); folglich darfst du bei #1 doch nicht Buffer so alleine angeben, wenn ich mich richtig erinnere.
Probier mal

Delphi-Quellcode:

//..
  BlockRead(F, Buffer[1], BuffSize, Res)

Edit2 Anmerkung nebenbei:
Du kannst übrigens die Schleife schon vorzeitig verlassen und zwar genau dann, wenn diese if Bedingung zutrifft (verwende break dazu...)!

[p80286]

Ist eigentlich ungewöhnlich einen Buffer nicht mit index-0 staten zu lassen (for i:=0 to res-1... )

Gruß
K-H

[himitsu]

[edit]
Wollte ich vorhin auch schon fragen.

Was ist "Buffer" ?
Und sicher daß es von 1..Länge geht?

Joar, Fehlerbeschreibungen braucht man ja nicht zu nennen ... jedenfalls nicht, wenn man von uns keine schnelle "hilfreiche" Antwort haben möchte und nee, wir haben niocht immer die Lust/Zeit/Möglichkeit es erst selber auszuprobieren.
Tipp: Strg+C funktioniert fast überall. (auch in Dialogen)

[Mavarik]

Je nachdem was Buffer ist...

Schreibst Du nicht ins Array sondern an die Adresse der Array Variable...

daher immer Buffer[0] verwenden...

Mavarik

[Schwedenbitter]

Ich bin ein Stück weiter. Den Verursacher habe ich gefunden, nicht aber die Ursache. Der Code sieht modifiziert wie folgt aus:

Delphi-Quellcode:

BlockRead(F, Buffer[0], SizeOf(Buffer), Res);
CloseFile(F);
If (Res > 0) Then
Begin
   ShowMessage(SR.Name + #13 + 'Es wurden ' + FormatFloat('0,', Res) + ' Bytes gelesen.');
   ...

Das für mich verblüffende ist die Meldung

Code:

Urlaub.xls
Es wurden 4.469.406 Bytes gelesen.

Die Datei ist natürlich keine 4 MB groß. Wieso liefert mir BlockRead einen falschen Wert zurück?

[Schwedenbitter]

Danke für Eure Antworten!

Ich bekomme eine EAccessViolation in der Zeile mit If (Buffer[I] <> 0) Then . Nicht mehr und nicht weniger. Warum ist mir völlig unklar. Dabei sieht die Deklaration wie folgt aus:

Delphi-Quellcode:

Const
   BuffSize      = 1024;
Var
   SR            : TSearchRec;
   F            : File;
   Buffer      : Array [1..BuffSize] Of Byte;
   Res         : Integer;
   IsEmpty      : Boolean;
   I            : Integer;

Aber das wollte ich nicht alles hier schreiben. Deshalb hatte ich ja den Quellcode gepackt angefügt. Was genau - zusätzlich zur Fehlermeldung - braucht Ihr noch für eine schnelle Antwort. Ich bin ja durchaus willig...

Die größte Datei ist bislang ca. 1,5 MB. Üblicher Weise beginnen Dateien nicht eben mal mit Nullen. I.d.R. steht am Anfang ein TAG, der die Datei einem bestimmten Typ zuordnet, bei exe-Dateien steht am Anfang 'MZ' etc.
Mir reicht es bei meiner Suche, wenn ich feststelle, dass die ersten 1024 Bytes (oder weniger) ausschließlich Nullen sind. Dann kann ich per Hand nachsehen. Denn nachsehen und die Dateien mit sinvollen Daten aus dem Backup ersetzen muss ich sowieso. Und weil es um ca. 200 GB an Daten geht, kann/will ich die Dateien nicht komplett auslesen.

Die Schleife werde ich später vorzeitig beenden. Das break steht ja schon auskommentiert da

Warum ich bei 1 und nicht bei 0 mit dem Index angefangen habe, weiß ich auch nicht.

Ich habe jetzt

• das Array von 0 bis 1023 definiert,
• habe bei BlockRead Buffer[0] angegeben und
• lasse die Schleife von 0 bis Pred(Res) laufen

und bekomme trotzdem noch die EAccessViolation.

[edit]
Falls jemand eine leere Datei zum Testen braucht, kann ich die liefern. Gepackt dürfte die ja nicht sehr groß sein
[/edit]