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;