"Too many consecutive exceptions" beiVerwendung von DLL-Form

[alcaeus]

Hallo allerseits,

in meinem Programm verwende ich DLLs fuer einzelne Module. Diese DLLs exportieren jeweils eine Form, welche ich zur Laufzeit lade.
Wenn ich nun das Programm beende, erhalte ich immer folgende Fehlermeldung:

Zitat:

Project D:\...\NAMP.exe raised too many consecutive exceptions: 'access violation at 0x01147dc2: read of address 0x00000014'. Process Stopped. Use Step or Run to continue.

Hier mal ein bisschen Code damit das Ganze verstaendlich wird. Die einzelnen Forms speichere ich in einer ObjectList:

Delphi-Quellcode:

//Load modules
Modules := TObjectList.Create(False);

DLLHandle := LoadLibrary(PChar(IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName))+'TestModule.dll'));
if DLLHandle = NULL then
begin
   ShowMessage('Could not load DLL');
   Application.Terminate;
end; //if DLLHandle = 0 then

ProcAddr := GetProcAddress(DLLHandle, PChar('GetDLLFrm'));
if ProcAddr = nil then
begin
   ShowMessage('Invalid DLL');
   Application.Terminate;
end; //if ProcAddr = nil then

Modules.Add(TGetDLLFrm(ProcAddr));
with TForm(Modules.Items[0]) do
begin
   Languages.SetFormLanguage(LangIndex, TForm(Modules.Items[0]));
   Parent := bxapMain;
   Align := alClient;
   BorderStyle := bsNone;
   Visible := True;
end; //with Modules.Items[0] do

Die Verwendung funktioniert ganz normal. Im OnDestroy des Mainforms mache ich folgendes:

Delphi-Quellcode:

for i := Modules.Count-1 downto 0 do
begin
   TForm(Modules.Items[i]).Free;
   Modules.Delete(i);
end; //for i := Modules.Count-1 downto 0 do
Modules.Free;
FreeLibrary(DLLHandle);

DLLHandle ist ein private-Member der Formklasse, genau wie Modules. Nach dem Aufruf von FreeLibrary bekomme ich allerdings den oben beschriebenen Fehler. Kann mir jemand helfen?

Thanx and Greetz
alcaeus

[Sanchez]

Hallo Alki,

Ich würde den Fehler in der DLL suchen. Den selben hatte ich mal beim Versuch, Formulare aus DLLs als MDI-Childs in ein MDI-App einzubinden.

grüße, daniel

[alcaeus]

Zitat von Sanchez:

Ich würde den Fehler in der DLL suchen. Den selben hatte ich mal beim Versuch, Formulare aus DLLs als MDI-Childs in ein MDI-App einzubinden.

Und was war der Grund fuer den Fehler? Die DLL ist eigentlich sehr klein:

Delphi-Quellcode:

library TestModule;

uses
   ShareMem,
   SysUtils,
   Classes,
   Forms,
   DLLFrm in 'DLLFrm.pas' {frmDLL};

{$R *.res}

function GetDLLFrm: TForm;
begin
   Application.CreateForm(TfrmDLL, Result);
end;

exports
   GetDLLFrm;

begin
end.

Das DLL-Form ist noch kleiner. Muss ich die Kompos auf dem Form der DLL etwa explizit freigeben?

Greetz
alcaeus

[roderich]

hallo Alcaeus,

ich schliesse zuerst alle Forms, die aus DLL's kommen, bevor ich sie freigebe.
Bin mir zu 83% sicher, daß es dann auch bei dir funktioniert......

Roderich

[shmia]

Die Variable SysInit.HInstance deiner Anwendung und HInstance deiner DLL unterscheiden sich!!!
Das ist die Ursache mancher Probleme mit Formularen in DLLs.

Nachtrag:
damit die Formulare deiner Anwendung und die Formulare aus deiner DLL zusammenfinden, muss man wahrscheinlich die Procedure SysInit._InitLib aufrufen.
Wenn die DLL mit LoadLibrary geladen wird, kann passiert dies sicher nicht.

[alcaeus]

Zitat von shmia:

Die Variable SysInit.HInstance deiner Anwendung und HInstance deiner DLL unterscheiden sich!!!
Das ist die Ursache mancher Probleme mit Formularen in DLLs.

Danke. Und jetzt bitte nochmal langsam so dass ich es auch verstehe?
Zu Deutsch: was muss ich dann machen dass es funktioniert. Ich hab versucht ein Close fuer das DLL-Form aufzurufen, aber das hats auch nicht gebracht. Der laeuft irgendwie immer gegen eine Wand

Greetz
alcaeus

[shmia]

Zitat von alcaeus:

Zitat von shmia:

Die Variable SysInit.HInstance deiner Anwendung und HInstance deiner DLL unterscheiden sich!!!
Das ist die Ursache mancher Probleme mit Formularen in DLLs.

Danke. Und jetzt bitte nochmal langsam so dass ich es auch verstehe?

Na ja, Formulare in DLL zu stecken ist eigentlich ziemlich Banane.
Grund: der Programmcode aus den Units Forms, Controls, SysInit, System,... existiert nun zweimal; einmal im Programm und einmal in der DLL.
Es existieren auch 2 Versionen der RTTI (Runtime Type Info), die keine Verbindung zueinander haben.
Ebenso existieren globale Objekte/Variablen wie Application und Screen 2mal.
Nach LoadLibrary ist die VCL aus der DLL nicht initialisiert.

Wenn man dagegen ein Package ladet, sorgt Delphi dafür, dass das Package initialisiert wird und die
Klassen registriert werden.
http://www.obsof.com/delphi_tips/DL613.html

Bei einer DLL muss man selbst Hand anlegen.
Dazu existieren im Netz unterschiedliche Empfehlungen. Es geht darum, dass Variablen in der DLL auf den Wert der Hauptanwendung gesetzt werden.

Delphi-Quellcode:

// Das Hauptprog übergibt der DLL seine globalen Objekte
procedure SetupDLL(app:TApplication; scr:TScreen); stdcall;
begin
   oldapp := Application;
   oldscreen := Screen;
   Application := app;
   Screen := scr;
end;
procedure UnsetupDLL(app:TApplication; scr:TScreen); stdcall;
begin
   Application := oldapp;
   Screen := oldscreen;
end;

Auch die Variable HInstance spielt eine wichtige Rolle.
Wie man es aber wirklich richtig macht, habe ich noch nicht herausgefunden;
deshalb lasse ich einfach die Finger von DLLs, die Formulare anbieten.

[alcaeus]

...

...


So, geht besser. Sieht so aus als haette ich mit der ObjectList irgendwo einen Bloedsinn verzapft. Ich hab jetzt versucht, das Ding direkt in einer TForm-Variable zu speichern, und siehe da, es geht. Mal sehn wie ich das dann am Besten loesen kann.

Danke fuer eure Hilfe

Greetz
alcaeus