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

IMAPI2 и запись на CD/DVD

Thu, 11 Mar 2010 15:51:24 GMT

Есть возможность использовать запись на диски посредством IMAPI2 под учетной записью с ограниченными правами?
Под администратором все работает без проблем, а под ограниченными правами не работает.
На codeproject также есть пример использования, но там проблема повторяется.
http://www.codeproject.com/KB/winsdk/IMAPI2.aspx?msg=2741914

Как узнать какой процесс создал объект в ROT

Wed, 10 Mar 2010 04:02:20 GMT

Есть несколько инстансов одного и того же объекта в ROT. Я знаю какой процесс создает такой объект. Проблема в том что таких процессов несколько. Уважаемые коллеги не подскажете как выяснить какой процесс является создателем конкретного инстанса?

Освобождение BSTR

Sat, 06 Mar 2010 13:05:11 GMT

MSXML::IXMLDOMNodePtr node;
.....
CString name = (BSTR)(node->nodeName);

Нужно вызывать SysFreeString ?

IHTMLDocument2 и JScript

Thu, 04 Mar 2010 10:16:47 GMT

Использую windows scripting host (JScript), мой процесс запускается под low inegrity, вопрос такой: как можно реализовать доступ из JScript'a к интерфейсам IHTMLDocument2 и HTMLElement ?

doc = new ActiveXObject('htmlfile') не годится, тк под урезанными правами доступа к этому объекту нет! Уверен что можно просто реализовать этот доступ, но не до конца понимаю как.

Заранее благодарен за помощь.

Сохранить "кофейный" объект

Wed, 03 Mar 2010 22:10:04 GMT

Привет, алл!

Столкнулся с проблемой, моё приложение, используя IActiveScript выполняет "кофейный" скрипт. Скрипт создаёт переменную result и присваевает ей значение, например:

var result = 'result' ;

или

var a= 100 ;
var b = 27 ;
var result = a - b ;

Программа получает значение переменной и сохраняет в файле. При простых типах всё нормально, также переменная может содержать msXml.DomDocument — тоже всё в порядке, программа получает интерфейс IPersistStream и полученный поток сохраняет вместе с CLSID. Проблема вот в чём: бывает, необходимо чтобы скрипт присвоил result некоторый java-объект, например:

var result = {
   param1 : "param1" ,
   param2 : 2
} ;

