Log-Datei realisieren

[FarAndBeyond]

@ shmia:
Besten Dank, die Klasse kannte ich noch nicht...

Hab' bis jetzt immer 'ne TStringlist genommen, da das sehr viel einfacher ist als die Einzelbefehle...
Brauche in Kürze eh mal öfter'n MemoryStream, da bietet sich das komplette Stream-Thema ja eigentlich an.

[Reinhard Kern]

Zitat von Infect:

Hallo allerseits,

ich möchte gerne eine Log-Datei realisieren, in die mehrere Programme (bzw. mehrere Instanzen desselben Programms) ihre Einträge machen. Wie realisiere ich so etwas am besten, ohne dass die Programme sich beim Hineinschreiben in die Datei in die Quere kommen?

Bisher hatte ich folgende Routine vorgesehen für das Anhängen von Log-Einträgen:

Delphi-Quellcode:

AssignFile(f, 'C:\Test.log');
try
  Append(f);
  Writeln(f, 'Ein Log-Eintrag');
finally
  CloseFile(f);
end;

Hier kann es aber theoretisch passieren, dass zwei Programme gleichzeitig die Datei öffnen wollen und dann kracht es bei dem Programm, das einen Tick später drangekommen ist.

Hallo,

warum versuchst du nicht das Eingachste: die Logdatei exklusiv zu öffen. Das kann immer nur ein Programm, ein anderes muss es später nochmal versuchen.

Gruss Reinhard

[himitsu]

ohne Stream gehts genauso ... einfach versuchen die Datei exklusiv zu öffnen

Delphi-Quellcode:

AssignFile(F, LogFile);
FileMode := fmOpenReadWrite or fmShareExclusive;
{$I-}
Append(F);
WriteLn(F, S);
If IOResult <> 0 Then <<ging nich>>;
CloseFile(F);
{$I+}

tja und wenn's nich geht, dann halt 'ne Weile versuchen

Delphi-Quellcode:

AssignFile(F, LogFile);
FileMode := fmOpenReadWrite or fmShareExclusive;
Try
  Repeat
    {$I-} Append(F); {$I+}
    Sleep(10);
  Until IOResult = 0;
  WriteLn(F, S);
Finally
  CloseFile(F);
End;

