Форум 'COM/DCOM/ActiveX' на RSDN

Встраивание окна Microsoft Word в свое приложение

Thu, 20 Jul 2023 21:05:58 GMT

Я как-то встраивал окно MS Word в свое приложение (OLE Automation). Эта интеграция работала начиная с офиса 2003 и работала до офиса 2016. Но заметил, что на новом офисе 2019 и 2020 окно не встраивается, а открывается отдельно от приложения.
Не могу понять куда копать. Если кто-то работал в этом направлении, то могу более подробно уточнить.
Пока не могу понять что изменилось (версия офиса или версия Windows 11). На Windows 11 даже Office 2013 при интеграции некорректно ресайзится.
Может есть готовые собранные экзешники, чтобы мог проверить как в сторонних программах происходит встраивание окна. Может проблема на уровне настройки MS Word.

Регистрация COM-объекта из своей программы

Thu, 20 Jul 2023 09:21:18 GMT

При регистрации СОМ объекта в своей программе вызов функции CODllRegisterServer из своей задачи выдает ошибку 0x80070005 "Отказано в доступе" Системная утилита Regsvr32 регистрирует COM-объекты только когда запущена под администратором системы. Думаю, для регистрации новых COM-объектов не хватает каких-то привилегий

Интерфейс объявлен только в h-файле, но не idl

Mon, 03 Jul 2023 08:17:19 GMT

Хочу написать свои собственные Сom объекты, который будит работать с Direct D2. Для их инициализации им нужно передать интерфейс ID2D1DeviceContext и рад методов будут принимать и возвращать указатели на интерфейсов вида ID2D1xxx, которые объявлены только в h-файлах, в частности D1D2.h, D1D2_1.h и др., но не объявлены ни в одном файле idl.
Новые интерфейсы я объявляю в IDL-файле.
Как я понял, чтобы объявить в моих интерфейсах аргументы, которые указывают на эти интерфейсы, они должны быть объявлены в IDL-файлах
Среда разработки MSVS 2015 C++

static_cast и COM интерфейсы

Wed, 01 Feb 2023 11:05:36 GMT

Здравствуйте

В моей программе COM интерфейс IWICBitmapDecoder передается моему управляющему элементу через lParam сообщения.
Чтобы в оконной функции использовать параметр lParam как указанный COM интерфейс, использую следующую код:

IWICBitmapDecoder *pDecoder = static_cast<IWICBitmapDecoder*>((void*)lParam);
if (pDecoder != nullptr)
{
    lResult = ecSetWICDecoder(pDecoder);
}

Конструкция вроде работает правильно, но встает вопрос: нужно ли в данном коде для освобождения ресурсов использовать метод Release интерфейса IUnknown или нет?

IActiveScript и модули.

Wed, 11 Jan 2023 13:28:30 GMT

Всем привет!

Пытаюсь к основному скрипту (VBS) подключить другой в виде модуля.
Для этого вызываю IActiveScript::AddNamedItem() с флагом SCRIPTITEM_CODEONLY.
Сначала добавляю модуль:

rc = pScript->AddNamedItem(L"Mod1", SCRIPTITEM_ISVISIBLE | SCRIPTITEM_CODEONLY);
rc = pParse->ParseScriptText(pszSrc, L"Mod1", NULL, NULL, 0, 0, SCRIPTTEXT_ISVISIBLE, NULL, &e);

Потом добавляю основной скрипт. Перевожу в состояние Connected.

rc = pParse->ParseScriptText(pszSrc, NULL, NULL, NULL, 0, 0, SCRIPTTEXT_ISVISIBLE, NULL, &e);

Затем получаю информацию об основном модуле:

rc = pScript->GetScriptDispatch(NULL, &pDisp);
rc = pDisp->GetTypeInfo(0, LOCALE_SYSTEM_DEFAULT, &pType);

