Форум программистов, компьютерный форум CyberForum.ru

Работа с типом данных VARIANT - C++ COM

Восстановить пароль Регистрация
 
stuv
0 / 0 / 0
Регистрация: 11.12.2016
Сообщений: 1
11.12.2016, 20:53     Работа с типом данных VARIANT #1
Всем привет. Сейчас работаю с некоторой динамической библиотекой(*.dll). Пытаюсь из этой dll использовать некую функцию GetTitleIDList. Прототип функции в Visual C++ выглядит так GetTitleIDList(VARIANT_BOOL , int, int, int*, VARIANT*,VARIANT*).
В документации к dll эта функция описывается так:
This method retrieves two arrays which contain the IDs and titles of all entities (in the selected ID range) with the same type as the current object.
GetTitleIDList( bIncludeID, minID, maxID, count, listID, listTITLE )

Input:
BOOL bIncludeID
If True, the titles are in the form “ID..title” (for example, “1..Steel”. If False, only the title, without the ID or separator is returned.

INT4 minID
The minimum and maximum entity IDs to retrieve. You can set minID=maxID=0 to retrieve all available entities.


INT4 maxID

Output:

INT4 count
The number of entities retrieved. This is the number of entries in listID and listTITLE.

INT4 listID[0..count-1]
The IDs of the available entities.

STRING listTITLE[0..count-1]
The titles of the available entities. If the entity does not have a title, the string “Untitled” will be returned.

Return Code:

[FE_FAIL=0 FE_OK=-1
This function is only available for entity types that have titles (Mate*rial, Property, View, etc)
В документации приведен пример на Visual BAsic
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
‘Attach to FEMAP........................
Dim femap As Object
Set femap = GetObject(, "femap.model")
‘Look at Output Set 3...................
Dim oc As Object
Set oc = femap.feOutputSet()
oc.Get (3)
Dim od As Object
Set od = oc.Vector(1)
Dim rc As Integer
Dim Count As Long
Dim ID As Variant
Dim Title As Variant
Dim Row As Integer
‘Retrieve ID and Title of all available Output Vectors...
rc = od.GetTitleIDList(False, 0, 0, Count, ID, Title)
‘ Display list in cells of a spreadsheet.................
For Row = 1 To Count
  Worksheets(1).Cells(Row, 1).Value = ID(Row - 1)
  Worksheets(1).Cells(Row, 2).Value = Title(Row - 1)
Next Row
Теперь как я пытаюсь это использовать.
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    int count;
    SAFEARRAY *TitleArray;
    SAFEARRAY *IDArray;
        BSTR str;
    TitleArray=SafeArrayCreateVector(VT_BSTR,0,9);
    IDArray=SafeArrayCreateVector(VT_I4,0,9);
         if(TitleArray==0)return 0;
    if(IDArray==0)return 0;
        if(pEntity->GetTitleIDList(true,0,0, &count,  (VARIANT*) IDArray, (VARIANT*) TitleArray)==-1){
        for (long i=0; i<count;i++){
             if(SafeArrayGetElement(TitleArray,&i,&str){
                MessageBox(0,str,str,0); // в этом месте планировалось вызвать SendMessage(hList, LB_ADDSTRING,0, (LPARAM)str); 
              }      
            }
       }
В сообщении MessageBox выводятся иероглифы вместо строк на английском языке.
пробовал использовать VARIANT
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
       VARIANT ListTitle
        int count;
    SAFEARRAY *TitleArray;
    SAFEARRAY *IDArray;
        BSTR str;
    TitleArray=SafeArrayCreateVector(VT_BSTR,0,9);
    IDArray=SafeArrayCreateVector(VT_I4,0,9);
         if(TitleArray==0)return 0;
    if(IDArray==0)return 0;
        ListTitle.vt=VT_ARRAY|VT_BSTR;
        ListTitle.parray=TitleArray;
        if(pEntity->GetTitleIDList(true,0,0, &count,  (VARIANT*) IDArray, &ListTitle)==-1){
        for (long i=0; i<count;i++){
              //тут пока не понятно как из VARIANT ListTitle извлечь массив строк и вывести их хотя бы в MessageBox
              }      
            }
       }
Подскажите в чём моя ошибка и как лучше исправить? Cпасибо
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.12.2016, 20:53     Работа с типом данных VARIANT
Посмотрите здесь:

C++ COM Тип данных Variant, не понятное свойство
Работа с VARIANT C++ COM

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
vxg
Модератор
 Аватар для vxg
2719 / 1730 / 171
Регистрация: 13.01.2012
Сообщений: 6,483
12.12.2016, 09:47     Работа с типом данных VARIANT #2
Сообщение было отмечено автором темы, экспертом или модератором как ответ
stuv,
1) если написано VARIANT * то не нужно приводить типы (SAFEARRAY - это не VARIANT - SAFEARRAY хранится в VARIANT) - ваш последний способ выглядит правильным по отношению к ListTitle, но по отношению к IDArray по прежнему насилие над типами.
2) у вас это выходные параметры - не нужно их создавать или инициализировать - достаточно написать
C++
1
2
VARIANT listTITLE;
VariantInit(&listTITLE);
передать адрес в функцию (&listTITLE) и читать данные из возвращенного из функции SAFEARRAY например через SafeArrayGetElement
Yandex
Объявления
12.12.2016, 09:47     Работа с типом данных VARIANT
Ответ Создать тему
Опции темы

Текущее время: 14:31. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru