Auf Textdatei zugreifen

[simjoh]

Hallo,

ich hätt da gerne mal ein Problem:

Ich will aus einer Textdatei fortwährend die letzte Zeile auslesen. Diese Textdatei wird aber fortwährend von einem anderen Programm beschrieben (so alle 0,5 bis 1 Sekunden etwa). Wenn ich mit reset(datei) auf die Textdatei zugreifen will (mit Hilfe eines Timers, alle 5 ms), kommt (nicht immer, aber doch manchmal) die Fehlermeldung e/a-Fehler 32. Dies ist wohl eine Windows Fehlermeldung, wenn auf eine gemeinsam genutzte Datei zugegriffen wird. Wahrscheinlich wird wohl genau in diesem Moment in die Datei geschrieben. Die Textdatei ist aber nur kurz zum Schreiben geöffnet und wird dann wieder geschlossen.

Im Prinzip sieht meine Timerproc so aus:

Delphi-Quellcode:

reset(datei); {hier wird die Fehlermeldung ausgelöst}

sl := TStringList.Create;
try
  sl.LoadFromFile('c:\Textdatei.txt')
finally
  sl.free
end;

fileclose(datei);

Wie kann man herausfinden, ob in die Textdatei von dem anderen Programm geschrieben wird um zu verhindern, dass reset(datei) eine Fehlermeldung erzeugt? Dann soll reset(datei) nicht ausgeführt werden und die Timerproc einfach verlassen werden.

Wäre für jeden Tipp dankbar.

Herzliche Grüße

[mkinzler]

Nimm besser einen Stream

[simjoh]

Wie geht das? Wärst du so nett mir ein Beispiel zu geben?

[Andidreas]

du könntest aber auch denn IOResult abfragen

Delphi-Quellcode:

{$I-}

While IOResult = 32 Do
Begin
  Reset(txtFile);
End;

{$I+}

//Restliche Verarbeitung

[himitsu]

Schau unter reset, dort steht wie man diese Fehlermeldung unterdrückt.

Dann könntest du auch mal versuchen mit FileMode auf NurLese-Zugrif umzuschalten.
eventuell erlaub das andere Programm ja einen reinen Lesezugriff, dann könntest du sogar die Datei geöffnet lassen und bräuchtest immer nur die hinzugefügten Daten auslesen.

Das Auslesen nur der neuen Daten wäre eh von Vorteil, auch wenn du die datei jedesmal neu öffnest.


PS: was passiert eigentlich, wenn das andere Programm grade in die Datei schreiben will, wärend du sie geöffnet hast?

[Andidreas]

Zitat:

Zitat von himitsu

PS: was passiert eigentlich, wenn das andere Programm grade in die Datei schreiben will, wärend du sie geöffnet hast?

dann wird vermutlich das andere programm eine fehlermeldung kriegen!!!

Delphi-Quellcode:

FileClose(’C:\Temp\Test.txt’);

das da könnte evtl. auch helfen...
dadurch schließt du die datei wieder...
aber was beim anderen programm dadurch passiert... kp... müsstest du halt mal testen...

[simjoh]

Ich probiers gerade mal und schau mal was geht, danke für die Hilfe. Melde mich ggf nochmal.

[himitsu]

Zitat:

Zitat von Andidreas

dann wird vermutlich das andere programm eine fehlermeldung kriegen!!!

darauf wollte ich hinaus :zwinker:

Wenn es bei ihm 'nen Zugriffsfehler gibt, dann pasiert ja noch nicht viel ... auslesen kann er das Neue später immernoch,

aber das andere Programm wird da vermutlich große Probleme bekommen und eventuell die Daten nicht speichern.

Zitat:

Zitat von Andidreas

Delphi-Quellcode:

FileClose(’C:\Temp\Test.txt’);

:shock: > FileClose ... das wird die Dateivarable verlangt und das macht er schon richtig

[simjoh]

Hab jetzt mal

Delphi-Quellcode:

{$I-}
  if IOResult <> 32 then
  begin

    Reset(Datei[1]);

  end
  else
    exit;
  {$I+}

probiert. Merkwürdigerweise ist ein eingefügter Haltepunkt bei "exit" grün. Kommt das Prog dort nie hin?

[simjoh]

Habs gerad probiert, funzt nett.

[Andidreas]

du machst aber bevor du denn ioresult abfragst schon auch ein reset???

deine if abfrage ist glaub auch falsch geschrieben oder???
müsste sie nich so aussehen...

Delphi-Quellcode:

if ioresult <> 32 then
  Reset(txtFile)
else
  exit;

[Klaus01]

Zitat:

Zitat von simjoh

Delphi-Quellcode:

{$I-}
  Reset(Datei[1]);
{$I+}

  if IOResult <> 0 then
  begin
    exit;
  end

Vielleicht ist es besser so herum, denn was sollte denn von IOResult geliefert werden
wenn vorher nicht versucht wurde die Datei zu öffnen.

Grüße
Klaus

[simjoh]

Hallo Klaus,

auch hier ist ein Haltepunkt bei exit grün? Ich probiers mal. Danke.

[simjoh]

Muss ich eigentlich bei Klausns Vorschlag die Datei noch closen, bevor ich mit exit die Proc verlasse?

[Klaus01]

Nein, eigentlich nicht, da ein Öffnen ja fehlgeschlagen ist (IOResult <> 0)

Grüße
Klaus

[simjoh]

Lieber Klaus,

deine Lösung funzt so, ich lasse meine Proc nun schon ziemlich lange laufen und es kommt keine Fehlermeldung mehr. Herzlichen Dank für deine Hilfe.

Nette Grüße
Markus