При вызове последней строки прилетает вызов GetItemInfo для "Mod1". Согласно доке, у "сайта" нет ничего для этого модуля и он должен в качестве интерфейса вернуть NULL. Но скриптовый движок так не считает и использует NULL как живой интерфейс с предсказуемым итогом. При выполнении скрипта история с GetItemInfo повторяется.

Если вместо NULL вернуть IDispatch модуля, то все работает. Но это противоречит доке...

Может кто знает, в чем подвох?

pywin32 не видит 32-х битный COM-сервер

Wed, 30 Nov 2022 08:25:50 GMT

Мне нужно подключиться к 32-х битному COM-серверу из Python.
ОС: Windows 10 x64.
Устанавливаю Python 3.11 (32-bit).
Устанавливаю pywin32:

pip install pywin32

судя по логам устанавливается 32-х битная версия:

pywin32-305-cp311-cp311-win32.whl (11.0 MB)

Пытаюсь получить доступ к COM-объекту:

import win32com.client
rastr = win32com.client.Dispatch("Astra.Rastr")

Получаю ошибку:
pywintypes.com_error: (-2147221005, ‘Недопустимая строка с указанием класса’, None, None)

Нужная мне программа имеет и 64-х битную версию. Когда я ее устанавливаю, все работает отлично. Но мне нужна именно 32-х битная версия.

Вопрос: почему я не могу получить доступ к 32-х битной версии COM-объекта из 32-х битной версии Питона и 32-х битной версии pywin32? Кто-нибудь сталкивался с этим? В какую сторону мне копать?

com и regsvr32 - вопрос

Thu, 10 Nov 2022 22:48:37 GMT

Такой вопрос. regsvr32 только делает либу узнаваемой для системы, т.е. к ней можно обратиться по GUID? Сама же библиотека все-равно не загружается до того, как ее вызовут? Почему называется DllRegisterServer?

Проблема с инициализацией COM

Wed, 02 Nov 2022 09:34:54 GMT

Здравствуйте.

Как известно, в ОС Windows существует несколько способов инициализации COM системы:

В моей программе планируется использовать перетаскивание файлов с помощью интерфейса IDropTarget и DirectShow. Причем DirectShow будет использоваться в нескольких потоках. Следовательно, COM система должна инициализироваться с помощью функции CoInitializeEx с флагом COINIT_MULTITHREADED. Но когда я инициализирую так COM систему функция RegisterDragDrop возвращает ошибку. Она требует, чтобы COM система инициализировалась с помощью функции OleInitialize. Но она инициализирует COM систему только в том потоке, в котором была вызвана.

Есть ли способ инициализации COM системы для нескольких потоках и чтоб функция RegisterDragDrop не возвращала ошибку?

Заранее благодарен
P/S Проект WINAPI+STL пишется в C++ MSVS 2015

Где прописан ProgId диспетчерского интерфейса?

Thu, 11 Mar 2021 10:33:10 GMT

Всем привет, используем драйвер фискального регистратора, создаем просто через COleDispatchDriver:

::CoInitialize(nullptr);
m_isInitialized = m_fiscalPrinter->CreateDispatch(_T("Addin.DrvFR"), &ex) == TRUE;

На одном из компьютеров, упорно не создается таким способом, при получении системной ошибки получаем "Класс не зарегистрирован"
Из этого и возник вопрос где в реестре храниться этот ProgId "Addin.DrvFR".
Искал в реестре компа на котором все работает находим в реестре \HKEY_CLASSES_ROOT\Addin.DrvFR там есть \HKEY_CLASSES_ROOT\Addin.DrvFR\ClsId но он пуст, непонятно как он связан с COM-объектом?
На компьютере где не работает тоже самое в реестре, но увы не работает. Как формируется ProID диспетчерского интерфейса, как имея ProgId найти нужный Com — объект ?

Подписаться на изменения в буфере обмена. Как?

Sat, 13 Feb 2021 15:36:03 GMT

