Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Вызов функции из ДЛЛ

Автор: Gershkovich 7.3.2006, 10:35

Ситуация :

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

О функциях из ДЛЛ я буду знать тока имя и
количество параметров (все параметры - integer)
отдельной функции.

Вызов не представляет проблем:
(Это черновой вариант)

Код


type TFarProcedure = function : integer; stdcall;
var  FarProcedure : TFarProcedure;
begin

  asm
    mov eax, [param_1]
    push eax

    mov eax, [param_2]
    push eax

   ......

    mov eax, [param_N]
    push eax
  end;

  FarProcedure:= GetProcAddress(.... все дела

  CallResult:= FarProcedure;

Проблему вызывает то, что у разных функций - разное количество параметров.
Эти параметры я храню в TList.
Когда организую цикл по TList-у, то
компилятор в стэк пишет еще что-то (свои какие-то заморочки)
в результате в стэке - каша.

Как проще решить проблему?

Заранее спасибо.

Автор: Демо 7.3.2006, 10:50

Не проще воспользоваться стандартным способом?

Код


procedure FarProc(parm1: Integer=-1;parm2: Integer=-1;...parmn: Integer=-1);

Автор: Romikgy 7.3.2006, 10:54

Цитата(Gershkovich @ 7.3.2006, 09:35

)

Когда организую цикл по TList-у, то

Покажи

Цитата(Gershkovich @ 7.3.2006, 09:35

)

Проблему вызывает то, что у разных функций - разное количество параметров.

Имхо передают кол-во параметров

Автор: Gershkovich 7.3.2006, 11:25

2 Демо

Ты предлагаешь сделать типа такого ?

Код


procedure FarProc1(parm1: Integer=-1);
procedure FarProc2(parm1: Integer=-1;parm2: Integer=-1);
....
procedure FarProc16(parm1: Integer=-1;parm2: Integer=-1;...parm16: Integer=-1);

Согласись - некрасиво.

2 Romikgy
К сожалению, щас показать не могу - исходники дома.
В дебагере (который по Ctrl+Alt+C ) я явно видел манипуляции со стэком.

Ты имеешь в ввиду что если организовать цикл, скажем, по массиву, то
операций со стэком не будет?

Автор: Romikgy 7.3.2006, 12:22

Код


type
    TDynamicArray = array of Integer;
procedure FarProc1(const Count: integer; parm: TDynamicArray);

Имхо так будет правильнее

Автор: Snowy 7.3.2006, 12:25

Тогда так:

Код

procedure FarProc1(const Count: integer; parm: array of Integer);

Но так, IMHO, функция будет привязана к дельфе. Не факт, что будут работать библиотеки, написанные на других языках.
Добавлено @ 12:32
Есть другой способ работы с плагинами.
У плагина есть функции Load и Unload.
Вся остальная работа делается через WM_COPYDATA.
Передаешь код действия и данные. А реализованы они в плагине или нет - не важно.
Используется соответственно только то, что реализовано, остальное опускается по дефолту.

Автор: Демо 7.3.2006, 14:11

Цитата(Gershkovich @ 7.3.2006, 11:25

)

Согласись - некрасиво.

Не соглашусь.
У тебя всегда известно максимальное количество параметров.

И выглядеть это будет не как 20 разных функций, а как одна, но с максимальным корличеством параметров, все которые могут быть опущены.
В результате ты в вызванной функции всегда можешь опрежделить их количество и реагировать соответствующим образом.
Добавлено @ 14:12
Вместо всех функций, которые ты написал, достаточно одной:

Код


procedure FarProc(parm1: Integer=-1;parm2: Integer=-1;...parm16: Integer=-1);

Автор: Romikgy 7.3.2006, 14:17

Демо, одно единственное "но" когда среди параметров потребуется передать -1 !? smile

Автор: Демо 7.3.2006, 14:37

Цитата(Romikgy @ 7.3.2006, 14:17

)

Демо, одно единственное "но" когда среди параметров потребуется передать -1 !?

Для подобного метода выбирается диапазон, который не используется для передачи параметров.

Если такой диапазон подобрать невозможно, то первым параметром передается количество значимых параметров, затем уже сами параметры.

Автор: Gershkovich 9.3.2006, 17:33

Спасибо всем откликнувшимся.

Реализовал таки все на ассеблере.

Но ваши ответы натолкнули меня на хорошие мысли.