【发布时间】:2011-11-30 14:29:13
【问题描述】:
我有一个用 C++ 实现的 COM 对象。我正在使用 VB6 应用程序中的这个对象。
问题是如何实现获取和返回指向接口的指针的方法。 这是 IDL 的示例:
[...]
interface ICOMCvDC : IUnknown
{
HRESULT GetPen([retval][out] ICOMCvPen** ppPen);
HRESULT SetPen([in] ICOMCvPen* pPen);
};
下面是组件类对象的骨架:
class COMCvDC : public ICOMCvDC
{
public:
...
STDMETHODDECL GetPen(
/* [retval][out] */ ICOMCvPen** ppPen);
STDMETHODDECL SetPen(
/* [in] */ ICOMCvPen* pPen);
...
protected:
ICOMCvPen* m_pen;
};
...
STDMETHODIMP COMCvDC::GetPen(
/* [retval][out] */ ICOMCvPen** ppPen)
{
*ppPen = m_pen;
return S_OK;
}
STDMETHODIMP COMCvDC::SetPen(
/* [in] */ ICOMCvPen* pPen)
{
m_pen = pPen;
return S_OK;
}
我是 COM 的初学者,所以我不确定我的做法是否正确。我觉得我需要在一些接口指针上使用QueryInterface 方法。了解 VB6 在解释代码时所做的事情也很有趣:
Dim pen1 As ICOMCvPen
Set pen1 = dc1.GetPen()
是否在GetPen方法返回的接口指针上调用AddRef方法?
更新 1
我已经实现了两个测试对象(COMCvTest 和 COMCvTestFactory),它们只记录所有被调用的方法。然后我执行了下面的VB6代码:
Dim test1 As ICOMCvTest
Set test1 = New COMCvTest
Debug.Print "Ref: " & test1.GetReferenceCounter
Set test1 = Nothing
下面是这些对象的生命周期日志:
COMCvTestFactory::COMCvTestFactory(); m_cRef = 1
COMCvTestFactory::QueryInterface() --- begin ---
IID is {00000001-0000-0000-C000-000000000046}
IID is IID_IClassFactory
COMCvTestFactory::AddRef(); m_cRef = 2 (was 1)
COMCvTestFactory::QueryInterface() ---- end ----
COMCvTestFactory::Release(); m_cRef = 1 (was 2)
COMCvTestFactory::CreateInstance() --- begin ---
COMCvTest::COMCvTest(); m_cRef = 1
COMCvTest::QueryInterface() --- begin ---
IID is {00000000-0000-0000-C000-000000000046}
IID is IID_IUnknown
COMCvTest::AddRef(); m_cRef = 2 (was 1)
COMCvTest::QueryInterface() ---- end ----
COMCvTest::Release(); m_cRef = 1 (was 2)
COMCvTestFactory::CreateInstance() ---- end ----
COMCvTest::AddRef(); m_cRef = 2 (was 1)
COMCvTest::Release(); m_cRef = 1 (was 2)
COMCvTestFactory::Release(); m_cRef = 0 (was 1); deleting object
COMCvTestFactory::~COMCvTestFactory()
COMCvTest::QueryInterface() --- begin ---
IID is {00000000-0000-0000-C000-000000000046}
IID is IID_IUnknown
COMCvTest::AddRef(); m_cRef = 2 (was 1)
COMCvTest::QueryInterface() ---- end ----
COMCvTest::QueryInterface() --- begin ---
IID is {9F660698-1950-4DE8-BB5F-C8D2D61F7367}
IID is IID_ICOMCvTest
COMCvTest::AddRef(); m_cRef = 3 (was 2)
COMCvTest::QueryInterface() ---- end ----
COMCvTest::QueryInterface() --- begin ---
IID is {7FD52380-4E07-101B-AE2D-08002B2EC713}
IID is IID_IPersistStreamInit
COMCvTest::QueryInterface() --- begin ---
IID is {37D84F60-42CB-11CE-8135-00AA004BB851}
IID is IID_IPersistPropertyBag
COMCvTest::Release(); m_cRef = 2 (was 3)
COMCvTest::Release(); m_cRef = 1 (was 2)
COMCvTest::GetReferenceCounter; m_cRef = 1
COMCvTest::Release(); m_cRef = 0 (was 1); deleting object
COMCvTest::~COMCvTest()
似乎 VB6 正在尝试从 COM 对象查询 IPersistStreamInit 和 IPersistPropertyBag 接口。为什么?另外我不明白为什么在查询ICOMCvTest接口指针之前要查询IUnknown接口?
【问题讨论】: