Textdatei mit TFileStream

[EConvertError]

Guten Tag!

Ich muss eine Textdatei (eine Logdatei) erstellen. Da ich nur neue Zeilen (= Logeinträge) hinzufügen und die gesamte Datei einlesen (= für einen Logbetrachter) muss, habe ich an die Verwendung des TFileStreams (anstatt der Funktionen "AssignFile", etc.) gedacht.

Der Vorgang des Schreibens ist mir klar, aber das Herauslesen wirft noch Fragen auf:
Ich möchte nämlich nicht die ganze Datei in einen String einlesen (wie es z.B. mit dem TStringStream/der TStringList bequem ginge), dann den Inhalt parsen und danach das Resultat in den dafür vorgesehenen Controls anzeigen. Denn wenn die Datei sehr groß ist, dauert das IMHO lange und verbraucht sinnlos Speicher (Falls ihr mir dennoch diesen Weg empfiehlt, werde ich meine Meinung ändern. :wink: ).

Nachdem aber der TFileStream keine Funktionen für das zeilenweise Herauslesen bietet (aber dafür sehr nützliche Optionen, wie z.B. fmShareExclusive), frage ich mich, wie ich das tun soll.

Meine Idee ist, dass:

• ich einen Thread starte, der die Datei blockweise ausliest und die Daten in eine Liste ablegt.
• ich einen zweiten Thread starte, der sich aus den Blöcken die Zeilen zusammenbaut und parst (und die nicht mehr gebrauchten Daten aus der Liste freigibt).
• der Hauptthread (der mit der GUI) die Daten nur mehr anzeigt.

Was würdet ihr mir empfehlen, bzw. ist meine Idee gut?

Frohe Weihnachten,
Andreas

[3_of_8]

Naja, also man könnte es, wenn man es doch mit einer StringList lösen will, so machen:

Delphi-Quellcode:

filestream:=TFileStream.create(filename);
strlst:=TStringList.create;
strlst.loadfromstream(filestream);
//String-Veränderung
str:=strlst[0]; //oder was man halt machen will
//Abspeichern
strlst.savetostream(filestream);
//Freigabe
freeandnil(filestream);
freeandnil(strlst);

[EConvertError]

Ja wie es mit TStringList funktioniert, ist mir auch klar.
Aber ich suche nach einer besseren Möglichkeit, da diese Logdatei unter Umständen sehr groß werden kann.

Frohe Weihnachten,
Andreas

[3_of_8]

Also ich mache meine Logdatei auch mit ner TStringList, ohne Umweg über TFileStream, und bei mir geht es ohne Probleme, weil ich dem Benutzer die Möglichkeit gebe, die maximale Anzahl Zeilen zu begrenzen.

[EConvertError]

Mein Benutzer möchte aber ein ganzes Jahr mitloggen. Folglich wird die Datei zwangsläufig groß.

[3_of_8]

Wie wäre es ganz altmodisch mit AssignFile und Reset und WriteLn?

[SirThornberry]

ein ReadLn macht letzendlich auch nix anderes als die Datei blockweise/zeischenweise zu lesen und dann zu prüfen ob ein Zeilenumbruch vor kommt. Genau so kannst du es auch mit TFileStream machen. Immer blockweise lesen und prüfen ob in dem gelesenen Block ein Zeilenumbruch vor kommt. Wenn nicht den nächsten Block lesen und den gelesenen an die anderen bereits gelesenen Daten anhängen, wenn der Linebreak im block ist dann bis zu diesem zeischen den inhalt des blockes an das bis dahin gelesen hängen.

[3_of_8]

Wer rede hier vor ReadLn? Die Datei soll ja nicht gelesen, sondern geschrieben werden.

Einfach Datei Assignen, mit reset öffnen, und dann mit WriteLn immer hinten dran schreiben, zur not mit Seek zuerst die Einfügemarke setzen.

[EConvertError]

@SirThornberry: Das klingt schon sehr gut für mich. Du bist also der Meinung, dass mein Vorschlag gut ist?