result при этом содержит IDispatch. QueryInterface говорит, что интерфейс IPersistStream(как впрочем и другие IPersist'ы) у реализации отсутствуют. Как мне гарантировано определить, что это "кофейный" объект и как мне его сохранить?

Получить список доступных COM/DCOM/ActiveX объектов

Wed, 03 Mar 2010 10:23:37 GMT

В общем необходимо получить список COM/DCOM/ActiveX объектов в системе. поискал по инету, ничего не нашлось. подскажите куда стоит копать? что почитать? если есть где статьи или примеры кода было бы очень здорово.

Плагин работающий сразу со всеми вкладками(документами) IE

Tue, 02 Mar 2010 14:02:28 GMT

Хочу сделать плагин, который выполняет некоторые действия сразу во всех открытых вкладках IE8.
Интерфейс IWebBrowser, получаемый в плагине, позволяет работать только с текущей активной вкладкой IE. Как получить IWebBrowser'ы для всех открытых вкладок(html документов)?

srcElement события в IE

Mon, 01 Mar 2010 14:49:39 GMT

есть html, что-то вроде:

<a href="..." target="...">
   текст1
   <span>текст2</span>
   текст3
</a>

есть подписка на события(HTMLAnchorEvents2::onclick) от элемента a.
событие срабатывает как при клике на а так и при клике на span.
свойство srcElement(у IHTMLEventObj) при этом возвращает элемент, на который непосредственно произошел клик(span или а).

можно ли не косвенным путем при этом получить указатель на интерфейс элемента, на который я подписывался?
в IHTMLEventObj, IHTMLEventObj2, IHTMLEventObj3 такого вроде не нашел.

Aggregation of connnection points

Mon, 01 Mar 2010 10:27:54 GMT

Здравствуйте, недавно пришлось столкнуться с технологией COM. И, по ходу работы, возник следующий вопрос. Можно ли с помощью агрегации пробросить Connection Points аггрегируемого класса? Простое добавление в ком карту
COM_INTERFACE_ENTRY_AGGREGATE(IID__IOrderResponseEvent, ordersRequestServiceUnk_), — не помогло (что в принципе и ожидалось).
При агрегации простого интерфейса этого же класса, проблем не возникло. как же быть с connection points? Не хочется внутри главного кокласса создавать инстанс агрегируемого кокласа и агрегировать его простым С++'м способом только ради проброски ивентов. Надеюсь, что технология это позволяет. Заранее спасибо!

использование Excel ошибка линковки

Sat, 27 Feb 2010 07:25:49 GMT

неподскажете в чем трабл?
У меня Excel 2007, Visual Studio 2005
подключаю Excel так

#import "progid:Excel.Sheet.8" auto_search auto_rename rename_search_namespace("Office9") \
           rename("DialogBox","_DialogBox") \
        rename("RGB","_RGB") \
        exclude("IFont","IPicture")

Далее использую так:

 using namespace Excel;
   _ApplicationPtr pXL;
 try
 {
      pXL.CreateInstance(L"Excel.Application");
      pXL->Visible[0] = VARIANT_TRUE;
      WorkbooksPtr pBooks = pXL->Workbooks;
      // Создание новой книги
    _WorkbookPtr pBook  = pBooks->Add((long)xlWorksheet);

 _WorksheetPtr pSheet = pXL->ActiveSheet;
   pSheet->Name = L"Реестр за !";
   RangePtr pRange = pSheet->Cells;
   RangePtr pCell;
   const _variant_t r1(0),r2(1);
 
   pCell = pRange->Item[3][1]; // A3

и на последней строчке линковщик ругается
1>PrintMng.obj : error LNK2019: unresolved external symbol "long __cdecl _com_dispatch_method(struct IDispatch *,long,unsigned short,unsigned short,void *,wchar_t const *,...)" (?_com_dispatch_method@@YAJPAUIDispatch@@JGGPAXPB_WZZ) referenced in function "public: class _variant_t __thiscall Excel::Range::GetItem(class _variant_t const &,class _variant_t const &)" (?GetItem@Range@Excel@@QAE?AV_variant_t@@ABV3@0@Z)
1>Debug\officenbt.exe : fatal error LNK1120: 1 unresolved externals

если коментирую последнюю строчку все работает супер.
В список либов студии указал путь к excelю и не помогает. Помогите очень нада.

Передача параметров в Word::Documents::Open через IDispatch

Wed, 24 Feb 2010 15:28:47 GMT

Всем привет! Вопрос по автоматизации в MS Word 2003. Кажется что текста много, но это из-за форматирования: 2 последних листинга — 1 вызов и 1 объявление функции=). В целом, ситуация такая: имеется Word:_Document, у которого берем свойство Content, у которого потом запрашиваем св-во XML. Получаем хороший, годный XML, который пишем в файл ("D:\Xzz\xxx.xml"). Полученный файл успешно открывается вордом ("$> WINWORD.EXE xxx.xml"). Пытаюсь проделать то же через IDispatch, но не могу сообразить как правильно передать параметры в IDispatch::Invoke — все время получаю "hr = 0x80020005 Type missmatch". Вызов выглядит след. образом:

HRESULT CallByIDispatch(
    int nCallType
    , VARIANT * pvRes
    , IDispatch * pDisp
    , LPOLESTR pName
    , int cArgs
    ...) 
{
    ATLASSERT(pDisp && _T("CallByIDispatch, NULL IDispatch * passed!"));
    if (! pDisp) 
        return E_POINTER;

    va_list marker;
    va_start(marker, cArgs);

    DISPID disp_id;
    HRESULT hr = pDisp->GetIDsOfNames(IID_NULL, &pName, 1, LOCALE_USER_DEFAULT, &disp_id);
    ATLTRACE(_T("IDispatch::GetIDsOfNames(\"%s\") result: 0x%08X\n"), static_cast< LPCTSTR >(_bstr_t(pName)), hr);
    ATLASSERT(SUCCEEDED(hr) && _T("CallByIDispatch, IDispatch::GetIDsOfNames"));
    if (FAILED(hr)) 
        return hr;
   
    std::vector< VARIANT > args;
    args.reserve(cArgs);
    for(int i = 0; i < cArgs; ++i) {
        args.push_back(va_arg(marker, VARIANT));
    }
   
    DISPPARAMS dp = { 0, 0, 0, 0 };
    dp.cArgs = cArgs;
    dp.rgvarg = &args[0];
    DISPID disp_id_named = DISPID_PROPERTYPUT;
    if (nCallType & DISPATCH_PROPERTYPUT) {
        dp.cNamedArgs = 1;
        dp.rgdispidNamedArgs = &disp_id_named;
    }
   
    EXCEPINFO ei = { 0, 0, 0, 0, 0, 0, 0, 0, 0 };
    UINT ae = 0;
    hr = pDisp->Invoke(disp_id, IID_NULL, LOCALE_SYSTEM_DEFAULT, nCallType, &dp, pvRes, &ei, &ae);
    ATLTRACE(_T("IDispatch::Invoke(\"%s\" = 0x%08x) result: 0x%08X\n"), static_cast< LPCTSTR >(_bstr_t(pName)), disp_id, hr);
    if (FAILED(hr) && ei.bstrDescription != 0 && ei.bstrSource != 0) {
        if (ei.pfnDeferredFillIn != 0) {
            (*ei.pfnDeferredFillIn)(&ei);
        }
        CStringA sMsg;
        sMsg.Format(
            "Source: %s\r\nDescription: %s"
            , static_cast< LPCSTR >( _bstr_t(ei.bstrSource) )
            , static_cast< LPCSTR >( _bstr_t(ei.bstrDescription) )
        );
        ::MessageBox(::GetForegroundWindow(), sMsg.GetString(), _T("Automation error"), MB_SETFOREGROUND);
    }
    if (FAILED(hr)) 
        return hr;

    va_end(marker);
    return hr;
}

Эту функцию вызываю с такими (например) параметрами:

    _variant_t vfname(L"D:\\Xzz\\xxx.xml"), vres;
    _variant_t vfmt((long)Word::wdOpenFormatAuto), venc((long)Office::msoEncodingUTF8), vdir((long)Word::wdLeftToRight);
    _variant_t vfalse(static_cast< short >(0), VT_I2), vtrue(static_cast< short >(-1), VT_I2);
    _variant_t vpfname, vpfalse, vptrue, vpnull, vpfmt, vpenc, vpdir, vpres;
    vpfname.vt = VT_VARIANT | VT_BYREF;
    vpfname.pvarVal = &vfname;
    vpfalse.vt = VT_VARIANT | VT_BYREF;
    vpfalse.pvarVal = &vfalse;
    vptrue.vt = VT_VARIANT | VT_BYREF;
    vptrue.pvarVal = &vtrue;
    vpnull.vt = VT_VARIANT | VT_BYREF;
    vpnull.pvarVal = 0;
    vpfmt.vt = VT_VARIANT | VT_BYREF;
    vpfmt.pvarVal = &vfmt;
    vpenc.vt = VT_VARIANT | VT_BYREF;
    vpenc.pvarVal = &venc;
    vpdir.vt = VT_VARIANT | VT_BYREF;
    vpdir.pvarVal = &vdir;
    vpres.vt = VT_DISPATCH | VT_BYREF;
    vpres.ppdispVal = &vres.pdispVal;
    hr = Utils::CallByIDispatch(
        DISPATCH_METHOD
        , 0
        , spDocs
        , L"Open"
        , 17
        , vpfname
        , vpfalse
        , vpfalse
        , vpfalse
        , vpnull
        , vpnull
        , vpfalse
        , vpnull
        , vpnull
        , vpfmt
        , vpenc
        , vpfalse
        , vpdir
        , vptrue
        , vpfalse
        , vpfalse
        , vpres
    );

В 2003 ворде метод Documents::Open объявлен как:

    [
      odl,
      uuid(0002096C-0000-0000-C000-000000000046),
      version(8.3),
      helpcontext(0x0000096c),
      dual,
      nonextensible,
      oleautomation
    ]
    interface Documents : IDispatch {
    ...
    [id(0x00000013), helpcontext(0x096c0013)]
    HRESULT Open(
                        [in] VARIANT* FileName, 
                        [in, optional] VARIANT* ConfirmConversions, 
                        [in, optional] VARIANT* ReadOnly, 
                        [in, optional] VARIANT* AddToRecentFiles, 
                        [in, optional] VARIANT* PasswordDocument, 
                        [in, optional] VARIANT* PasswordTemplate, 
                        [in, optional] VARIANT* Revert, 
                        [in, optional] VARIANT* WritePasswordDocument, 
                        [in, optional] VARIANT* WritePasswordTemplate, 
                        [in, optional] VARIANT* Format, 
                        [in, optional] VARIANT* Encoding, 
                        [in, optional] VARIANT* Visible, 
                        [in, optional] VARIANT* OpenAndRepair, 
                        [in, optional] VARIANT* DocumentDirection, 
                        [in, optional] VARIANT* NoEncodingDialog, 
                        [in, optional] VARIANT* XMLTransform, 
                        [out, retval] Document** prop);
    };

Как же его все-таки правильно вызвать? Нужно ли добавлять DISPATCH_PROPERTYGET и убрать последний параметр или еще что-то? Спасибо за внимание.
P.S. Вызывать нужно именно через IDispatch (т.к. все остальное должно работать и для 2002), поэтому вариант "импортировать tlb от 11-офиса" не годится.

Зарегистрирован ли объект?

Wed, 24 Feb 2010 10:14:03 GMT

Как можно проверить, зарегистрирован ли объект в системе?
Один из способов — попытка создать объект с помощью CoCreateInstance.
Какие еще есть варианты без инстанцирования объектов?
В реестре тоже ничего самому искать нельзя.

Спасибо!

Как вызвать IContextMenu::InvokeCommand в фоне?

Sun, 21 Feb 2010 22:15:51 GMT

Приветствую!

Есть приложение, которое успешно показывает меню от Проводника через интерфейсы IContextMenu/IContextMenu2/IContextMenu3, однако операция при вызове InvokeCommand() может растянутся, особенно, если там копирование файлов началось. Потому возникает вопрос: как запихнуть его вызов в отдельную рабочую нить? К сожалению IContextMenu не зарегистрирован и соответственно не имеет маршалинга. Я даже попробовал сделать сборку меню QueryContextMenu() и вызов InvokeCommand() в одной нити, а вызов TrackPopupMenu() в основной, но при этом что-то ломается внутри меню и часть команд из него перестают работать (копи-пасты, свойства и часть SendTo).

CORBA read timeout

Sat, 20 Feb 2010 16:12:21 GMT

привет,

вот впервые столкнулся с CORBA (IONA ORBIX) и такой проблемой:

есть CORBA сервер, к-рый я могу пересобрать если надо
есть Java клиент, к-рый есть web service на Apache+Axis (клиента я тоже могу править)
когда вызов метода CORBA объекта превышает 60 сек, клиент получает эксепшен "blah blah Read timeout"

вопрос: что это за такой таймаут и как его наиболее простым способом увеличить? посоветуйте познавательный ресурс по CORBA.

Передача массива в с++ библиотеку из VB

Thu, 18 Feb 2010 11:35:43 GMT

Пишу ком компонентик в шестой студии га с++
Вот описание кокласса на idl

[object, uuid(4DBC7694-B894-435e-A9C3-1DD34A4B5C01), dual,
helpstring("")]
interface IFilter : IDispatch
{

[id(0)] HRESULT SetData([in] VARIANT i_Data);

[id(1)] HRESULT GetFilteredData();

};

[uuid(FC251E98-D37E-4abe-9EE7-5E85F4DF054F), version(1),
helpstring("Filtration library")]
library Filtration{
importlib ("stdole32.tlb");
[uuid(3EAEECF8-167D-4d73-9025-C85B3CD9A30C)]
coclass Filter
{
[default] interface IFilter;
};
};

Соответственно из VB мне надо передать массив (метод SetData)

Djт код VB

Private Sub Command1_Click()
Dim Arr(0 To 10) As Double

Arr(0) = 0
Arr(1) = 1
Arr(2) = 2
Arr(3) = 3.3
Arr(4) = 4.6
Arr(5) = 7.77777
Arr(6) = 7777.77777
Arr(7) = 7.77777

Obj.SetData Arr
End Sub

При вызове ругается variable uses an automation type not supported in visual basic

Что я делаю не так и как правильно передавать массивы в с++ библиотеки?

Ищу книгу Inside OLE Брокшмидта

Wed, 17 Feb 2010 12:36:14 GMT

Здравствуйте, коллеги!

Ищу книгу Inside OLE Брокшмидта, что-то не найти. Гуглить пробовал , не помогает ;(
И, кстати, русский перевод данной книги существует?

Ошибки при работе со строками

Tue, 16 Feb 2010 18:19:05 GMT

Есть код

STDMETHODIMP CFilters::GetIPPActual(OUT _variant_t *info)

{
    if (!info)
        return E_FAIL;

    LPCSTR plugin_info; 
    cvGetModuleInfo(0,0,&plugin_info);
    *info = (_bstr_t)plugin_info;

    return S_OK;
}

Ошибки такие
Creating library .\M___Win32_Debug/M.lib and object .\M___Win32_Debug/M.exp

contprop.obj : error LNK2019: unresolved external symbol "char * __stdcall _com_util::ConvertBSTRToString(wchar_t *)" (?ConvertBSTRToString@_com_util@@YGPADPA_W@Z) referenced in function "public: char const * __thiscall _bstr_t::Data_t::GetString(void)const " (?GetString@Data_t@_bstr_t@@QBEPBDXZ)

Filters.obj : error LNK2019: unresolved external symbol "wchar_t * __stdcall _com_util::ConvertStringToBSTR(char const *)" (?ConvertStringToBSTR@_com_util@@YGPA_WPBD@Z) referenced in function "public: __thiscall _bstr_t::Data_t::Data_t(char const *)" (??0Data_t@_bstr_t@@QAE@PBD@Z)
../bin\M.ax : fatal error LNK1120: 2 unresolved externals

в чем проблема? (я так понял что именно из этого куска кода ошибки )

17.02.10 12:13: Перенесено модератором из 'C/C++' — Кодт

IHTMLElement::put_innerHTML не парсит код

Tue, 16 Feb 2010 11:03:54 GMT

Есть bho.
В OnDownloadComplete редактирую html.
Создание и добавление элементов через IHTMLDocument2::createElement, IHTMLElement::setAttribute, IHTMLDOMNode::appendChild и т.д. — все работает.
Но когда html добавляется через put_innerHTML — то его как будто нету.

результат такого кода:

//CHTMLElementPtr, CHTMLElementPtr, CHTMLNodePtr - обертки для соответствующих web browser интерфейсов
CHTMLElementPtr item = html_doc.create_element( L"tr" );
                    
item->set_id( el_id.c_str() );
item->set_attribute( L"status_time", CHTMLAttributeValue(mess_info->get_created()) );
item->set_attribute( L"updated_time", CHTMLAttributeValue(mess_info->get_updated_date()) );

CHTMLElementPtr td = html_doc.create_element(L"td");
td->set_attribute( L"width", CHTMLAttributeValue(L"60") );

CHTMLStylePtr td_style = td->get_style();
td_style->set_vertical_align( L"top" );
td->set_attribute( L"align", CHTMLAttributeValue(L"center") );

//innerhtml = <div class="..."><a target="_blank" href="http://www...." title="..."><img class="..." src="..."/><img src="..." class="..." /></a></div>
td->set_innerHTML( inner_html ); //тут вызывается IHTMLElement::put_innerHTML и возвращает S_OK

CHTMLNodePtr item_node = *item;
item_node->append_child( td->to_node() );

//потом этот элемент(item_node) добавляется к странице.

В итоге на странице это выглядит так:

<tr id="..." status_time="..." updated_time="..." >
<td width="60" align="center" style="vertical-align: top;"/>

добить DISPID_NEWWINDOW2

Mon, 15 Feb 2010 22:07:47 GMT

Эта тема поднималась на форуме много раз, но я так и не нашел рабочего решения.
Суть задачи: открывать все ссылки в одном и том же окне IE(6-8).
Сокращенный вариант обработки события DISPID_NEWWINDOW2:

*(pDispParams->rgvarg[0].pboolVal)=VARIANT_FALSE;
IDispatch *pDisp;
g_pSite->get_Application(&pDisp);
if(pDispParams->rgvarg[1].ppdispVal[0])
    pDispParams->rgvarg[1].ppdispVal[0]->Release();
*pDispParams->rgvarg[1].ppdispVal = pDisp;

не работает.
Просто блокирует новые окна и все. Если не вызывать Release(), то новое окно один х открывается.
Попробовал код из этого топа- не работает.
Видимо, я чего-то не догоняю или неправильно делаю. Мсдн читал, в гугле искал, на форуме — тоже.
Есть, конечно, другие способы решить данную задачу, но здесь о них говорить (пока) не хотелось бы.
Буду признателен за помощь. Данке шён.

не могу создать диалог с activex

Fri, 12 Feb 2010 08:34:03 GMT

Пишу shellextension как это описано в статье http://www.rsdn.ru/?article/winshell/shlext5.xml
Расширение оболочки для добавления новых страниц в набор свойств файлов
с одним изменением -- добавил activex контрол на диалог.
Диалог не создается. (Без activeX создается)
addPages завершается без ошибок.
в PropPageDlgProc приходит сообщение WM_SETFONT а потом сразу WM_DESTROY.
Сообщений об ошибках нигде нет.

Вопрос1: что я делаю не так?

проинициализировать апартаменты пробовал. CoInitializeEx(0,0) и OleInitialize(0); (ставил эти строчки в PropPageCallbackProc и PropPageDlgProc)
хотя понятно что это и не должно было как-то повлиять

для исследования можно попытаться создать вручную контрол при инициализации диалога.
Вопрос2: как это сделать?
CreateWindowEx("GuidControl'a")?

HRESULT SimpleShlExt::AddPages(LPFNADDPROPSHEETPAGE add_page_proc, LPARAM param)
{ 
  PROPSHEETPAGE psp;
  psp.dwSize  = sizeof(psp);
  psp.dwFlags = PSP_USEREFPARENT | PSP_USETITLE | PSP_DEFAULT | PSP_USECALLBACK;
  psp.hInstance = GetModuleInstance();
  psp.pszTemplate = MAKEINTRESOURCE(IDD_FILETIME_PROPPAGE);
  psp.pszTitle = "yyy";
  psp.pfnDlgProc = PropPageDlgProc;
  psp.lParam = (LPARAM)_tcsdup("xxx");
  psp.pfnCallback = PropPageCallbackProc;
  psp.pcRefParent = GetRefParent();

  HPROPSHEETPAGE h_page = CreatePropertySheetPage(&psp);
  if (h_page != 0)
  {
    if (!add_page_proc(h_page, param))
    {
      DestroyPropertySheetPage(h_page);
    }
  }
  return S_OK;
}

UINT CALLBACK PropPageCallbackProc(HWND hwnd, UINT msg, LPPROPSHEETPAGE ppsp)
{
 return 1;
}

INT_PTR CALLBACK PropPageDlgProc(HWND hwnd, UINT msg, WPARAM wparam, LPARAM lparam)
{
  return FALSE;
}