[ zamm72 @ 25.11.2006. 11:41 ] @
Problem sa dinamičkim učitavanjem bpl paketa u Delphi 6.0. Imam paket "pkgPrva.bpl" i u njemu formu "frmPrva" ( sa inicijalizacijom gde stoji sledeće initialization RegisterClass(TfrmPrva); showmessage('Registracija klase "TfrmPrva" koja je u paketu'); U glavnom programu učitam paket "pkgPrva.bpl" i tu je ok, jer se učita paket i prikaže mi se poruka iz forme da je klasa forme registrovana. Medjutim, nadalje ne uspevam da nadjem klasu forme. Šta može da bude problem. Evo koda u glavnom programu: procedure TForm1.btnPokreniFormuClick(Sender: TObject); var Forma : TForm; KlasaForme : TFormClass; Odgovor : Hmodule; begin Odgovor := LoadPackage('pkgPrva.bpl'); if Odgovor > 0 then begin ShowMessage('Paket "pkgPrva.bpl" uèitan'); KlasaForme := TFormClass(GetClass('TfrmPrva')); if Assigned(KlasaForme) then begin Forma := KlasaForme.Create(Application); try Forma.ShowModal; finally Forma.Free; end; end else ShowMessage('Klasa forme nije nadjena'); UnloadPackage(Odgovor); end else ShowMessage('Paket nije pronadjen'); end; |