Log Datei Threadsave speichern

[franktron]

Wie kann ich eine Logdatei Threadsave Speichern.

Also ich habe 2 Threads die Daten per FTP Verschicken, jetzt sollen diese Threads in eine Logdatei speichern
aber wenn jetzt Thread 1 und Thread 2 gleichzeitig was schreiben wollen knallst wohl.

[Luckie]

Dann musst du den Zugriff mit CriticalSection synchronisieren.

[franktron]

Gibts da irgendwo eine Howto wie das genau funktioniert.

[sirius]

Du erstellst eine Klasse, von der du ein Objekt an beide Threads übergibst:

Delphi-Quellcode:

type
 TDatei=class
  constructor Create; //FCriticalSection.Create
  Destructor Destroy; override //fCriticalSection.free;
 private
  FFileName:string;
  FCriticalSection:TCriticalSection;
 public
  property FileName:string; 
  procedure WritetoFile(const s:String);
end;

//...
procedure TDatei.WritetoFile;
begin
  CriticalSection.Enter;
  try
    öffne Datei
    schreibe Datei
    schließe Datei
  finally
    CriticalSection.leave;
  end;
end;

Jetzt kannst du aus jedem Thread einfach WritetoFile aufrufen und alles ist abgesichert.

(aber wird Dateiarbeit nicht auch vom OS abgesichert )

[franktron]

Zitat von sirius:

(aber wird Dateiarbeit nicht auch vom OS abgesichert )

Ja aber es können doch nicht 2 Prog gleichzeitig schreiben oder ?

[himitsu]

Wenn die Zugriffsrechte es verbieten, dann nicht.

[uoeb7gp]

HI, versuchs damit.

Features:
Threaded-Cached Logwriter, entwickelt für hocklast Serveranwendungen, um WorkerThreads nicht zu behindern.

lg.

[Viktorii]

Moin.


Ist TFileStream nicht threadsafe?

Habe sowas bis jetzt immer damit gemacht

[himitsu]

Nein, ist er grundsätzlich erstmal nicht.

Wenn du aber jedem "Read/Write" die Startposition getrennt mitgibst oder jeder Thread seinen eigenen Stream auf die selbe Datei hat, dann wäre er teilweise threadsicher.