VPF::получение ProgID из VARIANT переменной

RastaDja

Дата 1.11.2010, 12:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 337
Регистрация: 1.11.2010

Репутация: 1
Всего: 5

Привет! помогите решить проблему:
Есть структура vector<VARIANT> m_varVector.
В эту структуру на стороне клиента (допустим VB) добавляем данные. В качестве данных может быть ссылка на что угодно, например:

Dim xmd As DOMDocument
Set xmd = New DOMDocument

mcol.Add xmd

Задача: получить ссылку например так
IDispatch* pDispatch = NULL;
pDispatch = m_varVector[item].pdispVal;

и узнать ProgID элемента, который хранится в полученой нами pDispatch переменной.

Надеюсь на ответы. Заранее благодарен. smile

Добавлено через 2 минуты и 57 секунд
mcol - наш тип для работы с vector<VARIANT> m_varVector

Dim mcol As ATLCOLLLib.CollectVari
Set mcol = New ATLCOLLLib.CollectVari

--------------------

The more closely you look at one thing, the less closely can you see something else.

xvr

Дата 1.11.2010, 13:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 8
Всего: 223

Ничего не понял smile

Цитата(RastaDja @ 1.11.2010, 12:48

)

В качестве данных может быть ссылка на что угодно,

Ссылка в каком виде представлена?

Цитата(RastaDja @ 1.11.2010, 12:48

)

Задача: получить ссылку например так
IDispatch* pDispatch = NULL;
pDispatch = m_varVector[item].pdispVal;

и узнать ProgID элемента, который хранится в полученой нами pDispatch переменной.

По ProgID (который кстати всего навсего обычная строка) можно создать объект, но по уже созданному объекту ProgID получить нельзя.

Это сообщение отредактировал(а) xvr - 1.11.2010, 13:06

RastaDja

Дата 1.11.2010, 14:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 337
Регистрация: 1.11.2010

Репутация: 1
Всего: 5

Цитата

Ссылка в каком виде представлена?

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

Код


if(VT_DISPATCH == (m_varVector[Index]).vt)//åñëè ññûëêà
        {
                IDispatch* pDisp = m_varVector[Index].pdispVal;
                pDisp->AddRef();

                pVal->vt = VT_DISPATCH;
                pVal->pdispVal = pDisp;
                return S_OK;
        }
        else
        *pVal = (m_varVector[Index]);
        return S_OK;

Цитата

По ProgID (который кстати всего навсего обычная строка) можно создать объект, но по уже созданному объекту ProgID получить нельзя.

Мне надо сохранить мой вектор в файле. данные ссылок надо сохранить так, чтоб при загрузки файла все обьекты востановились, для этого мне надо ProgID, потому, что это удобно для скриптовых языков и более читабельно.

Добавлено через 1 минуту и 21 секунду
...потому, что это удобно для скриптовых языков и более читабельно чем CLSID

--------------------

The more closely you look at one thing, the less closely can you see something else.

xvr

Дата 1.11.2010, 14:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 8
Всего: 223

Цитата(RastaDja @ 1.11.2010, 14:12

)

Тобиш это любой обьект, которих хранится в VARIANT переменной.

Судя по примеру это все же не 'любой элемент', а конкретно IDispatch

Цитата(RastaDja @ 1.11.2010, 14:12

)

Мне надо сохранить мой вектор в файле. данные ссылок надо сохранить так, чтоб при загрузки файла все обьекты востановились,

В общем случае это невозможно сделать ВООБЩЕ. Даже если у вас и найдется ProgID. По ProgID можно создать объект заново, но восстановить его состояние, как оно было на момент записи, невозможно.
Вам в любом случае понадобится поддержка со стороны сохраняемых объектов. См. в сторону IPersistStream (и др. IPersis* интерфейсов), и в сторону IMoniker

Цитата(RastaDja @ 1.11.2010, 14:12

)

...потому, что это удобно для скриптовых языков и более читабельно чем CLSID

Ни ProgID ни CLSID из экземпляра IDispatch (в общем случае) извлечь невозможно.

RastaDja

Дата 1.11.2010, 14:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 337
Регистрация: 1.11.2010

Репутация: 1
Всего: 5

Спасибо за ответ.

Попробую поискать в сторону PersistStream и т.п.

Эсли можно какойто пример, буду оч благодарен

Добавлено через 6 минут и 20 секунд
Плюс есть проблема в том, что не все обьекты поддерживают IPersist* интерфейсы. А предполагается сохранение всех данных.

Код


