Zitat:
... in Windows ist halt so, dass alle Handles und etc. freigegeben werden, wenn der Prozess terminiert ist.
Wird wohl da so ähnlich sein.
Das wäre ja das gewünschte Verhalten
Ich versuche im Moment mit einem class destruktor zu Testen,
der sollte so einigermaßen am Schluss gefeuert werden (hoffentlich auch beim Crash).
Delphi-Quellcode:
class destructor TLog_Base.Destroy;
begin
DestroyFileBuffer;
end;
class procedure TLog_Base.DestroyFileBuffer;
begin
if Assigned( FFileStream ) then
begin
SendViaFile( '<==== FILE BUFFER DESTROYED' );
FFileStream.FlushBuffer;
FFileStream.Free;
end;
end;
Sehe ich das '<==== FILE BUFFER DESTROYED' im Log hats funktioniert.
So weiss ich wenigstens ob ich bis zum ende gelogged habe.