Поделиться через

Использование OLE в элементах управления расширенными изменениями

  • Статья

В этом разделе содержатся сведения об использовании связывания объектов и внедрения (OLE) в элементах управления расширенными изменениями.

Это важно знать

Технологии

Необходимые компоненты

  • C/C++
  • Программирование пользовательского интерфейса Windows

Instructions

Использование расширенного интерфейса редактирования

Элементы управления расширенными изменениями предоставляют некоторые их функциональные возможности через интерфейсы COM-модели компонентов. Получив интерфейс из элемента управления, вы получаете возможность работать с другими объектами в элементе управления. Этот интерфейс можно получить, отправив сообщение EM_GETOLEINTERFACE . В интерфейсе IRichEditOle можно получить интерфейсы, используемые в текстовой объектной модели.

Другой интерфейс, IRichEditOleCallback, реализуется приложениями для определения поведения элемента управления при взаимодействии с объектами.

Вставка объекта в элемент управления "Расширенные изменения"

В следующем примере кода объект файла вставляется в элемент управления расширенными изменениями. Если программа связана с типом файла на компьютере пользователя (например, Microsoft Excel для файла .xls), содержимое файла, отображаемого в элементе управления; в противном случае появится значок.

  1. Получите интерфейс IRichEditOle.

    BOOL InsertObject(HWND hRichEdit, LPCTSTR pszFileName)
{
    HRESULT hr;

    LPRICHEDITOLE pRichEditOle;
    SendMessage(hRichEdit, EM_GETOLEINTERFACE, 0, (LPARAM)&pRichEditOle);

    ...

  2. Создайте структурированное хранилище.

        LPLOCKBYTES pLockBytes = NULL;
    hr = CreateILockBytesOnHGlobal(NULL, TRUE, &pLockBytes);

    LPSTORAGE pStorage;
    hr = StgCreateDocfileOnILockBytes(pLockBytes, 
                                      STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 
                                      0, &pStorage);
    ...

  3. Настройте формат данных.

        FORMATETC formatEtc;

    formatEtc.cfFormat = 0;
    formatEtc.ptd      = NULL;
    formatEtc.dwAspect = DVASPECT_CONTENT;
    formatEtc.lindex   = -1;
    formatEtc.tymed    = TYMED_NULL;

    ...

  4. Получите указатель на отображаемый сайт.

        LPOLECLIENTSITE pClientSite;
    hr = pRichEditOle->GetClientSite(&pClientSite);

    ...

  5. Создайте объект и получите его интерфейс IUnknown .

        LPUNKNOWN pUnk;
    CLSID clsid = CLSID_NULL;

    hr = OleCreateFromFile(clsid, 
                           pszFileName, 
                           IID_IUnknown, 
                           OLERENDER_DRAW, 
                           &formatEtc, 
                           pClientSite, 
                           pStorage, 
                           (void**)&pUnk);

    pClientSite->Release();

    ...

  6. Получите интерфейс IOleObject для объекта.

        LPOLEOBJECT pObject;

    hr = pUnk->QueryInterface(IID_IOleObject, (void**)&pObject);

    pUnk->Release();

    ...

  7. Чтобы убедиться, что ссылки учитываются правильно, уведомите объект о том, что он содержится.

        OleSetContainedObject(pObject, TRUE);

    ...

  8. Настройка сведений об объекте.

        REOBJECT reobject = { sizeof(REOBJECT)};

    hr = pObject->GetUserClassID(&clsid);

    reobject.clsid    = clsid;
    reobject.cp       = REO_CP_SELECTION;
    reobject.dvaspect = DVASPECT_CONTENT;
    reobject.dwFlags  = REO_RESIZABLE | REO_BELOWBASELINE;
    reobject.dwUser   = 0;
    reobject.poleobj  = pObject;
    reobject.polesite = pClientSite;
    reobject.pstg     = pStorage;

    SIZEL sizel       = { 0 };
    reobject.sizel    = sizel;

    ...

  9. Переместите курсор в конец текста и добавьте возврат каретки.

        SendMessage(hRichEdit, EM_SETSEL, 0, -1);

    DWORD dwStart, dwEnd;

    SendMessage(hRichEdit, EM_GETSEL, (WPARAM)&dwStart, (LPARAM)&dwEnd);
    SendMessage(hRichEdit, EM_SETSEL, dwEnd+1, dwEnd+1);
    SendMessage(hRichEdit, EM_REPLACESEL, TRUE, (WPARAM)L"\n"); 

    ...

  10. Вставьте объект.

        hr = pRichEditOle->InsertObject(&reobject);

    ...

  11. Очистка.

        pObject->Release();

    pRichEditOle->Release();

    return TRUE;

}