Warum ich nicht mit AssignFile() arbeiten will?
Weil ich den Share-Modus setzen möchte (= mein Hauptgrung), weil TFileStream objektorientierter (und vielleicht schneller??) ist.

@3_of_8
Wer lesen kann ist klar im Vorteil:

Zitat:

Der Vorgang des Schreibens ist mir klar,...

[3_of_8]

Ja, aber die Befehle/Klassen, die waren dir noch nicht klar. Die hattest du ja erfragt. Und sind reine Prozeduren nicht schneller als Klassen???

[SirThornberry]

bei großen Dateien bin ich der Meinung das dein Vorschlag gut ist. Denn wie du bereits geschrieben hast wird bei Stringlisten die gesammte Datei in den speicher geladen was nicht gerade performant ist. Und da wir schon einige Jahre objectorientiert programmieren bin ich auch dafür das TFilestream anstelle von AssignFile genutzt wird (selbst wenn es intern vielleicht auch noch genutzt wird)

[Christian Seehase]

Moin Andreas,

Zitat:

Zitat von EConvertError

Nachdem aber der TFileStream keine Funktionen für das zeilenweise Herauslesen bietet

wie wäre es mit TStringStream?

[EConvertError]

Meine Programm ist ein Netzwerk Traffic Monitor und pro Tag und Session wird eine neue Zeile erstellt, was für ein Jahr (und mein Benutzer möchte gerne ein Jahr loggen) also 365*2 Zeilen bedeutet, wenn man annimmt, dass pro Tag eine Session stattfindet. Meiner Meinung nach fällt das unter große Datei...

Der StringStream interessiert mich sehr, aber wenn ich folgenden Code ausführe, lädt er die Datei doch auch als ganzes in den RAM, oder?

Delphi-Quellcode:

StringStream.CopyFrom(FileStream);

Frohe Weihnachten,
Andreas

[SirThornberry]

mit folgendem Source kannst du eine bestimmte Zeile aus einem Stream lesen (ab Stream Position)

Delphi-Quellcode:

function GetLine(AStream: TStream; ALineNumber: Integer): String;
var LBuffer2, LBuffer: String;
    LCurrLine, LBytes, LBreakPos: Integer;
begin
  result := '';
  SetLength(LBuffer2, 50);
  LCurrLine := 0;
  while (LCurrLine <= ALineNumber) and (AStream.Position < AStream.Size) do
  begin
    LBytes := AStream.Read(LBuffer2[1], 50);
    LBuffer := copy(LBuffer2, 1, LBytes);
    repeat
      LBreakPos := Pos(#13#10, LBuffer);
      if LCurrLine = ALineNumber then
      begin
        if LBreakPos > 0 then
          result := result + copy(LBuffer, 1, LBreakPos - 1)
        else
          result := result + LBuffer;
      end;
      if LBreakPos > 0 then
      begin
        LBuffer := copy(LBuffer, LBreakPos + 2, 50);
        inc(LCurrLine);
      end;
    until (LBreakPos < 1) or (ALineNumber < LCurrLine);
  end;
end;

geht bestimmt noch eleganter aber als Anregung sollte es reichen.

[EConvertError]

Danke, diese Funktion sieht sehr gut aus. Dann werde ich die Datei wohl mit dem TFileStream herauslesen.

@Christian Seehase: Wie hast du das mit dem TStringStream gemeint? CopyFrom() kopiert doch die gesamte Datei in den RAM?

Vielen Dank,
Andreas

[Christian Seehase]

Moin Andreas,

ich meinte, dass Du Dir mal TStringStream als Ersatz für TFileStream anschaust. ;-)

[EConvertError]

Hmmm, entweder ich sitze auf der Leitung, oder wir haben hier ein Missverständnis.
Wie soll ich denn den TStringStream statt TFileStream verwenden, wenn ich mit einer Datei arbeite?

Edit:
Meinst du, dass ich die Blöcke, die ich aus dem TFileStream lese, zum Bearbeiten in den TStringStream schreiben soll, anstatt umständlich "herumzuparsen"?