Массив значений _variant_t

18.11.2014, 15:27. Показов 1563. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Есть прибор Obzor304/1.
Управляю им удалённо с помощью DCOM командами SCPI.
Команда "pNWA->SCPI->SENSe[2]->CORRection->COLLect->ACQuire->THRU = arr;" осуществляет калибровку перемычку этого прибора. Где arr массив, содержащий кал источника и канал приёмника.
В Делфи этот массив формируется так:

Delphi
1
2
3
4
5
6
var arr Variant; // обьявление
...
arr := VarArrayCreate([0, 1], varLongWord); // создание массива
arr[0] := 2; // заполнение массива тут 2-й канал источник
arr[1] := 1; // а 1-й канал приёмник
vx.SCPI.SENSe[1].CORRection.COLLect.ACQuire.THRU := arr; // далее это все отсылается в прибор.

Вот и в Делфи это всё работает.

А в visual studio не могу создать аналог этого массива, который бы удовлетворил этот прибор ... пробовал по разному ... программа компилируется, но когда происходит передача данных - массив какбы он не был собран мной прибором не усваивается и калибровка не проходит. Хотя под Делфи все работает и откликается и калибруется.

Добавлено через 22 часа 52 минуты
Решение:

C++
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
VARIANT vList;
 
      VariantInit(&vList);
 
 
 
      m_pSCPI->SENSe[1]->CORRection->COLLect->ACQuire->THRU = ComposeVariantArray(1, 2, &vList);
 
 
 
 
 
//---------------------------------------------------------------------
 
VARIANT& ComposeVariantArray(int Val1, int Val2, VARIANT* pVariant)
 
{
 
      SAFEARRAY * pSafeArray;
 
      SAFEARRAYBOUND aDim[1];
 
      aDim[0].lLbound = 0;
 
      aDim[0].cElements = 2;
 
      pVariant->vt = VT_ARRAY | VT_I4;
 
      pSafeArray = SafeArrayCreate(VT_I4, 1, aDim);
 
      int* dwArray = NULL;
 
      SafeArrayAccessData(pSafeArray, (void**)&dwArray);
 
      dwArray[0] = Val1;
 
      dwArray[1] = Val2;
 
      SafeArrayUnaccessData(pSafeArray);
 
      pVariant->parray = pSafeArray;
 
      return *pVariant;
 
}

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

18.11.2014, 15:27

Ответы с готовыми решениями:

variant_t и время
1. в некоторую переменную типа variant_t из MS SQL посредством ado приходит дата (тип datatime (mssql)). 2. Данные из этой переменной, с...

дано два массива по 10 значений . получить третий массив 10 с суммой соответствующих значений
помогите кто чем может, срочно нужно)

Сгенерировать массив, множество значений которого представляет собой пересечения множеств значений двух других массивов
Здравствуйте. Нужно решить вот такую задачку. Сижу уже много дней, ничего не выходит. Сгенерировать и вывести на экран содержание двух...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

18.11.2014, 15:27

Помогаю со студенческими работами здесь

Дан массив А(4,4). Сформировать массив В(4) из среднеарифметических значений элементов в каждой строке.
Дан массив А(4,4). Сформировать массив В(4) из среднеарифметических значений элементов в каждой строке. Посмотрите пожалуйста... ...

Массив: Сформировать третий массив из упорядоченных по убыванию значений обоих массивов
Ввести два массива действительных чисел, состоящих из 7 и 9 элементов. Сформировать третий массив из упорядоченных по убыванию значений...

Двумерный массив. Заполнить одномерный массив суммой значений элементов строк
Помогите, пожалуйста!=( Дан двумерный массив. Заполнить одномерный массив суммой значений элементов строк, вывести полученную информацию...

Массив: Сформировать третий массив из упорядоченных по убыванию значений заданных массивов.
Ввести два массива действительных чисел, состоящих из 7 и 9 элементов. Сформировать третий массив из упорядоченных по убыванию значений...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

Наверх