mehrere Formular-DLL laden/entladen

[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.

[Der schöne Günther]

Hallo -

Ich habe nur eine (bzw zwei) Zeilen hinzugefügt:

Delphi-Quellcode:

library Formular1;


uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

procedure Form1Anzeigen(parameter:Integer); stdcall;
begin

   TForm1.Create(nil).Show(); // <-------------
   Exit();
   

  try
  Application.CreateForm(TForm1, Form1);

  Application.Run;
  finally
   Form1.Free;
  end
end;

exports
  Form1Anzeigen;

end.

Bislang fehlen der dll dann natürlich noch die Methoden um die Form evtl. wieder zu verstecken und zu zerstören. Und natürlich sollte man sich die Form nicht anonym erzeugen sondern halt noch irgendwo merken (um sie dann später vernünftig wieder vom Speicher nehmen zu können) und sich noch Gedanken machen, was passieren soll, wenn "von außen" die Erstellung einer Form angefordert wird, aber schon eine da ist (z.B. alte vorher schließen und zerstören).
Ob sich da dieses Application -Objekt selbst drum gekümmert hätte weiß ich nicht.