Добрый!

Подскажите, пожалуйста, как можно, например из 1С, подписаться на изменения в буфере обмена?

Помощь с DCOM

Thu, 11 Feb 2021 15:16:05 GMT

Добрый день

На горизонте моячит новая работа связанная с DCOM(COM) технологиями.

В процессе ознакомления с ТЗ сформированным заказчиком, возникло несколько вопросов связанных с хотелками заказчика и возможностями технологии COM.

Если сейчас не вдаваться в тонкости всего ТЗ.
То на повестки дня стоит вопрос — можно ли из существующего сервера( сервер является DCOM сервером, в виде исполняемого файла) получить список компонентов поддерживаемый этим сервером, и получить список всех функций и список параметров функций?

P.S. Прошу прощение у народа за возможные не точности в постановке вопроса в части COM терминов. У меня другая специализация. А этим вопросом меня загрузили всего несколько часов назад. Так как я еще не шибко образован в данной области.

Прошу помощи в получении SAFEARRAY с помощью InvokeHelper

Wed, 22 Apr 2020 04:33:50 GMT

Всем привет, у одного из драйверов есть COM оболочка , на которой все написано, частью методов пользовались частью нет, и вот понадобилось воспользоваться методом который возвращает SAFEARRAY и возникла проблема.
Изначально студия сгенерировала MFC оболочку на основе COleDispatchDriver выглядит примерно так:

class CFptr : public COleDispatchDriver
{
public:
    CFptr() {} // Calls COleDispatchDriver default constructor
    CFptr(LPDISPATCH pDispatch) : COleDispatchDriver(pDispatch) {}
    CFptr(const CFptr& dispatchSrc) : COleDispatchDriver(dispatchSrc) {}
...
    CString getParamStr(long paramId) {
        CString result;
        static BYTE parms[] = VTS_I4;
        InvokeHelper(0x18, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms, paramId);
        return result;
    }
    SAFEARRAY * getParamByteArray(long paramId)
    {
        static BYTE parms[] = VTS_I4;
        InvokeHelper(0x1a, DISPATCH_METHOD, VT_EMPTY, nullptr, parms, paramId);
    }

Сам студийный генератор в оболочку сгенерировал ошибку в методе getParamByteArray. Вообще с SAFEARRAY я работал раньше, но не через InvokeHelper, тут я перепробовал различные варианты, но результат один исключение во время вызова.Пробовал написать вот таким образом, но результат тот же, исключение:

