Runtime-Package gibt Pointer auf ein Interface zurück

[sunny-andy]

Hallo!

Per LoadPackage lade ich ein Runtime-Package und führe dort die Funktion "Boot" aus, welche mir ein Objekt vom Typ "IPluginManager" zurückgeben soll.
IPluginManager ist bei mir ein Interface.

Delphi-Quellcode:

var
  proc: procPointer;
  pModule: HModule;
  dc: TPluginDeliveryClasses;
  pm: IPluginManager;
begin
pModule := LoadPackage('C:\xyz.bpl');

  if pModule = 0 then
    raise EPackageException.Erzeugen(format('Das Package %s wurde nicht gefunden', [TUmgebungsvariablen(TUmgebungsvariablen.NewInstance).DEFAULT_PLUGIN_MANAGER_FILE]));
  try
    @proc := GetProcAddress(pModule, 'Boot');
    if Assigned(proc) then
    begin
      dc := TPluginDeliveryClasses.Erzeugen;
      pm := proc(dc);
      pm.LoadPlugins;  <-------- Hier machts Peng!!
    end else
      raise EPackageException.Erzeugen(format('Das Package %s enthält keine korrekt Boot-Methode', [TUmgebungsvariablen(TUmgebungsvariablen.NewInstance).DEFAULT_PLUGIN_MANAGER_FILE]));

Also im Debug-Modus sehe ich, dass pm einen Pointer auf das Interface "IPluginManager" enthält. Wenn ich die Methode LoadPlugins ausführe, gibt es aber eine AccessViolation. Das Objekt wurde aber richtig erstellt, deshalb denke ich, liegt der Fehler darin, dass ich den Pointer falsch behandel, oder?

Ich weiß leider nicht so genau, wie ich das machen muss. Habt ihr einen Tipp?

Delphi-Quellcode:

function Boot(DeliveryClasses: TPluginDeliveryClasses): IPluginManager;
var
  pm: TPluginManager;
begin
  pm := TPluginManager.Erzeugen(DeliveryClasses);
  result := pm;
end;

Dankeschön,
Andy

[sx2008]

Ich kann so keinen direkten Fehler in deinem Code erkennen.
Die Boot()-Funktion ist korrekt.
Vielleicht ist der Fehler innerhalb der Interface-Methode .LoadPlugins() zu suchen.

Delphi-Quellcode:

      dc := TPluginDeliveryClasses.Erzeugen;
      pm := proc(dc);
      Assert(Assigned(pm)); // sicherstellen, dass der interface pointer gefüllt ist
      pm.Test;   // einfache Testmethode, die nur über MessageBox einen Text ausgibt
      pm.LoadPlugins;  <-------- Hier machts Peng!!

Ich finde dein Plugin-System mit Packages etwas verwirrend; aber das nur nebenbei.
Man kann das mit ActiveX-DLLs viel einfacher und übergreifend für alle Prog.-Sprachen machen.

[sunny-andy]

Hallo,
danke für deine Antwort!
Die Assert Methode wirft auch keinen Fehler. Meine Methode "LoadPlugins" ist sozusagen auch eine Testmethode, da dort noch kein Code enthalten ist.
Deshalb kann das nur daran liegen, dass hier
pm := proc(dc); mit pm irgendwas nicht stimmt. Wenn ich als Rückgabetyp anstatt ein Interface einen elementaren Datentyp wie boolean nehme, kann ich den Rückgabewert ohne Probleme auslesen. Aber mit dem Interface klappt dies hier leider nicht so...

[sunny-andy]

Ha! jetzt gehts! Sowelche Momente liebe ich ja

Es war folgendes:
Das PluginManager-Package, welches ich zur Laufzeit geladen habe, soll ja in der Boot-Funktion ein Objekt zurückgeben, welches IPluginManager implementiert.
Dieses Interface ist aber in einem statischen Schnittstellen-Package gelagert.

In dem dynamischen Package (PluginManager) habe ich aus dem "Requires-Ordner" nun die Referenz zu dem Package entfernt, in dem das Interface gespeichert ist und es funktioniert.

Was hat das zu bedeuten? Ich denke, wenn ein Package unter "Requires" aufgelistet ist, werden alle Klassen mit in das aktuelle Package gepackt.

[sx2008]

Schwierig aus der Ferne.
Aber wenn du das Interface IPluginManager zweimal definiert haben solltest, dann kommt es zum Problemen, wenn die GUID entweder unterschiedlich ist oder bei einer Deklaration fehlen sollte.
Wenn du sauber arbeiten möchtest, dann brauchst du eine Unit mit Interfacedeklarationen, die von deiner Hauptapplikation und deinem Package eingebunden wird.
Jedes Interface, dass über die "Grenze" transportiert wird braucht zwingend eine GUID.