Вопросы по Delphi 2 - [19] :: Прикладное программирование

ну можно примерно так
в длл объявляеш тип
type
TPShowFrm = procedure (param : integer);

у себя в длл объявляеш переменную для хранения ссылки на функцию

var
ShowFrmPrc : TPShowFrm;

Потом у тебя должна быть какаето функция иницилизации ДЛЛ. она должна быть стандартная для всех плюгинов и апликуха о ней знает, например

procedure INIT(PShowFrmPrc : TPShowFrm);
begin
ShowFrmPrc := PShowFrmPrc;
end;

а в основной программе у тебя есть процедура которая выводит твой справочник или выполняет любые другие действия, например
procedure ShowList (param : integer); //она должна быть объявлена так же как и указатель ..на неё в длл
begin
//какието действия
end;

все теперерь при подключении плюгина ты импортируеш из длл стандартную функцию иницилизации, передавая ДЛЛке указатель на функцию ядра.
Init(ShowList) или Init(@ShowList)
так можно передавать указатели на любое кол-во стандартных методов ядра, типо твое апи.

Когда тебе надо из длл вызвать функцию из основной програмы ты просто пишеш.
ShowFrmPrc(param) и вызывается процедура ShowList

Вообщем я думаю идея ясна - передать в длл указатели на функции ядра.
А вообще если поискать в инете то можно и без всего этого обойтись если воспользоваться функцией MethodAddress(), только там для меня не совсем прозрачна проблема разных адресных пространств.

Модерирует : ShIvADeSt
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100