VPF::при работе с пакетом getclass возвращает nil

lebaon

Дата 16.1.2008, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 10.3.2006

Репутация: нет
Всего: нет

Возникла такая проблемма:
есть программа, которая динамичеси подгружает пакет с неким классом,
и пытается создать обьект этого класса, но при поиске подгруженного класса
ф-ия getclass возврашает nil smile

Код


procedure TForm1.FormCreate(Sender: TObject);
var
cfgClass:TComponentclass;
cfg:TComponent;
FPackageHandle:cardinal;
begin
 
   FPackageHandle := LoadPackage('configfile.bpl');
  // пакет не загружен, выбрасываем исключение
  if FPackageHandle = 0 then RaiseLastWin32Error()
  else MessageBox(Handle,  'Пакет plugin загружен',
  'Информация', MB_APPLMODAL+MB_ICONINFORMATION+MB_OK);

 cfgClass := TComponentclass(GetClass('Tmyini'));
 if not Assigned(cfgClass) then
   begin
     MessageBox(Handle, PChar(Format(' Не найден класс %s', ['Tmyini'])),
                        'Ошибка',
                        MB_APPLMODAL+MB_ICONERROR+MB_OK);
     exit;
   end;

 cfg := cfgClass.Create(Self);

в самом пакете стоит регистрация класса

Код


initialization
  RegisterClass(Tmyini);

кроме того, при вызове getclass в пакете при инициализации все находится нормально smile

отчего так? smile

dephi 2007

Shaggy

Дата 18.1.2008, 01:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 2.5.2007
Где: г.Ижевск

Репутация: 3
Всего: 5

для EXE:
Project -> Options -> Packages -> Build with runtime packages
галочка стоит?

lebaon

Дата 19.1.2008, 15:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 10.3.2006

Репутация: нет
Всего: нет

спасибо, помогло! smile

а то думаю, где ошибка smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »