Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Импорт класса из BPL / 5 сообщений из 5, страница 1 из 1
19.03.2003, 14:33
    #32122960
distinger
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импорт класса из BPL
В BPL описан класс TMyForm производный от TForm (проще говоря храниться форма). Как в exe-шнике динамически подгрузить этот BPL, зарегистрировать класс TMyForm, а затем создать экземпляр TMyForm. (Типа:MyForm:=TMyForm.Create(Application))
Спасибо.
...
Рейтинг: 0 / 0
19.03.2003, 15:52
    #32123039
LG
LG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импорт класса из BPL
Пишу по памяти, могут быть ошибки и неточности, но механизм такой ...
TMyFormClass = class of TMyForm
...
FHandle: HModule;
...

procedure TBlaBlaBla.LoadPackageAndCreateForm()
var
MyForm: TMyFormClass;
begin
try
FHandle := LoadPackage(...);
MyForm := FindClass('TMyForm');
...
UnRegisterModuleClasses(Module: HMODULE); // лишним не будет
UnloadPackage(FHandle);
except
raise;
end;
end;
...
Рейтинг: 0 / 0
19.03.2003, 16:13
    #32123067
LG
LG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импорт класса из BPL
И еще, в пакете при инициализации нужно зарегистрировать TMyForm, а при деинициализации UnRegister...
...
Рейтинг: 0 / 0
19.03.2003, 16:16
    #32123068
distinger
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импорт класса из BPL
Спасибо.

А не знаешь где в Итете можно почитать доки обо всем этом?
...
Рейтинг: 0 / 0
19.03.2003, 16:57
    #32123127
LG
LG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импорт класса из BPL
Можно в Delphi Help и исходных файлах.
Линку как таковую дать не могу. :((
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Импорт класса из BPL / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]