VPF::Вызов функции из ДЛЛ - Форум программистов

Gershkovich

Дата 7.3.2006, 10:35 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

Ситуация :

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

О функциях из ДЛЛ я буду знать тока имя и
количество параметров (все параметры - 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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

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

Код


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

--------------------

Romikgy

Дата 7.3.2006, 10:54 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

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

)

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

Покажи

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

)

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

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

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Gershkovich

Дата 7.3.2006, 11:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

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 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Код


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

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

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 7.3.2006, 12:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Тогда так:

Код

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

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

Демо

Дата 7.3.2006, 14:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Цитата(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 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

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

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Демо

Дата 7.3.2006, 14:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

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

)

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

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

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

--------------------

Gershkovich

Дата 9.3.2006, 17:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 8.2.2006

Репутация: 0
Всего: 2

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

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

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

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »