Einzelnen Beitrag anzeigen

whiteF

Registriert seit: 14. Okt 2008
45 Beiträge
 
#3

AW: Textdatei mit Filelock öffnen und zeilenweise auslesen

  Alt 3. Okt 2016, 10:17
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;
  Mit Zitat antworten Zitat