Form aus BPL dynamisch laden

[hanspeter]

Hallo,

in einer dynamisch zu ladenden Form
befindet sich folgende Anweisung :

Delphi-Quellcode:

initialization
  RegisterClass(TForm2);
finalization
  UnRegisterClass(TForm2);

Der Aufruf erfolgt mit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  PackageModule: HModule;
  AClass: TPersistentClass;
begin
  PackageModule := LoadPackage('Package1.bpl');
  Application.ProcessMessages;
  begin
    AClass := GetClass('TForm2');

    if AClass <> nil then
      with TComponentClass(AClass).Create(Application)
        as TCustomForm do
      begin
        ShowModal;
        Free;
      end;

    UnloadPackage(PackageModule);
  end;
end;

Bei der Anweisung AClass := GetClass('TForm2'); ist AClass nil.

Binde ich die Form statisch ein, dann funktioniert die Anweisung.

Es handelt sich um ein Beispielprojekt von der Borland BDS Seite.

Dynamic Packages
A white paper by Vino Rodrigues,
[e-mail]

Copyright (C) 2001 Vino Rodrigues

Sourcecode to example 2

Hat wer einen Tip, was hier beim dynamischen verwenden einer Form schief läuft?

Gruß
Peter

[hanspeter]

Ich hatte bereits in der vergangenen Woche zu diesem Thema gefragt und keine
Antwort erhalten.

Da ein Beispiel aus einem Borland Tutorial auch nicht funktioniert, gehe ich inzwischen
davon aus, dass es sich um einen Bug in D2006 handelt.

Gruß Peter

[mirage228]

Hi,

Hast du mal probiert InitialisePackage noch mal manuell zusätzlich aufzurufen?

mfG
mirage228

[hanspeter]

Zitat von mirage228:

Hi,

Hast du mal probiert InitialisePackage noch mal manuell zusätzlich aufzurufen?

mfG
mirage228

Das noch nicht, aber wenn ich das ganze mit dem Debugger schrittweise abarbeite, dann geht er über den
Initialisationsteil durch. RegisterClass wird abgearbeitet, aber die Klasse ist danch mit GetClass nicht
zu finden.

Interessanter Weise funktioniert das, wenn ich die Unit statisch einbinde.
Und wie gesagt, das ganze ist ein borland-Beispiel.

Gruß Peter

[dfried]

Hast du es mal mit FindClass probiert?
Damit hab ich das unter D7 mit Forms aus Packages immer gemacht.

[jbg]

Dumm gefragt, aber ist das Hauptprogramm auch gegen das rtl/vcl Package kompiliert ("Mit Laufzeitpackages kompilieren")? Denn wenn nicht, dann hast du zwei Klassen-Listen, die nichts von einander wissen.

[hanspeter]

Zitat von jbg:

Dumm gefragt, aber ist das Hauptprogramm auch gegen das rtl/vcl Package kompiliert ("Mit Laufzeitpackages kompilieren")? Denn wenn nicht, dann hast du zwei Klassen-Listen, die nichts von einander wissen.

Weiß ich ehrlich gesagt nicht.
Ich habe einfach das Beispiel von Borland BDS kopiert und ausprobiert.
Ich bin erst am Montag wieder in der firma und kann das prüfen.

Kann mir übrigens wer ein (kostenpflichtiges) Tool empfehlen, was das Update der BPL Hölle einfacher macht.
So etwa in der Form.
Bestimme alle zu updatenden Dateien, stelle dies ins Internet und lege dort zum Download eine Liste an, die
gegen die aktuelle Konfiguration abgeglichen wird. (Autoupdate)

Mit Gruß

Peter

[Igotcha]

[quote="hanspeter"]

Zitat von jbg:

Kann mir übrigens wer ein (kostenpflichtiges) Tool empfehlen, was das Update der BPL Hölle einfacher macht.
So etwa in der Form.
Bestimme alle zu updatenden Dateien, stelle dies ins Internet und lege dort zum Download eine Liste an, die
gegen die aktuelle Konfiguration abgeglichen wird. (Autoupdate)

Ich hab mir für meine Anwendung, die genau so aus BPL-Lösungsmodulen mit Forms etc. aufgebaut ist, einen "Launcher" geschrieben, über den die Anwendung gestartet wird und der genau das abgleicht.

Viele Grüße
Igotcha

[alias5000]

Auch wenns schon ne Weile her iss, ich habs selbe Problem gehabt.

Das hier muss noch in die Unit der BPL unten hin:

Delphi-Quellcode:

initialization
  RegisterClass({Klassenname});

[Helmi]

Hallo,

ich entstaube mal diesen Thread (irgendjemand sollte mal im Archiv staubwischen).

Ich habe auch das Problem, dass GetClass immer Nil zurückliefert, obwohl die Klasse
im Package registriert wird.

Hier mal der aktuelle Link zum Beispiel