Динамическое подключение пакетов

← →
Сатир (2002-03-26 19:12) [0]

Вопрос такой:
Есть у меня пакет, напр., abkstd.bpl.
Для того чтобы вызвать его метод Register, этот пакет нужно объявить в секции uses
То есть, если мне нужно пользоваться одним из пакетов в определенное время выполнения приложения, то я должен объявить вес эти пакеты в uses. Спрашивается, как можно динамически подключать модули, то есть чтобы они были как-бы объявлены в uses?
Есть функция function LoadPackage(const Name: string): HMODULE;
Как теперь можно вызвать процедуру Register загруженного пакета
и какие операции предусматривает переменная HMODULE (короче говоря, что обозначает этот тип и что с ним можно сделать)?

← →
aus (2002-03-26 20:57) [1]

Попробуй так:
type TMyRegister = procedure; stdcall; procedure Test; var MyRegister: TMyRegister; H: HMODULE; begin H := LoadPakage("abkstd.bpl"); if H > 0 then try @MyProc := GetProcAddres(H,"Register"); MyProc; finally FreePakage(H); end; end;
С LoadLibrary получается, только позаботься о правильности вызова, ну и о параметрах.

← →
Сатир (2002-03-27 12:05) [2]

А зачем объявлять тип TMyRegister, а потом и его переменную, если мы её нигду не используем?
И в каком моделу содержится функция GetProcAddress

← →
Alx2 (2002-03-27 12:08) [3]

>а потом и его переменную, если мы её нигду не используем?
используем в
try
@MyProc := GetProcAddres(H,"Register");
MyProc;
....

>И в каком моделу содержится функция GetProcAddress
uses Windows

← →
aus (2002-03-27 15:37) [4]

Перепутал, MyProc и MyRegister - одно хотел написать, да ночь уж на дворе была. Пардон.

← →
Сатир (2002-03-28 11:58) [5]

Не работает. Выдает ошибку доступа к памяти по нулевому адресу

Динамическое подключение пакетов Найти похожие ветки