HRESULT hr;
    IDispatch* p = NULL;
    p = m_varVector[item].pdispVal;
    
    ::ITypeInfo *pti;
    ::ITypeLib *ptl;
    UINT ui;

    hr = p->GetTypeInfo(0, LOCALE_SYSTEM_DEFAULT,&pti);
    if(S_OK == hr){
        hr = pti->GetContainingTypeLib( &ptl, &ui);
        pti->Release();
        if(S_OK == hr)
        {
            ui = ptl->GetTypeInfoCount();
            for(UINT i = 0; i < ui; ++i)
            {
                hr = ptl->GetTypeInfo(i, &pti);    
                if(S_OK == hr)
                {
                    ::TYPEATTR *patr = 0;
                    hr = pti->GetTypeAttr( &patr);
                    if(patr->typekind == TKIND_COCLASS)
                    {
                        ::MessageBox(NULL, "OK - TKIND_COCLASS","",MB_OK);
                        OLECHAR *wsz, *wsz2;
                        hr = ::StringFromCLSID(patr->guid, &wsz);
                        hr = ::ProgIDFromCLSID(patr->guid, &wsz2);
                        if(S_OK == hr)
                        {
                            ::MessageBox(NULL, (char*) _bstr_t(wsz),(char*) _bstr_t(wsz2),MB_OK);
                            ::CoTaskMemFree(wsz);
                        }
                    }
                    pti->Release();
                }
            }
            ptl->Release();
        }
    }

пока есть такой код. но как получить данные о конкретном коклассе а не о всех

--------------------

The more closely you look at one thing, the less closely can you see something else.

xvr

Дата 1.11.2010, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 8
Всего: 223

IDispatch вполне может на GetTypeInfo вернуть UNIMPLEMENTED smile

Цитата(RastaDja @ 1.11.2010, 14:41

)

но как получить данные о конкретном коклассе а не о всех

Надежно - никак.

RastaDja

Дата 1.11.2010, 17:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 337
Регистрация: 1.11.2010

Репутация: 1
Всего: 5

на данный момент решение такое

Код


_bstr_t str;
    IDispatch* pDispatch = NULL;
    pDispatch = m_varVector[item].pdispVal;
    HRESULT hr;

    CComPtr<IPersist> spPersist;
    CLSID clsid;
    hr = pDispatch->QueryInterface(IID_IPersist, (void**)&spPersist);
    if (SUCCEEDED(hr))
    {
    //    MessageBox(NULL, "IID_IPersist", "IID_IPersist", MB_OK);
        hr = spPersist->GetClassID(&clsid);
        if (SUCCEEDED(hr))
        {
        //    MessageBox(NULL, "GetClassID(&clsid);", "IID_IPersist", MB_OK);
            WCHAR* pwszProgID45 = NULL;
            if (!FAILED(hr =  (ProgIDFromCLSID(clsid,&pwszProgID45))))
            {
                str = pwszProgID45;

                ::MessageBox(NULL,str,"IPersist",MB_OK);
                CoTaskMemFree(pwszProgID45);
            }
        }
    }
CComPtr<IPersistStream> spPersistS;
    hr = pDispatch->QueryInterface(IID_IPersistStream, (void**)&spPersistS);
    if (SUCCEEDED(hr))
    {
        //MessageBox(NULL, "IID_IPersistStream", "IID_IPersist", MB_OK);
        hr = spPersistS->GetClassID(&clsid);
        if (SUCCEEDED(hr))
        {
            //MessageBox(NULL, "GetClassID(&clsid);", "IID_IPersist", MB_OK);
            WCHAR* pwszProgID45 = NULL;
            if (!FAILED(hr =  (ProgIDFromCLSID(clsid,&pwszProgID45))))
            {
                str = pwszProgID45;
                
                ::MessageBox(NULL,str,"IPersistStream",MB_OK);
                CoTaskMemFree(pwszProgID45);
            }
        }
    }

но почемуто в зависимости от обьэкта получаю ответ либо Msxml2.DOMDocument - правельный для Msxml2.DOMDocument
либо StdFont - не правельный для stdole.StdFont

не понимаю в чём проблема

--------------------

The more closely you look at one thing, the less closely can you see something else.

xvr

Дата 1.11.2010, 18:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 8
Всего: 223

Видимо stdole.StdFont делегировал свое сохранение StdFont'у.
Через IPersistStream можно слить все состояние объекта, не вдаваясь в его CLSID или ProgID.
По идее можно будет и восстановить

RastaDja

Дата 2.11.2010, 14:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 337
Регистрация: 1.11.2010

Репутация: 1
Всего: 5

ладно, спасибо за помощь

--------------------

The more closely you look at one thing, the less closely can you see something else.

RastaDja

Дата 3.11.2010, 09:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 337
Регистрация: 1.11.2010

Репутация: 1
Всего: 5

Все нормально, StdFont, как и stdole.StdFont создаётся нормально Set f = CreateObject("StdFont")
ну а данные буду писать через IPersistStream

--------------------

The more closely you look at one thing, the less closely can you see something else.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C/C++: COM/DCOM/ActiveX/ATL/CORBA \| Следующая тема »