CallByName и неизвестное число аргументов

[michel_s]

Предыстория вопроса:

Некий класс имеет ряд методов с различным количеством аргументов:

public sub method_1(arg1 as type, ... , argn as type)
.
.
.

В его конструкторе собирается коллекция описателей этих методов, которая включает в себя имя метода и набор описателей типов аргументов.

Вопрос в том как корректно передать аргументы в вызове функции CallByName.

Пробовал по набору описателей типов аргументов создавать массив variant:

dim v() as variant

for ...
redim preserve v(...)
v(ubound(v))=value 'в зависимости от типа агумента
next

CallByName objref, "method_name", vbMethod, v - не работает

Остановился на том, что каждый метод указанного класса принимает массив variant, а потом разгребает то, что ему передали. Может быть есть более изящное решение?

[GSerg]

Ничё не понял. Главным образом про начальный класс.

[michel_s]

Задача, собственно, в том, чтобы используя коллекцию описателей методов класса вызывать эти методы извне с помощью CallByName

[michel_s]

Еще одго уточнение.

В классе obj есть метод:

public sub method(arg1 as string, arg2 as integer)

код вызова метода извне:

dim s as srting
dim i as integer
dim v(1) as variant

s=...
i=...

CallByName obj,"method",vbMethod,ist,i - работает;

v(0)=s
v(1)=i

CallByName obj,"method",vbMethod,v - не работает,

несмотря на то, что последний аргумент CallByName описан как массив variant.

[GSerg]

Не массив variant, а param array. Это разные вещи.

[michel_s]

А можно его реализовать для передачи CallByName?

[GSerg]

Что значит реализовать?

[michel_s]

На данном этапе я определяю метод так:

public sub method(v() as variant)

проверка v()
некие действия

end sub,

а вызываю так:

dim v(...) as variant

v(...)=...

CallByName obj,"method",vbMethod,v

Хотелось бы определять метод с указанием каждого аргумента:

public sub method(arg1 as type, arg2 as type)

но как вызвать его в run-time с помощью CallByName?

[GSerg]

CallByName obj, "method", vbMethod, arg1, arg2

[michel_s]

Другого пути нет? Дело в том, что в run-time я имею только набор описателей (типов и значений) аргументов метода в виде коллекции, но не зарезервированные под них переменные.

[GSerg]

А тип тебе не нужен. Всё равно через variant пойдёт.

Если хочешь ручками, то можно, IDispatch::Invoke

[michel_s]

Примерно ясно, спасибо.

[Vi]

Загрузи TLBINF32.DLL в свой проект. Объект TLIApplication имеет такой метод InvokeHookArray, позволяющий передавать массив вариантов вместо ParamArray.