ActiveX client with MFC ClassWizard or #import

XDSoft

问题：
Are there two ways of creating an AutoCAD ActiveX client using C++?

解答：
There are two ways of creating an AutoCAD Active X client using C++.

Method #1
Use MFC ClassWizard to import the interfaces (from acad.tlb) that you need for
your client application.

Method #2
Use #import with acad.tlb.

NOTE:  Although #import is something new from VC++ 5.0, it previously existed in
ClassWizard.

The following code segments demonstrate both methods, and is to be used with a
MFC ClassWizard-generated IAcadApplication interface.

1. // This is declared as a member variable in the CSampActiveXClientDlg.
   
2. // Given that you've use ClassWizard to import IAcadApplication interface
   
3. // from acad.tlb.
   
4. IAcadApplication m_IApp;
   
5. 
   
6. void CSampActiveXClientDlg::OnStartacad()
   
7. {
   
8. // TODO: Add your control notification handler code here
   
9. HRESULT hr = NOERROR;
   
10. CLSID clsid;
    
11. LPUNKNOWN pUnk = NULL;
    
12. LPDISPATCH pDisp = NULL;
    
13. 
    
14. BeginWaitCursor();
    
15. CoInitialize(NULL);
    
16. hr = ::CLSIDFromProgID(L"AutoCAD.Application", &clsid);
    
17. 
    
18. if (SUCCEEDED(hr))
    
19. {
    
20. if(::GetActiveObject(clsid, NULL, &pUnk) == S_OK)
    
21. {
    
22.   VERIFY(pUnk->QueryInterface(IID_IDispatch, (LPVOID*) &pDisp) == S_OK);
    
23.   m_IApp.AttachDispatch(pDisp);
    
24.   pUnk->Release();
    
25. }
    
26. else
    
27.   VERIFY(m_IApp.CreateDispatch(clsid) == TRUE);
    
28. 
    
29. m_IApp.SetVisible(TRUE);
    
30. 
    
31. }
    
32. else
    
33. AfxMessageBox("Acad.Application is not registered!");
    
34. 
    
35. EndWaitCursor();
    
36. }
    
37. This code snippet is to be used with #import.
    
38. // your location of acad.tlb may vary
    
39. #import "c:\acad2k\acad.tlb" raw_interfaces_only, raw_native_types,
    
40. no_namespace, named_guids  
    
41. 
    
42. CComQIPtr<IAcadApplication, &IID_IAcadApplication> gpApp;
    
43. 
    
44. // start Acad
    
45. HRESULT InitAcad()
    
46. {
    
47. HRESULT hr = S_OK;
    
48. CLSID clsid;
    
49. // get acad running first
    
50. hr = CLSIDFromProgID(L"AutoCAD.Application", &clsid);
    
51. if(FAILED(hr))
    
52. return hr;
    
53. CComPtr<IUnknown> pIUnk;
    
54. hr = GetActiveObject(clsid, NULL, pIUnk);
    
55. if(!pIUnk)
    
56. {
    
57.   hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER,
    
58.   IID_IAcadApplication, (void**)&gpApp);[
    
59. }
    
60. else
    
61.   gpApp = pIUnk;
    
62. if(FAILED(hr) || !gpApp)
    
63. return hr;
    
64. gpApp->put_Visible(VARIANT_TRUE);
    
65. 
    
66. return hr;
    
67. }
    

// This is declared as a member variable in the CSampActiveXClientDlg.<br /> // Given that you've use ClassWizard to import IAcadApplication interface<br /> // from acad.tlb.<br /> IAcadApplication m_IApp;<br /> <br /> void CSampActiveXClientDlg::OnStartacad()<br /> {<br /> // TODO: Add your control notification handler code here<br /> HRESULT hr = NOERROR;<br /> CLSID clsid;<br /> LPUNKNOWN pUnk = NULL;<br /> LPDISPATCH pDisp = NULL;<br /> <br /> BeginWaitCursor();<br /> CoInitialize(NULL);<br /> hr = ::CLSIDFromProgID(L"AutoCAD.Application", &clsid);<br /> <br /> if (SUCCEEDED(hr))<br /> {<br /> if(::GetActiveObject(clsid, NULL, &pUnk) == S_OK)<br /> {<br />   VERIFY(pUnk->QueryInterface(IID_IDispatch, (LPVOID*) &pDisp) == S_OK);<br />   m_IApp.AttachDispatch(pDisp);<br />   pUnk->Release();<br /> }<br /> else<br />   VERIFY(m_IApp.CreateDispatch(clsid) == TRUE);<br /> <br /> m_IApp.SetVisible(TRUE);<br /> <br /> }<br /> else<br /> AfxMessageBox("Acad.Application is not registered!");<br /> <br /> EndWaitCursor(); <br /> }<br /> This code snippet is to be used with #import.<br /> // your location of acad.tlb may vary<br /> #import "c:\acad2k\acad.tlb" raw_interfaces_only, raw_native_types,<br /> no_namespace, named_guids  <br /> <br /> CComQIPtr<IAcadApplication, &IID_IAcadApplication> gpApp;<br /> <br /> // start Acad<br /> HRESULT InitAcad()<br /> {<br /> HRESULT hr = S_OK;<br /> CLSID clsid;<br /> // get acad running first<br /> hr = CLSIDFromProgID(L"AutoCAD.Application", &clsid);<br /> if(FAILED(hr))<br /> return hr;<br /> CComPtr<IUnknown> pIUnk;<br /> hr = GetActiveObject(clsid, NULL, pIUnk);<br /> if(!pIUnk)<br /> {<br />   hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER,<br />   IID_IAcadApplication, (void**)&gpApp);[<br /> }<br /> else<br />   gpApp = pIUnk;<br /> if(FAILED(hr) || !gpApp)<br /> return hr;<br /> gpApp->put_Visible(VARIANT_TRUE);<br /> <br /> return hr;<br /> }<br />