Форум программистов, компьютерный форум, киберфорум
C++: COM, OLE, ActiveX
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
652 / 211 / 21
Регистрация: 20.05.2016
Сообщений: 883
Записей в блоге: 15
1

Transpose SafeArray

31.08.2019, 15:56. Просмотров 2316. Ответов 1
Метки нет (Все метки)

Всем привет.
Набросал функцию для транспонирования SafeArray (двухмерный), с любым типом данных.
Вопрос знатокам: можно ли сделать эффективно, не прибегая к низкому уровню, к примеру, через VType или каким либо еще, отличным от представленного, методом?
Ранее пробовал через switch(VType )... case VT... - много кода. Через преобразования типа указателя, опять же адресная арифметика.
Вообщем, хочу послушать мнения стоит ли что-то менять.
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
STDMETHODIMP CVBA::Transpose(VARIANT* array_in_out)
{
    if (!array_in_out->vt & VT_ARRAY) { return E_INVALIDARG; }
    if (array_in_out->parray->cDims != 2) { return E_INVALIDARG; }
    size_t lLbound_0 = array_in_out->parray->rgsabound[0].lLbound;
    size_t cElements_0 = array_in_out->parray->rgsabound[0].cElements;
    size_t lLbound_1 = array_in_out->parray->rgsabound[1].lLbound;
    size_t cElements_1 = array_in_out->parray->rgsabound[1].cElements;
    size_t elemSize = SafeArrayGetElemsize(array_in_out->parray);
    char HUGEP *arr;//в с-массив
    HRESULT hr = SafeArrayAccessData(array_in_out->parray, (void HUGEP**)&arr);
    if (FAILED(hr)) return hr;
 
    char* arrBuf= new char[cElements_0 * cElements_1 * elemSize];
    memcpy(arrBuf, arr, cElements_0 * cElements_1 * elemSize);
    char *arrTmp = arr;
    for (long j = 0; j < cElements_1; j++) {
        for (long i = 0; i < cElements_0; i++) {
            char *arrBufTmp = arrBuf + (j + i * cElements_1) * elemSize;
            memcpy(arrTmp, arrBufTmp, elemSize);
            arrTmp += elemSize;
        }
    }
    delete[] arrBuf;
 
    array_in_out->parray->rgsabound[0].lLbound = lLbound_1;
    array_in_out->parray->rgsabound[0].cElements = cElements_1;
    array_in_out->parray->rgsabound[1].lLbound = lLbound_0;
    array_in_out->parray->rgsabound[1].cElements = cElements_0;
 
    hr = SafeArrayUnaccessData(array_in_out->parray);
    if (FAILED(hr)) return hr;
    return S_OK;
}
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.08.2019, 15:56
Ответы с готовыми решениями:

Получить указатель на данные, хранящиеся в SafeArray (не на сам SafeArray)
Есть некий SafeArray, о котором заранее известно, что это одномерный массив байт. То есть структура...

Bad SAFEARRAY
Создаю функцию которая получает данные из объекта типа _variant_t, мне нужно получить из него 2...

Как передать SAFEARRAY в C#?
Есть такой метод в C++ библиотеке (метод не мой, почему написан именно так не знаю): //CEncrypt...

COM: SAFEARRAY добавление элементов
День добрый. Перерыл множество ресурсов в поисках ответа на мой вопрос, но всё тщетно. ...

1
6088 / 4066 / 1659
Регистрация: 07.05.2019
Сообщений: 12,609
Записей в блоге: 1
02.09.2019, 09:32 2
Цитата Сообщение от bedvit Посмотреть сообщение
Набросал функцию для транспонирования SafeArray (двухмерный), с любым типом данных.
Вопрос знатокам: можно ли сделать эффективно, не прибегая к низкому уровню, к примеру, через VType или каким либо еще, отличным от представленного, методом?
Зачем здесь знать тип элементов? Просто копируешь побайтово и всё. У тебя вроде так и сделано.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.09.2019, 09:32

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

WorksheetFunction.Transpose
Приветствую! Подскажите как быть, столбец в 70 тысяч строк загоняю в массив, обрабатываю, но так...

Уничтожение SafeArray в Delphi XE
Всем привет. Я перешел с Delphi 7 на Delphi XE4. В седьмой версии при создании элементов типа...

Массив представить в виде SAFEARRAY
Вот такой массив $tak = array(0,0,1,0,1,0,0,0,1,1); Научите, пожалуйста, как представить это в...

Как сделать SafeArray (MFC)?
Сабж, как используя MFC создать SafeArray и сделать метод который принимая их контейнера массив...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.