Objekte in der richtigen Reihenfolge freigeben

[Rainer Wolff]

Hallo,

ich verwende in meinem Projekt ein Modul zum Meldungen mitloggen. Dieses Logging ist als Singleton implementiert, der beim ersten Zugriff initialisiert wird.
Freigegeben wird die Klasse im finalization-Abschnitt, und da liegt gerade mein Problem: Die Klasse wird freigegeben, danach wird in einer anderen Unit noch eine Log-Meldung ausgegeben und es kommt zur Zugriffsverletzung.

Wie löst ihr so ein Problem? Soweit ich mich informiert habe, legt der Compiler die Reihenfolge der finalization fest, so dass ich darauf nur eingeschränkt Einfluss habe.
Das Singleton als Interface einbauen und somit die Speicherverwaltung an Delphi abdrücken?
Alle Meldungen, die nach der finalization kommen, ignorieren (nicht so gut)?
Oder was gibt es sonst für Möglichkeiten?

Gruß Rainer

[SirThornberry]

Du könntest im finalization die Instanz auf nil setzen und in deiner Logfunktion prüfen ob die Instanz <> nil ist.

[himitsu]

Zitat von Rainer Wolff:

Soweit ich mich informiert habe, legt der Compiler die Reihenfolge der finalization fest, so dass ich darauf nur eingeschränkt Einfluss habe.

Alle Units, welche im Interface-Abschnitt eingebunden sind werden immer vor "initialization" der eigenen Unit initialisiert und nach "finalization" finalisiert.

Wenn du eine Unit im Implementation-Abschitt einbindest, dann kann diese Unit eventuell erst nach "initialization" initialisiert, bzw. vor "finalization" finalisiert werden
und man sollte daher dort nicht (ohne Prüfung) auf globale Objekte zugreifen.


Also indirekt hast du schon etwas Einfluß, auf die Reihenfolge.

[Rainer Wolff]

Zitat von SirThornberry:

Du könntest im finalization die Instanz auf nil setzen und in deiner Logfunktion prüfen ob die Instanz <> nil ist.

Hab ich temporär so schon implementiert, aber: Dann ist zwar die Zugriffsverletzung weg, aber es werden halt auch keine Meldungen mehr geloggt.

@Himitsu: Innerhalb einer einzelnen Unit wäre das Problem wohl so zu lösen, aber die Logfunktion ist ja so breit über viele verschiedene Units gestreut, dass die Kontrolle auf diesem Weg schwierig wird.

[himitsu]

Zitat von Rainer Wolff:

Zitat von SirThornberry:

Du könntest im finalization die Instanz auf nil setzen und in deiner Logfunktion prüfen ob die Instanz <> nil ist.

Hab ich temporär so schon implementiert, aber: Dann ist zwar die Zugriffsverletzung weg, aber es werden halt auch keine Meldungen mehr geloggt.

Tja, wenn das Logging-Objekt freigegeben ist, dann kann man natürlich nix mehr loggen.

Als eine Alternative bliebe noch eine statisch eingebundene DLL, in welcher das Logging abläuft.
Diese DLL wird auf jedenfall erst nach allen deinen Unis entladen.

Oder du machst es so, daß, sobald das Logging schon freigegeben wurde, dieses nochmal kurz erstellt, der Eintrag eingetragen und dann gleich wieder freigegeben wird.

[stahli]

Zitat von himitsu:

Alle Units, welche im Interface-Abschnitt eingebunden sind werden immer vor "initialization" der eigenen Unit initialisiert und nach "finalization" finalisiert.

Ich denke, die Aussage stimmt LEIDER nicht. Ich habe das hier schon einmal nachgefragt.
Dass alternative Lösungen möglich sind ist schon klar, aber die Initialisierungsreihenfolge von Units kann man m.E. nicht erzwingen.

[Klaus01]

Hallo,

vielleich kannst Du das Singleton auch so aufbauen:

Delphi-Quellcode:

 TLogger = class(TObject)
    private
      messageList : TThreadStringList;
      constructor create;
    public
      destructor Destroy; override;
      procedure push(s: AnsiString);
      function pop:AnsiString;
      function stackCount : Word;
      class function getInstance:TLogger;
  end;

implementation


var
  singleInstanceLogger : TLogger;


constructor TLogger.create;
begin
  inherited create;
  messageList := TThreadStringList.create;
end;

destructor TLogger.Destroy;
begin
  freeAndNil(MessageList);
  inherited destroy;
end;

class function TLogger.getInstance:TLogger;
begin
  if singleInstanceLogger = nil then
    singleInstanceLogger := Tlogger.create;

  result := singleInstanceLogger;
end;

Edit: Es vielleicht etwas zu kurz gegriffen, denn wenn zwischen dem destroy und der Ausgabe von Meldungen
kein getInstance mehr aufgerufen wird, knallt es auch hier...


Grüße
Klaus

[Rainer Wolff]

@Klaus: Vielleicht stehe ich noch auf der Leitung, aber:
Wo und wodurch wird dein Singleton denn wieder freigegeben, denn die Freigabe ist ja mein Problem.

Rainer

[Klaus01]

..freigeben kann man es mit freeAndNil(LoggerInstance) oder LoggerInstance.free.

Aber wie ich im Nachtrag meines Beitrages bereits gesagt habe, greift das zu kurz.

Oder du müsstes vor jeder LogMeldung loggerInstance := TLogger.getInstance aufrufen,
dann wird gegebenenfalls eine Instanz erzeugt oder die bereits bestehende übergeben.

Freigeben kannst Du sie dann in jedem finalization Abschnitt einer jeden Unit.
Oder in dem finalization Abschnitt der letzten Unit.

Zitat:

Finalization sections are executed in the opposite order from initialization sections. For example, if your application initializes units A, B, and C, in that order, it will finalize them in the order C, B, and A.

Quelle: Hilfe aus TurboDelphi

Grüße
Klaus