当打开观察窗口将COM对象传递给VB 6时VariantClear异常

Question

为什么发生此错误？引用计数增加，线程模型是单个公寓。 Coll-object和EmptyColl-function都位于一个dll中。 ATL项目的默认调用转换是__stdcall。与此dll内的其他对象发生同样的错误。

与空物体清除VARIANT VariantClear时抛出异常：
异常在VB6.EXE在0x75C14974（的oleaut32.dll）抛出：0000005：
访问冲突读取位置0x00000008。

frmMain.frm（错误，见下面为什么）：

Private Sub Form_Load() 
    Dim c As Coll 
    Set c = EmptyColl 
    'error when ends here with variable "c" in the watch window. 
End Sub 

frmMain.frm（没有错误）：

Private Sub Form_Load() 
    Dim c2 As Coll 'instead of Coll can be any object of same library 
    Set c2 = New Coll 'creation 
    Set c2 = Nothing 'destroying (optionaly) 
    Dim c As Coll 
    Set c = EmptyColl 
    'no error 
End Sub 

filyus.idl：

[ 
    object, 
    uuid(6FA7FAEB-5CE3-4A80-9288-2667EE5E7596), 
    dual, 
    nonextensible, 
    pointer_default(unique) 
] 
interface IColl : IDispatch{ 
    //some methods 
}; 

[ 
    uuid(157F3D2F-A427-4D5A-B908-87868297EA43), 
    version(1.0), 
] 
library Filyus 
{ 
    importlib("stdole2.tlb"); 
    [ 
    dllname("Filyus") 
    ] 
    module Filyus{ 
    [entry("EmptyColl")] 
    HRESULT EmptyColl([out, retval] IColl** Coll); 
    } 
}; 

filyus.def：

LIBRARY 

EXPORTS 
    DllCanUnloadNow  PRIVATE 
    DllGetClassObject PRIVATE 
    DllRegisterServer PRIVATE 
    DllUnregisterServer PRIVATE 
    DllInstall  PRIVATE 
    EmptyColl 

ole.h：

extern HRESULT EmptyColl(IColl** Coll); 

ole.cpp：

HRESULT EmptyColl(IColl** Coll) { 
    HRESULT hr; CComObject<CColl>* Object; 
    if (Coll != nullptr) { 
    hr = CComObject<CColl>::CreateInstance(&Object); 
    if (hr == S_OK) { 
     Object->AddRef(); 
     *Coll = Object; //same error with using QueryInterface 
    } 
    } 
    else hr = E_POINTER; 
    return hr; 
} 

Answer 1

EmptyColl()需要使用__stdcall调用约定：

extern HRESULT __stdcall EmptyColl(IColl** Coll); 

HRESULT __stdcall EmptyColl(IColl** Coll) { 
    //... 
} 

或者，使用STDMETHODCALLTYPE宏，它解析为__stdcall：

extern HRESULT STDMETHODCALLTYPE EmptyColl(IColl** Coll); 

HRESULT STDMETHODCALLTYPE EmptyColl(IColl** Coll) { 
    //... 
} 

没有调用约定声明，默认为C/C++编译器将使用__cdecl代替，除非配置有所不同。 __cdecl和__stdcall以不同方式管理调用堆栈。如果不使用正确的调用约定，将会损坏调用堆栈。 COM标准要求__stdcall，这就是VB所期望的。

Answer 2

由于访问对象的权限错误，因此发生错误。
CComPtr用于客户端，CComObject用于服务器端（直接访问，只有当您创建了该库的任何对象时才获取它）。

正确ole.cpp：

HRESULT EmptyColl(IColl** Coll) { 
    HRESULT hr; CComPtr<IColl> Object; 
    if (Coll != nullptr) { 
    hr = Object.CoCreateInstance(CLSID_Coll); 
    if (hr == S_OK) { 
     Object.CopyTo(Coll); 
    } 
    } 
    else hr = E_POINTER; 
    return hr; 
}