Posted on 2009-09-01 11:14
S.l.e!ep.￠% 阅读(362)
评论(0) 编辑 收藏 引用 所属分类:
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);
即可抛出异常