    SAFEARRAY * getParamByteArray(long paramId) {
        CComSafeArray<BYTE> arr(1024);
        static BYTE parms[] = VTS_PI4;
        InvokeHelper(0x1a, DISPATCH_METHOD, VT_ARRAY, (void*)&arr, parms, paramId);        
        return arr.Detach();
    }

С помощью OleView создал idl-file этого COM, этот метод выглядит вот таким образом:

[id(0x0000001a)]
        HRESULT getParamByteArray(
                        [in] long paramId, 
                        [out, retval] SAFEARRAY(unsigned char)* value)

Подскажите кто в курсе как получить SAFEARRAY c помощью InvokeHelper?

Утечка памяти

Thu, 05 Dec 2019 14:18:34 GMT

Снимаю данные с векторного рефлектометра серии CABAN
http://www.planarchel.ru/Products/Measurement%20instrument/r-series/

В доках пример на VC (СОМ интерфейс)
Если убрать лишнее получится
#import "C:\RVNA\RVNA.exe" no_namespace
IRVNAPtr pNWA; // Pointer to COM object of RVNA.exe
CComVariant Data; // Variable for measurement data

CoInitialize(NULL);
pNWA.CreateInstance(__uuidof(RVNA))

pNWA->SCPI->TRIGger->SEQuence->SINGle();
Data = pNWA->SCPI->CALCulate[1]->SELected->DATA->FDATa;
CComSafeArray<double> mSafeArray;
mSafeArray.Attach(Data.parray);
........................................
mSafeArray.Detach();
pNWA.Release();
CoUninitialize();

Пишу на BCB6

#include "R54Lib_TLB.h" // вместо #import "C:\RVNA\RVNA.exe"

VARIANT Data;
IRVNAPtr pNWA;
pNWA = CoRVNA::Create();
pNWA->SCPI->TRIGger->SEQuence->SINGle();

Data = pNWA->SCPI->get_CALCulate(1)->SELected->DATA->get_FDATa();

TSafeArrayT <double,VT_R8,1> mSafeArray;
mSafeArray.Attach(Data.parray);
........................................
mSafeArray.Detach();
Утечка видимо происходит на на строчке выделенной болдом

Прошу помощи.

IE 11 + mime фильтр

Fri, 20 Sep 2019 20:35:11 GMT

Имеется зарегистрированный в реестре mime фильтр. Любое приложение, использующее системный WebBrowser, видит этот фильтр и использует его. Но сам IE его использует с ограничением ~~- для https фильтр не вызывается. Как я понимаю — это какое-то security restriction~~. Можно ли как-то под настроить, что бы убрать это ограничение?

Update. Оказалось, что дело не в https, а как то более не понятно. Фильтр обрабатывает image/jpeg. Если в строке адреса забить прямой URL картинки, то фильтр вызывается, но для картинок, ссылки на которые идут из html кода, уже нет.

Правила возврата указателя и кода результата

Mon, 19 Aug 2019 20:50:48 GMT

В документации явно сказано, что QueryInterface, CoCreateInstance, DllGetClassObject и некоторые другие функции/методы в случае ошибки всегда возвращают нуль в переменную для адреса интерфейса. Однако, нигде не нашел утверждения о том, что это общее и обязательное правило. Зато обнаружил, что в коде многих COM-серверов это широко используется, и даже стоят assert'ы, проверяющие, чтобы при ошибке указатель всегда был нулевым.

Это просто добровольная страховка, или где-то установлено, как требование? Нужно ли при реализации COM-сервера всегда соблюдать это правило?

Проблема с подключением к серверу OPC DA

Tue, 13 Aug 2019 15:41:49 GMT

Доброго времени суток! Года два назад написал OPC-клиент, который успешно функционировал со всем разнообразием OPC-серверов, предложенных ему. И вот появился на горизонте PcVue со своим OPC-сервером. Я нормально получаю CLSID и на CoGetClassObject() все заканчивается с кодом 0x80040154 "Class not registered". Причем другие OPC-клиенты, например, Matrikon OPC Explorer, нормально с ним работают. Может быть, есть мысль, почему так может быть? Спасибо!
ЗЫ: Все исключительно на локальной машине

Как ориентироваться в COM?

Sat, 10 Aug 2019 18:52:51 GMT

В Windows есть много COM объектов, но как в них ориентироваться? К примеру, как найти объекты для работы с файловой системой или реестром? С WinApi проще, оно отсортировано по категориям в MSDN, да и книжек полно. Для СОМ я что-то никак не могу понять, откуда копать. Посоветуйте, пожалуйста.

Проблемы с встраиванием окна редактора MS Word в свое приложение

Fri, 24 May 2019 06:50:46 GMT

Как писал раньше я встраиваю окно MS Word в свое приложение. Окно Word встраивается и работает отлично. Но если я в Windows 10 устанавливаю масштаб всего интерфейса Windows на 125% или 150%, то при инициализации такого окна оно вместо встроенного появляется в виде отдельного окна Mirosoft Word, которое запускается в виде отдельного приложения.
Когда начал анализировать, то увидел, что при нормальном вызове, когда окно получается встроенным, то после запуска DoVerb(...) состояние m_nItemState == activeUIState, а если увеличить масштаб интерфейса Windows, то m_nItemState == openState.
Не понимаю что упустил при инициализации, чтобы окно всегда запускалось как встроенное окно.

Отобразить строку состояния

Thu, 16 May 2019 17:51:39 GMT

Я интегрировал в своем приложении окно MS Word. Окно отображается корректно, но не могу отобразить строку состояния с MS Word.
Все ненужные панели с ControlBar я убрал, но status bar никак не удается отобразить.
В MS Word пробовал с помощью макроса отображать или убирать status bar. Все работает. А в моем приложении не работает.
Пример макроса:

Sub ShowStatusBar()
With Application.CommandBars("Status Bar")
.Visible = True
End With
End Sub

Сохранение jpg-файла с помощью WIC

Fri, 19 Apr 2019 20:26:36 GMT

Я сохраняю графику в jpg-Формате с помощью Windows Image Component. Реализую это в следующем коде

HRESULT ImageViewWnd::SaveToJPG(LPCTSTR pszFileName, float fQuality)
{
    IWICBitmap *pBitmap = NULL;
    IWICBitmapEncoder *pEncoder = NULL;
    IWICBitmapFrameEncode *pFrame = NULL;
    IPropertyBag2 *pPropertyBag = NULL;
    IWICStream *pStream = NULL;
    PROPBAG2 Property;
    HRESULT hRes;
    if (m_pImageFactory == NULL)
    {
        return E_NOINTERFACE;
    }
    hRes = m_pImageFactory->CreateBitmapFromHBITMAP(m_hBitmap, NULL, WICBitmapIgnoreAlpha, &pBitmap);
    if (FAILED(hRes))
    {
        return hRes;
    }
    hRes = m_pImageFactory->CreateEncoder(GUID_ContainerFormatJpeg, NULL, &pEncoder);
    if (FAILED(hRes))
    {
        SAFERELEASE(pBitmap);
        return hRes;
    }
    hRes = m_pImageFactory->CreateStream(&pStream);
    if (FAILED(hRes))
    {
        SAFERELEASE(pBitmap);
        SAFERELEASE(pEncoder);
        return hRes;
    }
    hRes = pStream->InitializeFromFilename(pszFileName, GENERIC_WRITE);
    if (SUCCEEDED(hRes))
    {
        hRes = pEncoder->Initialize(pStream, WICBitmapEncoderNoCache);
    }
    if (SUCCEEDED(hRes))
    {
        hRes = pEncoder->CreateNewFrame(&pFrame, &pPropertyBag);
    }
    if (FAILED(hRes))
    {
        SAFERELEASE(pBitmap);
        SAFERELEASE(pEncoder);
        SAFERELEASE(pStream);
        return hRes;
    }
    ZeroMemory(&Property, sizeof(PROPBAG2));
    Property.pstrName = L"ImageQuality";
    VARIANT vQuality;
//    ZeroMemory(&vQuality, sizeof(VARIANT));
    VariantInit(&vQuality);
    vQuality.vt =  VT_R4;
    vQuality.fltVal = fQuality;
    hRes = pPropertyBag->Write(1, &Property, &vQuality);
    if (SUCCEEDED(hRes))
    {
        hRes = pFrame->Initialize(pPropertyBag);
        if (SUCCEEDED(hRes))
        {
            hRes = pFrame->WriteSource(pBitmap, NULL);
            if (SUCCEEDED(hRes))
            {
                hRes = pFrame->Commit();
                if (SUCCEEDED(hRes))
                {
                    hRes = pEncoder->Commit();
                }
            }
        }
    }
    SAFERELEASE(pPropertyBag);
    SAFERELEASE(pEncoder);
    SAFERELEASE(pStream);
    SAFERELEASE(pBitmap);
    return hRes;
}

Картинка сохраняется правильно.
Есть подозрение, что данный код не закрывает файл, так как невозможно открыть полученный файл в любой программе, пока данная программа не будет выгружена. Что это: очередной баг от Microsoft, или это как-то лечится?