Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.06.2013, 20:38   #1
IceAdler
Новичок
Джуниор
 
Регистрация: 30.06.2013
Сообщений: 1
По умолчанию Преобразование OleVariant в массив

Есть система видеонаблюдения Luxriot и небольшое SDK к ней. Захотелось написать небольшую программу для оптимизации некоторых действий. Сам не использовал ни разу сторонние элементы ActiveX, примеры в мануалке даны на VB и не сильно понятны.

Вот собственно такой вопрос интересует. Есть некий объект ICkServer у которого есть метод, описанный в мануалке так

HRESULT GetMediaDevices([out, retval] VARIANT *pvMediaDevices)
Returns:
VARIANT array of cameras (ICkMediaDevice), configured on server


то есть как я понимаю, функция возвращает массив объектов(или ссылок на объекты?), типа ICkMediaDevice в переменной типа Variant. Вопрос в том как мне собственно разбить переменную типа Variant на элементы массивы так чтобы использовать элементы как объекты, т.е. использовать их методы и поля?

В модуле, полученном при импорте ActiveX процедура описана как

function GetMediaDevices: OleVariant; safecall;
IceAdler вне форума Ответить с цитированием
Старый 30.06.2013, 20:59   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ну а тупо:
Код:
 (ICkMediaDevice)pvMediaDevices[такой-то]
не пробовал писать?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Преобразование String в OleVariant vg169 Общие вопросы Delphi 8 15.07.2009 13:09
как переделать график в OleVariant ? Влажимир Общие вопросы Delphi 1 14.04.2008 19:18
Сконвертировать Olevariant (Unicode) в string Sashunya Общие вопросы Delphi 8 08.09.2007 00:49