mehrere Formular-DLL laden/entladen

[Memo]

Hallo,

ich habe ein kleines Demo-Projekt mit Luckies Code http://www.michael-puff.de/Programmi...ormInDLL.shtml zusammengestellt um das Problem zu erklären.
In dem Formular sind 2 Buttons, die jeweils eine Formular-DLL laden.
Also folgende Reihenfolge:
-Button1 drücken, lädt Form1
-Button2 drücken, lädt Form2
-Form1 beenden, beendet nicht, wie zu erwarten, Form1 sondern Form2

Es wird, egal welche DLL zuerst aufgerufen wird, immer in umgekehrter Reihenfolge des Ladevorgangs enladen.

Delphi-Quellcode:

{-----------------------------------------------------------------------------
 Project:     Formular in DLL
 Description: Aufruf eines Formulares aus einer DLL
 Author:      Michael Puff, http://michael-puff.de
 Date:        2011-12-22
-----------------------------------------------------------------------------}

...

procedure TForm1.btn1Click(Sender: TObject);
type
  TShowForm = procedure; stdcall;
var
  DLLForm1: THandle;
  ShowForm: TShowForm;
begin
  DLLForm1 := LoadLibrary('c:\Test\Form1.dll');
  if DLLForm1 <> 0 then
  begin
    @ShowForm := GetProcAddress(DLLForm1, 'Form1Anzeigen');
    if Assigned(ShowForm) then
    begin
      ShowForm;
      FreeLibrary(DLLForm1);
    end
    else
      ShowMessage(SysErrorMessage(GetLastError));
  end
  else
    ShowMessage(SysErrorMessage(GetLastError));
end;

procedure TForm1.btn2Click(Sender: TObject);
type
  TShowForm = procedure; stdcall;
var
  DLLForm2: THandle;
  ShowForm: TShowForm;
begin
  DLLForm2 := LoadLibrary('c:\Test\Form2.dll');
  if DLLForm2 <> 0 then
  begin
    @ShowForm := GetProcAddress(DLLForm2, 'Form2Anzeigen');
    if Assigned(ShowForm) then
    begin
      ShowForm;
      FreeLibrary(DLLForm2);
    end
    else
      ShowMessage(SysErrorMessage(GetLastError));
  end
  else
    ShowMessage(SysErrorMessage(GetLastError));
end;

Weiß jemand Rat?

[Der schöne Günther]

Spontan wäre es mir jetzt sehr unheimlich die Dll gleich wieder nach dem Ausführen einer Funktion (mit ihrer von der Hauptanwendung unabhängigen VCL) gleich wieder rauszuwerfen. Warum machst du direkt wieder ein FreeLibrary ?

Was ist, wenn man das auf "später" vertagt, ändert das etwas?

Ich sitze zufälligerweise an einem sehr ähnlichen Projekt (mehrere verschiedene dlls die auch (nach Anfrage) mehrere Formen erzeugen und anzeigen), allerdings nehme ich die auch erst wieder aus dem Speicher, wenn wirklich alles zu Ende ist. Und da wird auch alles geschlossen wie es sollte...

[Memo]

Zitat von Der schöne Günther:

Was ist, wenn man das auf "später" vertagt, ändert das etwas?

Nein.
FreeLibrary wird erst ausgeführt, wenn das Formular geschlossen wird. Aber hier sieht man schön im Debugger, das in der falschen Procedure weiter gemacht wird.

[peterlepan]

ShowForm sind zwar zwei lokale Variablen, vielleicht löst der Compiler da irgendetwas falsch auf, probier mal die beiden mit ShowForm1 und ShowForm2 zu bezeichnen.

[Der schöne Günther]

Mir ist es immer noch zu gruselig, direkt dahinter ein FreeLibrary . Was gibt der Aufruf denn zurück?

[Memo]

Zitat von peterlepan:

probier mal die beiden mit ShowForm1 und ShowForm2 zu bezeichnen.

Hat leider nicht gewirkt.

Zitat:

Mir ist es immer noch zu gruselig, direkt dahinter ein FreeLibrary..

Das hat mit der Problematik nichts zu tun und ist kein Fehler.

Zitat:

Was gibt der Aufruf denn zurück? .

Es wird eine Formular-Dll erzeugt, es wird nichts zurückgegeben.

[peterlepan]

Hast Du die Formular mal einzeln ausprobiert? Und wie sieht die FormAnzeigen-Methode in der DLL genau aus?

[Memo]

Ich habe mal ein Testprojekt angehängt.

[Der schöne Günther]

Ich habe (bislang) nicht verstanden, wozu das Application -Objekt eigentlich gut ist. Deshalb habe ich es in deinem Testprojekt einmal so abgeändert, wie ich es bei mir tue:

1. In der Dll die Form mittels TForm.Create() erzeugen und anschließend anzeigen
2. Mehr nicht - Die Methode ist hier zuende.
3. In der Hauptanwendung nicht gleich direkt mit FreeLibrary die dll wieder rauswerfen

Und es geht - Die Fenster werden so geschlossen, wie man auch draufklickt.



PS:

Zitat von Memo:

Zitat:

Was gibt der Aufruf denn zurück? .

Es wird eine Formular-Dll erzeugt, es wird nichts zurückgegeben.

Damit meinte ich den Rückgabewert von FreeLibrary

[Memo]

Zitat von Der schöne Günther:

In der Dll die Form mittels TForm.Create() erzeugen und anschließend anzeigen
Und es geht - Die Fenster werden so geschlossen, wie man auch draufklickt.

Kannst Du mal ein dpr-File einer DLL zeigen? Einfach nur TForm.Create() reicht ja nicht.