Event beim Entladen einer DLL?

[sko1]

Hallo,

in einer DLL werden einige TStringList beim Abarbeiten von DLL-Funktionen global erzeugt (z.B. ein Errorlog) welches dann nach Abarbeitung ausgelesen werden soll.

ReportMemoryLeaksOnShutdown bemeckert eben genau diese TStringLists nur fehlt mir irgendwie der Ansatz, wie ich diese wieder zerstören kann?

Die DLL wird statisch geladen, mehrere Funktionen daraus aufgerufen, dann ggf. das Errorlog gelesen und dann das Programm beendet.

Ciao
Stefan

[TiGü]

Wie werden die denn global erzeugt?
In einen initialization-Abschnitt?
Hast du probiert, diese in einen finalization-Abschnitt freizugeben?

[sko1]

Nein, die Erzeugung passiert momentan im DLL-Procedure-Aufruf ala

Delphi-Quellcode:

 
 if ErrorLog = Nil then
    ErrorLog := TStringList.Create
  else
    ErrorLog.Clear;

danke für den Tip mit dem initialization-Abschnitt, aber wie geht das in einer DLL?

Ciao
Stefan

[TiGü]

Zitat von sko1:

danke für den Tip mit dem initialization-Abschnitt, aber wie geht das in einer DLL?

Genauso wie in einer normalen Anwendung.

[himitsu]

Initialize und Finalize der Units funktionieren sowohl in EXE , als auch DLL.
Ebenso Class-Contructor und Class-Destructor.

BEGIN in der DPR (EXE/DLL) entspricht der InitProc/DLLMain, also in etwa dem letzten Initialize (nach allen Units)
Es gibt auch noch eine ExitProc, aber die ist in Delphi nicht so schön nutzbar. (System.ExitProc)

[Zacherl]

Alternativ kann man auch noch die DllMain austauschen:

Delphi-Quellcode:

var
  DLLProcNext: procedure(Reason: Integer);

procedure DLLMain(Reason: Integer);
begin
  case Reason of
    DLL_PROCESS_ATTACH: ;
    DLL_THREAD_ATTACH : ;
    DLL_THREAD_DETACH : ;
    DLL_PROCESS_DETACH: ;
  end;
  if Assigned(DLLProcNext) then DLLProcNext(Reason);
end;

begin
  DLLProcNext := TInterlocked.Exchange(@DLLProc, @DLLMain);
  DLLMain(DLL_PROCESS_ATTACH);
end.

In deinem Falle sollte finalization aber ausreichend sein.

[sko1]

Danke für all die Hinweise, jetzt tut die DLL was sie soll (zumindest fast) denn ich bekomme immer noch ein kleines Memoryleak:

21 - 28 bytes : TMBSEncoding x 1

Wo zum Teufel kommt das her?

Ciao
Stefan