如何在富编辑控件中使用 OLE

项目
03/04/2024

本节包含有关在 Rich Edit 控件中使用对象链接和嵌入 (OLE) 的信息。

需要了解的事项

技术

Windows 控件

先决条件

C/C++
Windows 用户界面编程

说明

使用 Rich Edit 接口

Rich Edit 控件通过组件对象模型 (COM) 接口公开其部分功能。在从控件中获取接口后，就能与控件中的其他对象协同工作。可以通过发送 EM_GETOLEINTERFACE 消息来获取该接口。从 IRichEditOle 接口，可以获取 Text Object Model 中使用的接口。

另一个接口 IRichEditOleCallback 由应用程序实现，用于定义控件与对象交互时的行为。

在 Rich Edit 控件中插入对象

下面的代码示例在 Rich Edit 控件中插入了一个文件对象。如果用户计算机上有与文件类型相关联的程序（例如，用于 .xls 文件的 Microsoft Excel），控件中就会显示文件内容；否则，就会显示一个图标。

获取 IRichEditOle 接口。

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

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

    ...

创建结构化存储。

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

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

设置数据格式。

    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);

    ...

创建对象并检索其 IUnknown 接口。

    LPUNKNOWN pUnk;
    CLSID clsid = CLSID_NULL;

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

    pClientSite->Release();

    ...

获取对象的 IOleObject 接口。

    LPOLEOBJECT pObject;

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

    pUnk->Release();

    ...

为确保正确计算引用，请通知对象它已被包含在内。
```
    OleSetContainedObject(pObject, TRUE);

    ...
```

设置对象信息。

    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;

    ...

将插入符号移至文本末尾，并添加回车符。

    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();

    return TRUE;

}

使用 IRichEditOleCallback

应用程序实现 IRichEditOleCallback 接口，以响应 Rich Edit 控件执行的 OLE 相关查询或操作。可以通过发送 EM_SETOLECALLBACK 消息来将接口实现与控件相关联。然后，控件会根据情况调用接口实现中的方法。

例如，在用户尝试将对象拖动或粘贴到控件时将调用 QueryAcceptData。如果应用程序可以接受数据，该方法的实现将返回 S_OK；否则将返回错误代码。该方法还可能执行其他一些操作，例如警告用户不能在控件中放置该类型的文件。

完整的 InsertObject 示例函数

下面的代码示例演示了如何将前面的代码片段组合成一个完整的函数，其中包括错误处理。

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)

如何在富编辑控件中使用 OLE

需要了解的事项

技术

先决条件

说明

使用 Rich Edit 接口

在 Rich Edit 控件中插入对象

使用 IRichEditOleCallback

完整的 InsertObject 示例函数

反馈

反馈

其他资源

如何在富编辑控件中使用 OLE

需要了解的事项

技术

先决条件

说明

使用 Rich Edit 接口

在 Rich Edit 控件中插入对象

使用 IRichEditOleCallback

完整的 InsertObject 示例函数

相关主题

反馈

反馈

其他资源