实现与SolidWorks Application的连接

huangyhg

/////////////////////////////////
/* 1) Ole Automation的连接方式
* &
* SolidWorks Applicaiton is running
*/
bool CDispatchexeApp::Connect()

{
LPUNKNOWN pUnk = NULL;
LPDISPATCH dSldWorks;
CLSID clsid;
bool status = true;


if ( CLSIDFromProgID(OLESTR("SldWorks.Application"), &clsid) != NOERROR )
{
status = false;
}
else if (GetActiveObject(clsid, NULL, &pUnk) != NOERROR)
{
status = false;
}
else if ( pUnk->QueryInterface(IID_IDispatch, (LPVOID*)&dSldWorks) != NOERROR )
{
pUnk->Release();
status = false;
}
else
{
m_SldWorks.AttachDispatch(dSldWorks);
pUnk->Release();
}

return status;
}
/////////////////////////////////




/* 2) COM的连接方式
* &
* SolidWorks Applicaiton is running
*/
//------------------------------------------------------------------------
void CAPITest_EXEDlg::OnBtnConnect()
{
// connects to an already running instance of SW
// will assert if SW has not been started

CComPtr <IUnknown> pUnk;
CComQIPtr <IDispatch> pSldWorks;
CLSID clsid;
HRESULT hr = S_OK;

hr = CLSIDFromProgID(OLESTR("SldWorks.Application"), &clsid);
ASSERT(S_OK == hr);

hr = GetActiveObject(clsid, NULL, &pUnk);
ASSERT(S_OK == hr);
ASSERT(pUnk);

pSldWorks = pUnk;
ASSERT(pSldWorks);

// Detach since m_pSldWorks will Release when it goes out of scope
m_pSldWorks.AttachDispatch(pSldWorks.Detach());
}
//------------------------------------------------------------------------

/* 3) OLE Automation的连接方式
* &
* SolidWorks Applicaiton is not running
*/
//------------------------------------------------------------------------
void CAPITest_EXEDlg::OnBtnStart()
{
m_pSldWorks.CreateDispatch("SldWorks.Application");
ASSERT(m_pSldWorks.m_lpDispatch);
}
//------------------------------------------------------------------------