AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Algorithmen, Datenstrukturen und Klassendesign Delphi Richtiges Beenden/Freigeben einer (Delphi) DLL
Thema durchsuchen
Ansicht
Themen-Optionen

Richtiges Beenden/Freigeben einer (Delphi) DLL

Ein Thema von OlliWW · begonnen am 21. Jun 2022 · letzter Beitrag vom 21. Jun 2022
Antwort Antwort
OlliWW

Registriert seit: 31. Aug 2011
159 Beiträge
 
#1

Richtiges Beenden/Freigeben einer (Delphi) DLL

  Alt 21. Jun 2022, 14:31
Hallo Zusammen,

Ich habe eine kleine Anwendung (in Delphi) geschrieben, die eine DLL aufruft:

Delphi-Quellcode:
   Handle := LoadLibrary('MeineDLL.dll');
   if Handle <> 0 then
   begin
     try
        @dllinit := GetProcAddress(Handle, 'dllInit');
        if Assigned(dllinit) then
        begin
          dllinit;
        end;
     finally
     end
   end;
Wenn ich die Anwendung beende rufe ich im Destroy noch das FreeLibrary auf:
FreeLibrary(Handle); Die DLL macht eigentlich nichts, außer in der Prozedur "dllInit" einen Logger zu initialisieren (ich habe es mit verschiedenen Loggern ausprobiert: Quicklogger, LoggerPro):
Delphi-Quellcode:
logger := TLoggerProFileAppender.Create(5, 10000, '.\log');
  Log := BuildLogWriter([logger]);
Logger und Log sind global deklariert:
Delphi-Quellcode:
    logger: TLoggerProFileAppender;
    Log: ILogWriter;
Wenn ich nun meine Anwendung starte, wird die DLL geladen, der Logger initialisiert und alles ist gut. Beende ich nun die Anwendung, bekomme ich eine Access Violation:
Code:
Erste Gelegenheit für Exception bei $78BE215B. Exception-Klasse $C0000005 mit Meldung 'access violation at 0x78be215b: access of address 0x78be215b'. Prozess Project2.exe
$C0000005 ist meines Erachtens ein Fehler bei dem von einer fremden Anwendung (Anwendung) auf fremden Speicher (DLL) zugegriffen werden soll.

Ich nehme an, dass das Freigeben der DLL das Finalization von verwendeten Units auslöst und dass das dafür sorgt, dass Windows denkt, hier greift jemand fremdes auf meinen DLL Speicher zu.

Ich habe das nun mit verschiedenen Units ausprobiert. Ich habe noch die Vermutung, dass es mit Units zusammenhängen KÖNNTE, die einen Thread besitzen (alle diese Logger probiere ich nämlich aus, um einen Threadsafen Logger zu haben).

Hat jemand eine Idee, wie ich das sauber lösen kann? Es geht mir hier nicht um das Logging Problem, das ist nur die Stelle, womit ich es am besten nachvollziehen kann.

Ich habe auch schon eine uses auf System.SimpleShareMem eingebaut, das hat aber auch nicht geholfen. Irgendwie müsste ich der DLL sagen können, dass sie sich selbst beenden soll und danach erst das FreeLibrary aufrufen.

Viele Grüße
Olli
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: Richtiges Beenden/Freigeben einer (Delphi) DLL

  Alt 21. Jun 2022, 14:42
Hast du mal probiert dass FreeLibrary testweise in ein FormClose o.ä. zu packen um ein/auszuschließen dass es am finalization liegt?
Dann seh ich in deiner DLL ein Interface. Da gibt es auch einige Möglichkeiten ins Fettnäpfchen zu treten.
Wie gibst du denn deine Objekte in der DLL frei?

$C0000005 ist übrigens nur der interne Code für Zugriffsverletzungen.
Die meisten deiner Vermutungen sind denke ich falsch. DLL und Anwendung teilen sich einen Speicher.
Da sieht Windows selbst erst mal keinen Unterschied.

PS: Dein try-finally oben bewirkt rein gar nichts wenn das finally leer ist.
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."

Geändert von Neutral General (21. Jun 2022 um 14:44 Uhr)
  Mit Zitat antworten Zitat
OlliWW

Registriert seit: 31. Aug 2011
159 Beiträge
 
#3

AW: Richtiges Beenden/Freigeben einer (Delphi) DLL

  Alt 21. Jun 2022, 14:48
Hast du mal probiert dass FreeLibrary testweise in ein FormClose o.ä. zu packen um ein/auszuschließen dass es am finalization liegt?
Ich hab das FreeLibrary mal zum testen in einen Button gelegt: Gleiches Phänomen.
Ich kann die DLL noch soweit debuggen, dass ich sehe dass der Finalization teil der DLL getriggert wird (wenn ich ihn implementiere). Das heisst, von meinem Verständnis läuft es wie folgt:

Anwendung: FreeLibrary
DLL: finalization der dll methoden
DLL: finalization der verwendeten units
DLL: <crash...in einer der verwendeten units>

Der Code funktioniert außerhalb einer DLL übrigens ohne Probleme, Memory Leaks etc. Alles was meine DLL ja macht, ist den Logger eine Drittkomponente zu initialisieren.

