描述:
我用vc谢了个函数,调用vb的com,程序如下:
LPSTR CAboutDlg::getdd(LPSTR str)
{
HRESULT hresult;
CLSID clsid;
CoInitialize(NULL);
hresult=CLSIDFromProgID(OLESTR("MD5.MD"), &clsid);
_MD *t;
hresult=CoCreateInstance(clsid,NULL,CLSCTX_INPROC_SERVER,
__uuidof(_MD),(LPVOID*)&t);
if(FAILED(hresult))
{
AfxMessageBox("初始化服务组件失败");
}
BSTR str1;
BSTR strTest=((_bstr_t(str)));
AfxMessageBox(_bstr_t(strTest));////不弹出这个框下面执行就出错,弹出这个框,点确定,就可以往下执行,需求不需要这个框
str1=t->MD5(& strTest);
USES_CONVERSION;
str= W2A(_bstr_t(str1));
// strcpy(s,W2A(_bstr_t(str)));
AfxMessageBox(str);
CoUninitialize();
return str;
}
怎么样把那个弹出框去掉,而又可以正常执行??
比较急,就差这一点工作了!!