Textdatei mit Filelock öffnen und zeilenweise auslesen

[whiteF]

hi,
irgendwie hänge ich gerade und komme hier nicht weiter.
ich möchte eine textdatei mit einem filelock belegen (schreib und leserechte), dann soll dieser textdatei eine zeile hinzugefügt werden und zeilenweise ausgelesen werden, JEDOCH NUR wenn diese textdatei keinen vorherigen filelock von einem anderen programm hat.

das ist bereits dass was ich zusammen gemurckst habe :D

Es wird nichts in die Textdatei gespeichert.

Wisst ihr wie ich das lauffähig bekomme?

Delphi-Quellcode:

...private
    ChatDateiPfad : String;
    ChatDateiPfadFull : String;
...
procedure TForm1.TimerWatchMessagesTimer(Sender: TObject);
var
  ThisTime : String;
  FileHandle : THandle;
  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 + '...');

      FileHandle := FileOpen(ChatDateiPfadFull, fmOpenReadWrite or fmShareDenyWrite);
      try
          AssignFile(FileWithLock, ChatDateiPfadFull);
          ReWrite(FileWithLock);
          FileMode := fmOpenWrite;
          //ReSet(FileWithLock);

          WriteLn(FileWithLock, 'Hello123');
          //ReWrite(FileWithLock);
          //WriteLn(FileWithLock, 'Hello!');

          CloseFile(FileWithLock);

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

      finally
        FileClose(FileHandle)

    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;

[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;

[p80286]

Zitat:

Zitat von whiteF (Beitrag 1349546)

ich möchte eine textdatei mit einem filelock belegen (schreib und leserechte), dann soll dieser textdatei eine zeile hinzugefügt werden und zeilenweise ausgelesen werden, JEDOCH NUR wenn diese textdatei keinen vorherigen filelock von einem anderen programm hat.

Was meinst Du damit?
Im "Normalfall" ist eine Datei, die beschrieben werden soll, exclusiv geöffnet. D.h. ein anderes Programm darf nicht darauf zugreifen.

Delphi-Quellcode:

procedure WriteTestline(filename:string);
var
  f :Textfile;
begin
  assignfile(f,filename);
  rewrite(f);
  writeln(f,'Teststring');
  closefile(f);
end;

Gruß
K-H

[whiteF]

danke für dein beitrag p80286,

ich meine folgendes:
Öffne mal die eine textdatei (>filename) mit dem Editor (Notepad) und dann erst führe dein code aus.
Danach die Delphi Anwendung und Editor/Notepad schliessen und die Textdatei erneut mit dem Editor öffnen.
Der String "Teststring" ist nun in der Textdatei obwohl der Editor bereits vor ausführung des codes die datei geöffnet hatte.

Ich möchte das mein Programm mir dann sagen soll, "stop, die datei ist bereits geöffnet. mache was anderes anstatt die datei zu öffnen".
Da letztendlich mein Programm 2 mal ausgeführt wird, möchte ich prüfen ob die datei bereits mit schreibrechten geöffnet ist.

[Fritzew]

Notepad öffnet die Datei zum lesen, liest alles ein und schließt die Datei wieder.
Da kommst Du nicht dagegen an wenn Notepad vor Dir die Datei öffnet.

Bei Dir selber kannst Du es verhindern wenn Du die Datei öffnest sobald Dein Programm gestartet wird und erst beim schliessen wieder freigibst.

[p80286]

Oder um es anders auszudrücken, in dem Moment, in dem Dein Programm in die Datei schreiben will, ist die Datei nicht geöffnet.

Gruß
K-H