VC COM组件中发出COM错误

先要实现ISupportErrorInfo,然后再你要抛出异常的地方SetErrorInfo
CComPtr<ICreateErrorInfo> pcei;
HRESULT hr=CreateErrorInfo(&pcei);
ATLASSERT(SUCCEEDED(hr));
hr=pcei->SetDescription(OLESTR("THIS IS A CUSTOM EXCEPTION."));
CComPtr<IErrorInfo> pei;
hr=pcei->QueryInterface(IID_IErrorInfo,(void**)&pei);
ATLASSERT(SUCCEEDED(hr));
hr=SetErrorInfo(0,pei);
ATLASSERT(SUCCEEDED(hr));
return E_FAIL;

在抛出异常后必须返回表示失败的HRESULT，不然VB不会捕捉异常
---------------------------------------------------------------

如果在创建接口的时候属性里面没有选support IErrorInfo的话，VB不会捕捉异常


实际测试中，以上方法不会抛出异常（我的Project是ATL）

在 ATL 中,
return AtlReportError(CLSID_UDPSocketObj, "Error   Information!", IID_IUDPSocketObj, 0);

即可抛出异常