Использование IRichEditOleCallback

Приложения реализуют интерфейс IRichEditOleCallback для реагирования на запросы, связанные с OLE, или действия, выполняемые элементом управления расширенными изменениями. Вы связываете реализацию интерфейса с элементом управления, отправив EM_SETOLECALLBACK сообщение. Затем элемент управления вызывает методы реализации интерфейса соответствующим образом.

Например, QueryAcceptData вызывается, когда пользователь пытается перетащить или вставить объект в элемент управления. Если приложение может принять данные, реализация метода возвращает S_OK; в противном случае возвращается код ошибки. Этот метод также может предпринять другое действие, например предупреждение пользователя о том, что файлы этого типа нельзя поместить в элемент управления.

Полная функция InsertObject Example

В следующем примере кода показаны предыдущие фрагменты кода, объединенные в одну полную функцию, которая включает обработку ошибок.

BOOL InsertObject(HWND hRichEdit, LPCTSTR pszFileName)
{
    HRESULT hr;

    LPRICHEDITOLE pRichEditOle;
    SendMessage(hRichEdit, EM_GETOLEINTERFACE, 0, (LPARAM)&pRichEditOle);

    if (pRichEditOle == NULL)
    {
        return FALSE;
    }

    LPLOCKBYTES pLockBytes = NULL;
    hr = CreateILockBytesOnHGlobal(NULL, TRUE, &pLockBytes);

    if (FAILED(hr))
    {
        return FALSE;
    }

    LPSTORAGE pStorage;
    hr = StgCreateDocfileOnILockBytes(pLockBytes, 
           STGM_SHARE_EXCLUSIVE | STGM_CREATE | STGM_READWRITE, 
           0, &pStorage);

    if (FAILED(hr))
    {
        return FALSE;
    }

    FORMATETC formatEtc;
    formatEtc.cfFormat = 0;
    formatEtc.ptd = NULL;
    formatEtc.dwAspect = DVASPECT_CONTENT;
    formatEtc.lindex = -1;
    formatEtc.tymed = TYMED_NULL;

    LPOLECLIENTSITE pClientSite;
    hr = pRichEditOle->GetClientSite(&pClientSite);

    if (FAILED(hr))
    {
        return FALSE;
    }

    LPUNKNOWN pUnk;
    CLSID clsid = CLSID_NULL;

    hr = OleCreateFromFile(clsid, pszFileName, IID_IUnknown, OLERENDER_DRAW, 
           &formatEtc, pClientSite, pStorage, (void**)&pUnk);

    pClientSite->Release();

    if (FAILED(hr))
    {
        return FALSE;
    }

    LPOLEOBJECT pObject;
    hr = pUnk->QueryInterface(IID_IOleObject, (void**)&pObject);
    pUnk->Release();

    if (FAILED(hr))
    {
        return FALSE;
    }

    OleSetContainedObject(pObject, TRUE);
    REOBJECT reobject = { sizeof(REOBJECT)};
    hr = pObject->GetUserClassID(&clsid);

    if (FAILED(hr))
    {
        pObject->Release();
        return FALSE;
    }

    reobject.clsid = clsid;
    reobject.cp = REO_CP_SELECTION;
    reobject.dvaspect = DVASPECT_CONTENT;
    reobject.dwFlags = REO_RESIZABLE | REO_BELOWBASELINE;
    reobject.dwUser = 0;
    reobject.poleobj = pObject;
    reobject.polesite = pClientSite;
    reobject.pstg = pStorage;
    SIZEL sizel = { 0 };
    reobject.sizel = sizel;

    SendMessage(hRichEdit, EM_SETSEL, 0, -1);
    DWORD dwStart, dwEnd;
    SendMessage(hRichEdit, EM_GETSEL, (WPARAM)&dwStart, (LPARAM)&dwEnd);
    SendMessage(hRichEdit, EM_SETSEL, dwEnd+1, dwEnd+1);
    SendMessage(hRichEdit, EM_REPLACESEL, TRUE, (WPARAM)L"\n"); 

    hr = pRichEditOle->InsertObject(&reobject);
    pObject->Release();
    pRichEditOle->Release();

    if (FAILED(hr))
    {
        return FALSE;
    }
    
    return TRUE;
}

Использование элементов управления расширенными изменениями

Демонстрация общих элементов управления Windows (CppWindowsCommonControls)