Formulare als Datei speichern und zur Laufzeit laden? Wie?

[Dani]

Hallo

Ich möchte ein im Designer estelltes Formular inklusive aller Komponenten, Methoden, Eigenschaften, Ereignissen usw. in compilierter Form in einer Datei speichern. Diese Datei soll nachher sozusagen als Plugin von einer Übergeordneten Anwendung geladen werden, sodass wieder Instanzen des Formulars erzeugt werden können. Konkret handelt es sich um MDI-Childs. Der Inhalt der Plugin-Formulare soll aber völlig beliebig sein.

Lässt sich sowas mit BPL-Packages erledigen? Falls ja, wie speichere/lade ich ein Formular in/aus einer BPL-Datei?

[Dani]

Okay, wie man ein Form in einem Package speichert, ist klar... aber wie lädt man das jetzt dynamisch zur Laufzeit? Sorry, ich steh total auf dem Schlauch

LoadPackage() gibt ein Handle zurück, mit dem kann ich aber nichts anfangen.

[Bernhard Geyer]

Vieleicht hilft dir das:

Dynamische Laden von packages funktioniert nicht
Packages, alles oder nichts ?

[Dani]

Jau, danke! Werde erstmal eine Weile brauchen, um das zu verstehen

[Dani]

Hallo nochmal,

ich hätte da gerne mal ein Problem.
Aus einem mir verborgenem Grund findet FindClass() die modulare Formklasse nicht, obwohl sie im initialization-Abschnitt der Package-Unit mit RegisterClass registriert wird. Hier der Code:

Form laden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 aClass: TClass;
 frmMod: TForm;
begin
  aClass := nil;
  // Package laden
  LoadPackage('Package1.bpl');
  // Klasse finden
  aClass := FindClass('TModuleForm');
  // Instanz erzeugen
  If Assigned(aClass) then
   begin
    frmMod := TFormClass(aClass).Create(self);
    frmMod.Show;
   end;
end;

Unit in Package:

Delphi-Quellcode:

unit uMod1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TModuleForm = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

implementation

{$R *.dfm}

procedure TModuleForm.Button1Click(Sender: TObject);
begin
 close;
end;

initialization
 RegisterClass(TModuleForm);
finalization
 UnRegisterClass(TModuleForm);

end.

Woran könnte das liegen?

[Dani]

Hmm... wenn ich den initialization-Abschnitt so verändere...

Delphi-Quellcode:

initialization
begin
 Windows.Beep(500, 100);
 RegisterClass(TModuleForm);
 FindClass('TModuleForm');
end;

...gibts hier bei FindClass keine Exception. Hat das damit zu tun, dass der Aufruf von FindClass in einer anderen Unit statt findet? Sollte RegisterClass die Klasse nicht für die gesamte Anwendung registieren?

[MrKnogge]

Hi, du könntest die Formulare auch als DLL-Compilieren, dann kannst du sie ganz normalanzeigen.

gruss

[Dani]

Schon gut... danke

[Alter Mann]

Hi Dani,

in der Toolbox wurde einmal eine Artikelserie zu dem Thema der modularen
Programmentwicklung veröffentlicht. Sie nutze die Möglichkeit des nachladen
von *.BPL Dateien, die nichts anderes als DLL's sind (wenn ich mich recht erinnere).
Es fing im Heft 1 von 2002 damit an

Zitat:

Intelligenter Programmaufbau und Optimierung mit Packages – Michaël Van Canneyt

und hörte schon in Heft 2 von 2002

Zitat:

Navigation in Form-Masken – Michaël Van Canneyt

auf.
In den Heften Nr. 3 und 4 - 2002, kam dan dies

Zitat:

Packages – Die ganz besonderen DLLs

.
Aber schau selbst Toolbox.

Von Van Canneyt kammen im laufe des Jahres noch weitere Artikel die sich mit Design-Fragen
beschäftigten, unter anderem Formulare.
Man kan die Hefte nachbestellen, kosten aber auch je Ausgabe 10 €.

Gruss

[Dani]

Naja wenn die Ausgabe 1/2002 mit Sicherheit weiterhilft, wären die 10€ die Sache schon wert... wenn nicht... Pech...

Falls ich rausfinde, woran es liegt, poste ich es halt hier rein. Vielleicht ist das ganze Modulare-Forms-Zeug ja auch nen Eintrag in der Code-Library wert...