Dateien überschreiben

[orion3000]

Hallo,

kann mir irgendjemand sagen was hier falsch ist ....

Ich habe eine Procedure geschrieben diese soll eine Datei durch überschreiben löschen, dies Funktioniert auch ganz gut aber das Problem hier ist das die Funktion nicht bis zu Ende sondern darüber hinaus geht.
Das heißt wenn ich die Procedure starte dann wird zwar die Datei überschrieben aber wenn die Datei 1MB groß ist wird daraus eine Dateigröße die den gesammten freien Speicher der Festplatte belegt.

Die Procedure Stoppt einfach nicht wenn das Ende der Datei erreicht ist.

Delphi-Quellcode:

procedure WipeFile(FileName:string;Delfile:boolean);
var
  buffer: array [0..4095] of Byte;
  max, n: LongInt;
  i: Integer;
  fs: TFileStream;

  procedure RandomizeBuffer;
  var
    i: Integer;
  begin
    for i := Low(buffer) to High(buffer) do
      buffer[i] := Random(256);
  end;
begin
  fs := TFilestream.Create(FileName, fmOpenReadWrite or fmShareExclusive);
  try
    for i := 1 to 3 do
    begin
      RandomizeBuffer;
      max := fs.Size;
      fs.Position := 0;
      while max <> 0 do
      begin
        if max <> SizeOf(buffer) then
          n := SizeOf(buffer)
        else
          n := max;
        fs.Write(Buffer, n);
        max := max - n;
      end;
      FlushFileBuffers(fs.Handle);


    end;
  finally
    fs.Free;
  end;


  if Delfile then
  Deletefile(pchar(FileName));
end;

Danke für Eure Hilfe
Orion3000

[CalganX]

Hi und herzlich willkommen in der Delphi-PRAXiS!

Das Problem ist, dass einmal schreiben drüber gehen kann und du prüfst, ob max <> 0 ist. Versuch das mal mit max > 0. Dann sollte es gehen.

Chris

[orion3000]

hallo Chakotay1308,

danke erstmal für deine schnelle Hilfe und es funktioniert endlich.

Gruß
Orion300