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;