Textdatei mit Filelock öffnen und zeilenweise auslesen

[himitsu]

Du sperrst die Datei, indem du sie öffnest und KEINEM anderen (auch dir nicht) erlaubst sie irgendwie zu öffnen,
und dann wunderst du dich wirklich, dass du die Datei nicht nochmal öffnen und etwas reinschreiben kannst?

Zitat:

Es wird nichts in die Textdatei gespeichert.

Ganz sicher, dass deine Fehlerbeschreiung stimmt?
ReWrite heißt Rewrite (es ist nur EIN Wort) und es sollte (standardmäßig) eine Exception auslösen, welche dir sagt, dass ihm etwas nicht gefällt.

[whiteF]

ja, daran habe ich auch schon gedacht, dass die datei von meinem programm 2 mal verwendet wird, wusste aber jetzt nicht ganz genau ob genau das der Grund ist.

ich habe es jetzt mal umgebaut, nur mit einem Zugriff auf die Datei. Das klappt eigentlich soweit. Neue Datensätze sind in der Textdatei enthalten.
Jedoch wenn ich die TextDatei mit z.B. dem Editor oder Notepad++ öffne bevor ich diese procedure ausführe werden dennoch Datensätze in die Datei geschrieben.
Ich möchte aber dass andere Programme die Datei anhand des Lock gar nicht erst öffnen können.
Ich habe bei meiner Suche auch gelesen dass der "FileMode" bei TextFiles nicht funktionieren sollte. Wenn das so wirklich stimmen sollte, dann bleibt mir doch nur noch der Weg über FileStream oder?
(Am liebsten würde ich bei diesem Aufbau hier bleiben damit ich dann später noch ein einfaches "while not Eof(ChatDateiPfadFull) do ..." einbauen kann...
Bei Filestream ist es wieder komplizierter eine Textdatei zeilenweise auslesen zu lassen, so meine ersten suchergebnisse)

Delphi-Quellcode:

procedure TForm1.TimerWatchMessagesTimer(Sender: TObject);
var
  ThisTime : String;
  FileWithLock : TextFile;
begin
  MemoLog.Lines.add('--------------------------------------------------------------------------------------------------------------------------------------------');
  ThisTime := formatdatetime('c', Now);
  MemoLog.Lines.add(ThisTime + ' - ' + 'Checking File: ' + ChatDateiPfadFull + '...');

  if DirectoryExists(ChatDateiPfad) = True then
  begin
    //lblChatDateiPfad.Caption := 'OK';

    if FileExists(ChatDateiPfadFull) = True then
    begin
      //lblChatDateiName.Caption := 'OK';
      MemoLog.Lines.add(ThisTime + ' - ' + 'File is reading: ' + ChatDateiPfadFull + '...');

      FileMode := fmOpenReadWrite + fmShareDenyWrite;
      AssignFile(FileWithLock, ChatDateiPfadFull);
      //showmessage(textostr(FileWithLock));
      try

          Append(FileWithLock);


          WriteLn(FileWithLock, 'Hello12311111111');

          MemoLog.Lines.add(ThisTime + ' - ' + ' Schreibzugriff AN');

      finally
        CloseFile(FileWithLock);

    end;

    end
    else
    begin
      MemoLog.Lines.add(ThisTime + ' - ' + 'File not found: ' + ChatDateiPfadFull + '...');
    end;

  end
  else
  begin
    MemoLog.Lines.add(ThisTime + ' - ' + 'Directory not found: ' + ChatDateiPfad + '...');
  end;

end;