PS: Dein try-finally oben bewirkt rein gar nichts wenn das finally leer ist.
Ist nur "test code", kein sauber aufgeräumter Code. Ich habe mir nur schnell ein Testprogramm für den DLL Call geschriebnen um andere Seiteneffekte ausschließen zu können.
  Mit Zitat antworten Zitat
Benutzerbild von Sinspin
Sinspin

Registriert seit: 15. Sep 2008
Ort: Dubai
677 Beiträge
 
Delphi 10.3 Rio
 
#4

AW: Richtiges Beenden/Freigeben einer (Delphi) DLL

  Alt 21. Jun 2022, 14:56
$C0000005 ist meines Erachtens ein Fehler bei dem von einer fremden Anwendung (Anwendung) auf fremden Speicher (DLL) zugegriffen werden soll.

Ich nehme an, dass das Freigeben der DLL das Finalization von verwendeten Units auslöst und dass das dafür sorgt, dass Windows denkt, hier greift jemand fremdes auf meinen DLL Speicher zu.
Zuviele unbekannte. $C0000005 ist ein Nullpointer Fehler. Wie und warum hier in dem Fall kann nur ein detailierter Fehlerreport sagen.

Ich habe noch die Vermutung, dass es mit Units zusammenhängen KÖNNTE, die einen Thread besitzen
Es wird wärmer...

Irgendwie müsste ich der DLL sagen können, dass sie sich selbst beenden soll und danach erst das FreeLibrary aufrufen.
Gute Idee!
Zu DllInit kommt noch DllShutdown, was dafür sorgt dass alles was läuft auch beendet wird und ist(!) bevor die dll entladen wird.
Stefan
Nur die Besten sterben jung
A constant is a constant until it change.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.623 Beiträge
 
Delphi 12 Athens
 
#5

AW: Richtiges Beenden/Freigeben einer (Delphi) DLL

  Alt 21. Jun 2022, 14:58
Könnte es etwas ähnliches sein? https://www.delphipraxis.net/189047-[erledigt]-interface-aus-dll-per-latebinding-freelibrary-toedlich.html
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
OlliWW

Registriert seit: 31. Aug 2011
159 Beiträge
 
#6

AW: Richtiges Beenden/Freigeben einer (Delphi) DLL

  Alt 21. Jun 2022, 15:10
Ja ich glaube das ist exakt mein Problem.

Ich habe nämlich auch vor ein PluginSystem zu bauen bzw. bin (bis auf dieses Problem) schon fertig. Auf das Problem bin ich auch nur gestoßen weil das ganze als Dienst läuft, der sich automatisch aktualisiert. Beim aktualisieren passiert folgendes:
Dienst beendet sich, Dienst startet sich neu, liefert die neuen DLLs aus (hängen als Resource dran) und läd die DLLs.

Mein Problem dabei ist nur, dass die DLLs beim beenden des Dienstes zu langsam freigegeben werden, wenn man FreeLibrary nicht nutzt, weswegen die DLLs beim Dienst-Neustart nicht überschrieben werden können.

Aber gut, dann denke ich nutze ich deine Lösung: Ich ignoriere FreeLibrary einfach und löse das andere Problem durch einen "Abwarten" Timer

Vielen Dank!
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#7

AW: Richtiges Beenden/Freigeben einer (Delphi) DLL

  Alt 21. Jun 2022, 15:14
Aber was ist denn da (und hier) letztendlich rein technisch das Problem (gewesen)?
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
OlliWW

Registriert seit: 31. Aug 2011
159 Beiträge
 
#8

AW: Richtiges Beenden/Freigeben einer (Delphi) DLL

  Alt 21. Jun 2022, 15:16
Dass FreeLibrary dazu führt, dass ich mit Zugriffsverletzungen zugeworfen werde.

Da will man ordentlich sein dann ists auch nicht gut
  Mit Zitat antworten Zitat
Benutzerbild von Sinspin
Sinspin

Registriert seit: 15. Sep 2008
Ort: Dubai
677 Beiträge
 
Delphi 10.3 Rio
 
#9

AW: Richtiges Beenden/Freigeben einer (Delphi) DLL

  Alt 21. Jun 2022, 15:35
Wo steht da dass FreeLibrary Fehler zuwirft?
Das ist Unsinn. Ich verwende FreeLibrary für meine Plugins und es knallt nie.
Jedes meiner Plugins hat Fenster und Threads. Alles wird ordentlich aufgeräumt und dann wird die Dll freigegeben. Das funzt.
Stefan
Nur die Besten sterben jung
A constant is a constant until it change.
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#10

AW: Richtiges Beenden/Freigeben einer (Delphi) DLL

  Alt 21. Jun 2022, 16:15
Dass FreeLibrary dazu führt, dass ich mit Zugriffsverletzungen zugeworfen werde.

Da will man ordentlich sein dann ists auch nicht gut
Ja, aber warum? Das bedeutet immer noch, dass in deinem Code was verkehrt ist.
Du kannst grundsätzlich davon ausgehen, dass Windows API funktionen fehlerfrei* sind.

*) Was ist schon fehlerfrei. Aber in 99,99% aller Fälle liegt es nicht an der Windows API, sondern am Programmierer.
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz