log File mit bestimmte Größe

[Tim Henford]

Hallo,

ich wollte einfach einige Dinge in meinen Programm bei Fehlern loggen und möchte nun, dass eine logfile nicht größer als 100kb wird. Wie mach ich das aber, dass immer der Anfang, also die ältesten Einträge aus der Datei gelöscht werden und der Rest dann ergänzt wird, sodass ich immer >= 100kb bleibe?

Danke Tim

[Loewentier]

Hab das bei mir so implementiert:

Delphi-Quellcode:

procedure WriteToLog ( Filetype : integer; str : string; sucess : boolean);
var
   F        :  File of byte;
...
   
  begin
  NewFile := False;
  try  // Test Datei ist voll
  AssignFile(f, Prot_Directory + '\LOGFILE.TXT');
  Reset(f);
  size := FileSize(f);
  if Size > MaxinmalSize then begin
    Seek(F, 95 + 80);           // Oberen Header stehen lassen
    Truncate(F);         // Datei eventuell hinten abschneiden
  end;
  closeFile(F);

  AssignFile (Datei, Prot_Directory + '\LOGFILE.TXT');  // Datei neu öffnen
  reset(Datei);
   
  Append(Datei);   // Hinzufügen von Text am Ende
  Writeln(Datei, '');
  closefile(Datei);   // Schliessen

  except
    {$IOCHECKS OFF}   
    // Datei anlegen wenn noch nicht existent!
    {$IOCHECKS ON}
    end;   // except
end;

Man des riesen Sprungs über Seek bis fast nach vorne könnte man natürlich auch Zeile für Zeile löschen
Hoffe das hilft Dir

[himitsu]

http://www.delphipraxis.net/internal...=804123#804123

ist zwar ein PHP-Code (also mehr sowas wie C), aber es sollte sich "leicht" nach Delphi übersetzen lassen.

in dem Code wird die Datei unter einer angebbaren Maximalgröße gehalten und wegen der Geschwindigkeit nicht jedesmal verkleiner, sondern vor überschreiten der Maximalgrenze auf eine Minimalgröße verkleinert ... damit muß nicht jedesmal ei alter Eintrag gelöscht werden, sondern nur in gewissen Abständen werden mehrere Einträge gelöscht.