Packages einbinden



  • Hallo,

    ich binde in meinem Code zur Laufzeit Packages folgendermaßen ein:

    Windows::HINST Package = NULL;
    
      typedef void __declspec(dllimport) ShowPackageForm(void);
    
      ShowPackageForm *ShowPackage;
    
      if (!Package)
        Package = LoadPackage(LibDir + "\\Package.bpl");
    
      if (Package) {
        ShowPackageTeacherOffice = (ShowPackageForm *)GetProcAddress((HINSTANCE)Package,
                                                         "_ShowPackageForm");
    
        if (ShowPackage)
          ShowPackage();
        else {
          ShowMessage(SysErrorMessage(GetLastError()));
    
          UnloadPackage(Package);
        }
      }
      else {
        ShowMessage(SysErrorMessage(GetLastError()));
        ShowMessage("Das Modul  kann nicht geladen werden");
      }
    
      FinalizePackage(Package);
    

    Mein problem ist nun, dass das alles funktioniert so lange in dem Package nur ein Formular definiert ist. Wenn ich ein 2. Formular in das Package aufnehme und dieses Formular aus dem ersten Hauptformular des Packages aufrufe gibt es einen Fehler.

    Weiß jemand Rat, was ich da falsch mache?

    Gruß,
    Bombadil



  • Hallo?

    Weiß denn wirklich niemand Rat?


Anmelden zum Antworten