Guten Morgen!
In meinem Projekt nutze ich von den JEDIs die JvLogFile. Allerdings wirft die mir sporadisch einen Fehler beim Programmstart (Siehe Anhang).
Im FormCreate lege ich den Pfad für das Logfile fest und aktiviere die Komponente.
Delphi-Quellcode:
procedure TMainform.FormCreate(Sender: TObject);
var
path:
Array[0..MAX_PATH]
of Char;
begin
SHGetFolderPath(0, CSIDL_COMMON_APPDATA, 1, 0, @path[0]);
commonAppDataPath := path+'
\Run Automation\BDE\';
JvLog.FileName := commonAppDataPath+'
log.txt';
JvLog.Active := true;
JvLog.AutoSave := true;
JvLog.Add('
SYSTEM', '
Programm gestartet');
...
end;
Der Fehler passiert an dieser Stelle beim Speichern.
Delphi-Quellcode:
procedure TJvLogFile.SaveToFile(FileName: TFileName);
var
Stream: TFileStream;
begin
Stream := TFileStream.Create(FileName, fmCreate or fmShareExclusive); // <-- Hier kracht es!
try
SaveToStream(Stream);
finally
Stream.Free;
end;
end;
Die Datei ist allerdings nirgends sonst geöffnet. Kennt das Problem jemand? Oder besser: Kennt jemand eine Lösung?
Gruß
