| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Динамическое подключение пакетов [D6, Win2k]

Сатир ©   (2002-03-26 19:12:00) 

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

---

Сатир   (2002-03-28 11:58:00) [1]

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

---

aus   (2002-03-27 15:37:00) [2]

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

---

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

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

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

---

Сатир   (2002-03-27 12:05:00) [4]

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

---

aus   (2002-03-26 20:57:00) [5]

Попробуй так:

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 получается, только позаботься о правильности вызова, ну и о параметрах.

---

Наверх