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.