soooo, und jetzt noch 'ne Zeitbegrenzung und so'n Zeugs rein ... fertsch (denk'sch ma)

Delphi-Quellcode:

Function AddLog(Const LogFile, S: String; TimeOut{ms}: LongWord = 3000): Boolean;
  Var F: TextFile;
    C: LongWord;
    M: Byte;

  Begin
    Result   := False;
    M        := FileMode;
    FileMode := fmOpenReadWrite or fmShareExclusive;
    AssignFile(F, LogFile);
    Try
      C := GetTickCount;
      While True do Begin
        {$I-} Append(F); {$I+}
        If IOResult = 0 Then Break;
        If GetTickCount - C > TimeOut Then Exit;
        //Application.ProcessMessages;
        Sleep(10);
      End;
      WriteLn(F, S);
      Result := True;
    Finally
      CloseFile(F);
      FileMode := M;
    End;
  End;

If not AddLog('a.log', 'irgendwas muß rein') Then Error...

OK, als WinAPI sieht's och nett aus ^^

Delphi-Quellcode:

Function AddLog(LogFile, S: String; TimeOut{ms}: LongWord = 3000): Boolean;
  Var H: THandle;
    C: LongWord;

  Begin
    Result := False;
    S      := S + #13#10;
    C      := GetTickCount;
    Repeat
      H := CreateFile(PChar(LogFile), GENERIC_WRITE, 0, nil, OPEN_ALWAYS, 0, 0);
      If H <> INVALID_HANDLE_VALUE Then Begin
        SetFilePointer(H, 0, nil, FILE_END);
        WriteFile(H, S[1], Length(S), C, nil);
        CloseHandle(H);
        Result := True;
        Exit;
      End;
      //Application.ProcessMessages;
      Sleep(10);
    Until GetTickCount - C > TimeOut;
  End;

[add]
ich sollt vielleicht ma weniger nebenbai chatten ... da is doch plötlich 'nen neuer Beitrag drin und sogar mit RedBox ^^

[edit]
immer diese Rechtschreibfehler

[MuTzE.Y85]

Zitat von himitsu:

OK, als WinAPI sieht's och nett aus ^^

Delphi-Quellcode:

Function AddLog(LogFile, S: String; TimeOut{ms}: LongWord = 3000): Boolean;
  Var H: THandle;
    C: LongWord;

  Begin
    Result := False;
    S      := S + #13#10;
    C      := GetTickCount;
    Repeat
      H := CreateFile(PChar(LogFile), GENERIC_WRITE, 0, nil, OPEN_ALWAYS, 0, 0);
      If H <> INVALID_HANDLE_VALUE Then Begin
        SetFilePointer(H, 0, nil, FILE_END);
        WriteFile(H, S[1], Length(S), C, nil);
        CloseHandle(H);
        Result := True;
        Exit;
      End;
      //Application.ProcessMessages;
      Sleep(10);
    Until GetTickCount - C > TimeOut;
  End;

Hey ich hab mal ne Frage.
Auf die Art und Weise habe ich noch nie in eine Datei geschrieben, daher die Frage.

Meine Logdatei hat vor jedem Zeichen einen NUL Charakter.
Ist das normal? Bzw. geht das mit der Funktion auch anders?
Sieht sehr bescheiden aus. Man kann quasi nix lesen.

[Lemmy]

Zitat von MuTzE.Y85:

Meine Logdatei hat vor jedem Zeichen einen NUL Charakter.
Ist das normal? Bzw. geht das mit der Funktion auch anders?
Sieht sehr bescheiden aus. Man kann quasi nix lesen.

hört sich nach einem Unicodeproblem an. Aber warum WinAPI? Gibt es dafür einen besitmmten Grund? Schau mal ob deine Delphiversion TStreamWriter unterstützt und wenn ja dann verwende das.. Wenn ich das richtig sehe wurde das mit Delphi 2010 eingeführt...

Grüße

[himitsu]

Die #0 stört nicht, aber dass der halbe Text fehlt ist vielleicht etwas schlimmer. (seit Delphi 2009)

Jupp, die bösen Jugendsünden bestrafen Einen immer wieder.
Einfach aus String ein AnsiString machen und aus #13#10 ein sLineBreak.

Und da wir "nette" Programmierer sind, wird auch noch aus GENERIC_WRITE, 0 ein GENERIC_WRITE, FILE_SHARE_READ.



Die WinAPI hatte hier den Vorteil, daß die Fehlerbehandlung etwas "sanfter" reagiert, also vorallem ohne Exceptions.

[MuTzE.Y85]

Nun, es musste natürlich wieder schnell gehen, und das hier hatte ich mit als erstes gefunden

Und da der Code von himitsu war, hab ich ihn genommen.


Aktuell nutze ich den Code hier von Luckie:

Delphi-Quellcode:

function WriteLog(LogFile, LogString: String): Integer;
var
  f: TextFile;
begin
{$IOCHECKS OFF}
  AssignFile(f, LogFile);
  if FileExists(LogFile) then
    Append(f)
  else
    Rewrite(f);
  Writeln(f, LogString);
  CloseFile(f);
  Result := GetLastError();
{$IOCHECKS ON}
end;

Welcher ist denn nun besser?
Wie shmia oben schreibt sollte man solchen Code heute nicht mehr nutzen, da es bessere Wege gibt.

Zur Erklärung:
Ich schreibe ein kleines Tool um Prime95 fernzusteuern und lasse alle 30 Sekunden die Kerntemperaturen speichern. Dafür brauche ich die Logfunktion

[Andreas H.]

Hallo,

nur so aus der Hüfte geschossen...

wenn das exklusive Öffnen nix is, dann vielleicht nen kleinen Server aufsetzen, in dem per POST oder so die Logmeldungen gesendet werden. Ist natürlich aufwendiger, als "nur" ne Prozedur zu schreiben. Dann wäre auch das Dateiformat und der Speicherort gekapselt.

Vielleicht läuft ja schon ein Apache oÄ. And ein paar Zeilen PHP...

Aber wenn denn schon von verschiedenen Programmen auf verschiedenen Rechnern Logmeldungen zentral gesichert werden sollen...

Gruß Andreas

[peschai]

Hallo
ich hätte auch noch eine grundsätzliche idee:
Parallele schreibzugriffe schreiben in temporäre weitere neue log's, welche beim nächsten schreibzugang wieder zusammengeführt werden. Die weiteren templogs', welche es nur gab, weil das Hauptlog gesperrt war, leben nur so lange, wie der nächste schreibzugriff erfolgt. Wer also das Hauptlog exclusiv öffnen kann, muss zuerst die anderen templogs auslesen und reinschreiben, dann diese templogs löschen und dann erst seine eigenen Sachen eintragen ...

was meint ihr ?

[peschai]

Noch etwas zum EventLog des Betriebssystem. Das ist eigentlich fürs betriebssystem nahe Applikationen. Wenn da jeder seinen Müll reinwirft, dann hat es ein Admi wirklich schwer...
Tip das Eventlog für eigene Programme NICHT verwenden! Besser eine Logdatei abgelegt unter "Einstellungen und Dokumente" ...