用ATL创建COM组件详细解说

待我称王封你为后i 2022-08-08 17:39 133阅读 0赞

# [用ATL创建COM组件详细解说 ][ATL_COM_] #

[服务器][Link 1] [interface][] [microsoft][] [library][] [basic][] [object][]

一、创建一个模型 ( 工程 ) MyProj 。   
 二、给模型 ( 工程 ) 增加一个组件  MyCom 。   
 三、给组件增加方法 ( 函数 ) MyF1 、 MyF2 、 MyF3 、 MyF4 。

一、创建模型(工程) MyProj  
在VC++6.0工作平台中，点击菜单 File下的 New 菜单项，在出现的 New 对话框中选中 Projects 卡片，在列表框中选中 ATL COM  AppWizard（活动模板库组件导航）。

在 Project Name  编辑框中输入项目名如 MyProj  ，并选择合适的 Location  后，按确认按钮进入下一个对话框：ATL  COM  Appwizard  -  step 1 of  1，在 Server Type中选择 Dynamic  Link  Library \[ DLL \]，即进程内服务器，这是最快的组件。  
选中 Support  MFC选择项。  
在按下 Finish  和 Ok 按钮后，一个组件的框架已经建立。

二、给模型增加组件MyCom  
在VC++  菜单 Insert 中选中 New ATL  Object…菜单项，出现 ATL Object  Wizard对话框。  
在左边的 Category中选择 Objects，右边的 Objects中选中 Simple  Object项。按 Next 按钮。

在出现的 ATL Object  Wizard属性对话框中 Names卡片中的八个编辑框中左上方的 Short Name编辑框中输入短名如 MyCom，其他七个编辑框的内容会自动生成。然后按确认按钮退出。

三、给组件增加方法(函数) MyF1、MyF2、MyF3、MyF4  
在 VC++工作平台的左边的 Workspace的 ClassView卡片中找到接口 IMyCom项，按右键，在出现的快捷菜单中选择 Add  Method …，出现 Add  Method  to Interface对话框，在对话框中输入要增加的函数的函数名、参数和返回值类型。然后，按确认按钮退出。

先增加函数 MyF1：  
  函数名为： MyF1  
  参数：无

在MyCom.cpp文件中插入代码：  
STDMETHODIMP CMyCom::MyF1()  
\{  
 AFX\_MANAGE\_STATE(AfxGetStaticModuleState())

// TODO: Add your implementation code here  
 AfxMessageBox("欢迎使用我的组件");  
 return S\_OK;  
\}

用同样的方法给组件增加函数MyF2：  
函数名为： MyF2  
参数为：  
  \[in\] BSTR str,  
  \[out, retval\] int\* val

插入代码：  
STDMETHODIMP CMyCom::MyF2(BSTR str, int \*val)  
\{  
 AFX\_MANAGE\_STATE(AfxGetStaticModuleState())

// TODO: Add your implementation code here  
 CString  sStr(str);  
 int  n = sStr.GetLength();  
 \*val = n;  
 return S\_OK;  
\}

用同样的方法给组件增加函数 MyF3：  
函数名为： MyF3  
参数为：  
  \[in\] BSTR str,  
  \[out, retval\] BSTR\* retstr

插入代码:  
STDMETHODIMP CMyCom::MyF3(BSTR str, BSTR \*retstr)  
\{  
 AFX\_MANAGE\_STATE(AfxGetStaticModuleState())

// TODO: Add your implementation code here  
 CString sStr(str);  
 CString sRetstr = "组件收到你的信息：<" + sStr + ">\\n特此告之。";  
 CComBSTR  temp(sRetstr);  
 \*retstr = temp;  
 return S\_OK;  
\}

用同样的方法给组件增加函数MyF4：  
函数名为： MyF4  
参数为：  
  \[in\] int x,  
  \[out, retval\] int\* val

插入代码：  
STDMETHODIMP CMyCom::MyF4(int x, int \*val)  
\{  
 AFX\_MANAGE\_STATE(AfxGetStaticModuleState())

// TODO: Add your implementation code here  
 \*val = x+1;  
 return S\_OK;  
\}

编绎工程，生成组件DLL。

如果是在 Win2k  或者 WinXp 的计算机上完成了上面的三步操作，就会在 debug子目录下生成组件的 DLL文件，并且完成自动注册。但是在 Win98的计算机上，注册要运行如下命令才能完成：  
regsrv32  C:\\MyProj\\Debug\\MyProj.dll

--------------------

创建 COM 组件客户

1，创建一个基于对话框的客户程序。  
2，把服务器类型库导入客户工作平台。  
3，初始化 COM  库。  
4，获得服务器的 GLSID。  
5，创建 COM  组件服务器组件的实例。  
6，使用 COM  对象。  
7，终止 COM  库。

1，创建一个客户程序  
用 MFC  AppWizard ( exe )创建一个基于对话框的应用程序 MyExe。  
在对话框中放置四个按钮，分别为 MyF1、MyF2、MyF3和 MyF4。  
用 ClassWizard生成单击按钮的四个响应函数 OnMyF1()、OnMyF2() 、OnMyF3()和 OnMyF4()。

2，把服务器类型库导入客户  
2-1在 StdAfx.h文件中加入代码:

\#import  "..\\MyProj\\MyProj.tlb"

![None.gif][] 最后的StdAfx.h文件如下：  
![None.gif][] //  stdafx.h : include file for standard system include files,  
![None.gif][] //   or project specific include files that are used frequently, but  
![None.gif][] //       are changed infrequently  
![None.gif][] //  
![None.gif][]   
![None.gif][] \#if  !defined(AFX\_STDAFX\_H\_\_2B646017\_28AD\_4CDE\_9792\_CB8F9A5C6B39\_\_INCLUDED\_)   
![None.gif][] \#define  AFX\_STDAFX\_H\_\_2B646017\_28AD\_4CDE\_9792\_CB8F9A5C6B39\_\_INCLUDED\_   
![None.gif][]  
![None.gif][] \#if  \_MSC\_VER > 1000   
![None.gif][]\#pragma once  
![None.gif][] \#endif   //  \_MSC\_VER > 1000   
![None.gif][]  
![None.gif][] \#define  VC\_EXTRALEAN   //  Exclude rarely-used stuff from Windows headers   
![None.gif][]  
![None.gif][]\#include  < afxwin.h >           //  MFC core and standard components   
![None.gif][] \#include  < afxext.h >           //  MFC extensions   
![None.gif][] \#include  < afxdisp.h >          //  MFC Automation classes   
![None.gif][] \#include  < afxdtctl.h >    //  MFC support for Internet Explorer 4 Common Controls   
![None.gif][] \#ifndef \_AFX\_NO\_AFXCMN\_SUPPORT  
![None.gif][]\#include  < afxcmn.h >     //  MFC support for Windows Common Controls   
![None.gif][] \#endif   //  \_AFX\_NO\_AFXCMN\_SUPPORT   
![None.gif][]  
![None.gif][]\#import   " ..\\MyProj\\MyProj.tlb "   
![None.gif][]  
![None.gif][] // \{ \{AFX\_INSERT\_LOCATION\}\}  
![None.gif][] //  Microsoft Visual C++ will insert additional declarations immediately before the previous line.   
![None.gif][]   
![None.gif][] \#endif   //  !defined(AFX\_STDAFX\_H\_\_2B646017\_28AD\_4CDE\_9792\_CB8F9A5C6B39\_\_INCLUDED\_)   
![None.gif][]  
![None.gif][]

编译 StdAfx.cpp，  
这样在客户端的debug目录下生成组件的类型库头文件(.tlh)和类型库实现文件(.tli)。

2-2在使用组件的源文件上方使用名字空间，最后的源文件上面部分代码如下

// MyExeDlg.cpp : implementation file  
//

\#include "stdafx.h"  
\#include "MyExe.h"  
\#include "MyExeDlg.h"

\#ifdef \_DEBUG  
\#define new DEBUG\_NEW  
\#undef THIS\_FILE  
static char THIS\_FILE\[\] = \_\_FILE\_\_;  
\#endif

using namespace MYPROJLib;

以下代码略

3，初始化 COM库  
HRESULT hr=CoInitialize(NULL);

4，获得服务器组件的 CLSID  
CLSID  clsid;   
hr=CLSIDFromProgID(OLESTR("MyProj.MyCom"),&clsid);

if(FAILED(hr))

AfxMessageBox("COM Failed");

return;

5，创建 COM  服务器组件实例，获得组件接口指针  
IMyCom  \*ptr = NULL;  
hr=CoCreateInstance(clsid,NULL,CLSCTX\_INPROC\_SERVER,\_\_uuidof(IMyCom),(LPVOID\*)&ptr);

6-1，在OnMyF1()中使用 COM对象 MyF1()

ptr->MyF1();  
ptr->Release(); // 释放实例

6-2，在OnMyF2()中使用 COM对象 MyF2()  
char str\[32\];

sprintf(str,"Len=%d",ptr->MyF2("abcdefg"));

AfxMessageBox(str);

ptr->Release();// 释放实例

6-3，在OnMyF3()中使用 COM对象 MyF3()  
AfxMessageBox(ptr->MyF3("abcdefg"));

ptr->Release(); // 释放实例

6-4，在OnMyF4()中使用 COM对象 MyF4()

int x=8; char str\[32\];

sprintf(str,"x=%d,x+1=%d",x,ptr->MyF4(x));

AfxMessageBox(str);

ptr->Release();// 释放实例  
  
7，终止 COM  库  
CoUninitialize();

![None.gif][] 下面为客户测试端四个函数的完整代码。  
![None.gif][]  
![None.gif][] //  MyExeDlg.cpp : implementation file  
![None.gif][]  
![None.gif][] //  
![None.gif][]   
![None.gif][]   
![None.gif][]  
![None.gif][]\#include  " stdafx.h "   
![None.gif][]  
![None.gif][]\#include  " MyExe.h "   
![None.gif][]  
![None.gif][]\#include  " MyExeDlg.h "   
![None.gif][]  
![None.gif][]   
![None.gif][]  
![None.gif][]\#ifdef \_DEBUG  
![None.gif][]  
![None.gif][] \#define  new DEBUG\_NEW   
![None.gif][]  
![None.gif][] \#undef  THIS\_FILE   
![None.gif][]  
![None.gif][] static   char  THIS\_FILE\[\]  =  \_\_FILE\_\_;  
![None.gif][]  
![None.gif][] \#endif   
![None.gif][]  
![None.gif][]   
![None.gif][]  
![None.gif][] using   namespace  MYPROJLib;  
![None.gif][]  
![ExpandedBlockStart.gif][] /////  
![None.gif][]   
![None.gif][] //  CAboutDlg dialog used for App About   
![None.gif][]   
![None.gif][]   
![None.gif][]  
![None.gif][] class  CAboutDlg :  public  CDialog  
![None.gif][]  
![ExpandedBlockStart.gif][] \{  
![InBlock.gif][]  
![InBlock.gif][]public:  
![InBlock.gif][]  
![InBlock.gif][]         CAboutDlg();  
![InBlock.gif][]  
![InBlock.gif][]   
![InBlock.gif][]  
![InBlock.gif][]// Dialog Data  
![InBlock.gif][]  
![InBlock.gif][]         //\{ \{AFX\_DATA(CAboutDlg)  
![InBlock.gif][]  
![ExpandedSubBlockStart.gif][]         enum \{ IDD = IDD\_ABOUTBOX \};  
![InBlock.gif][]  
![InBlock.gif][]         //\}\}AFX\_DATA  
![InBlock.gif][]  
![InBlock.gif][]   
![InBlock.gif][]  
![InBlock.gif][]         // ClassWizard generated virtual function overrides  
![InBlock.gif][]  
![InBlock.gif][]         //\{ \{AFX\_VIRTUAL(CAboutDlg)  
![InBlock.gif][]  
![InBlock.gif][]         protected:  
![InBlock.gif][]  
![InBlock.gif][]         virtual void DoDataExchange(CDataExchange\* pDX);    // DDX/DDV support  
![InBlock.gif][]  
![InBlock.gif][]         //\}\}AFX\_VIRTUAL  
![InBlock.gif][]  
![InBlock.gif][]   
![InBlock.gif][]  
![InBlock.gif][]// Implementation  
![InBlock.gif][]  
![InBlock.gif][]protected:  
![InBlock.gif][]  
![InBlock.gif][]         //\{ \{AFX\_MSG(CAboutDlg)  
![InBlock.gif][]  
![InBlock.gif][]         //\}\}AFX\_MSG  
![InBlock.gif][]  
![InBlock.gif][]         DECLARE\_MESSAGE\_MAP()  
![InBlock.gif][]  
![ExpandedBlockEnd.gif][]\} ;  
![None.gif][]  
![None.gif][]   
![None.gif][]  
![None.gif][]CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)  
![None.gif][]  
![ExpandedBlockStart.gif][] \{  
![InBlock.gif][]  
![InBlock.gif][]         //\{ \{AFX\_DATA\_INIT(CAboutDlg)  
![InBlock.gif][]  
![InBlock.gif][]         //\}\}AFX\_DATA\_INIT  
![InBlock.gif][]  
![ExpandedBlockEnd.gif][]\}   
![None.gif][]  
![None.gif][]   
![None.gif][]  
![None.gif][] void  CAboutDlg::DoDataExchange(CDataExchange \*  pDX)  
![None.gif][]  
![ExpandedBlockStart.gif][] \{  
![InBlock.gif][]  
![InBlock.gif][]         CDialog::DoDataExchange(pDX);  
![InBlock.gif][]  
![InBlock.gif][]         //\{ \{AFX\_DATA\_MAP(CAboutDlg)  
![InBlock.gif][]  
![InBlock.gif][]         //\}\}AFX\_DATA\_MAP  
![InBlock.gif][]  
![ExpandedBlockEnd.gif][]\}   
![None.gif][]  
![None.gif][]   
![None.gif][]  
![None.gif][]BEGIN\_MESSAGE\_MAP(CAboutDlg, CDialog)  
![None.gif][]  
![None.gif][]          // \{ \{AFX\_MSG\_MAP(CAboutDlg)  
![None.gif][]  
![None.gif][]                    //  No message handlers  
![None.gif][]  
![None.gif][]          // \}\}AFX\_MSG\_MAP   
![None.gif][]   
![None.gif][]END\_MESSAGE\_MAP()  
![None.gif][]  
![None.gif][]   
![None.gif][]  
![ExpandedBlockStart.gif][] /////  
![None.gif][]   
![None.gif][] //  CMyExeDlg dialog   
![None.gif][]   
![None.gif][]   
![None.gif][]  
![ExpandedBlockStart.gif][]CMyExeDlg::CMyExeDlg(CWnd \*  pParent  /\*=NULL\*/ )  
![None.gif][]  
![None.gif][]         : CDialog(CMyExeDlg::IDD, pParent)  
![None.gif][]  
![ExpandedBlockStart.gif][] \{  
![InBlock.gif][]  
![InBlock.gif][]         //\{ \{AFX\_DATA\_INIT(CMyExeDlg)  
![InBlock.gif][]  
![InBlock.gif][]                   // NOTE: the ClassWizard will add member initialization here  
![InBlock.gif][]  
![InBlock.gif][]         //\}\}AFX\_DATA\_INIT  
![InBlock.gif][]  
![InBlock.gif][]         // Note that LoadIcon does not require a subsequent DestroyIcon in Win32  
![InBlock.gif][]  
![InBlock.gif][]         m\_hIcon = AfxGetApp()\->LoadIcon(IDR\_MAINFRAME);  
![InBlock.gif][]  
![ExpandedBlockEnd.gif][]\}   
![None.gif][]  
![None.gif][]   
![None.gif][]  
![None.gif][] void  CMyExeDlg::DoDataExchange(CDataExchange \*  pDX)  
![None.gif][]  
![ExpandedBlockStart.gif][] \{  
![InBlock.gif][]  
![InBlock.gif][]         CDialog::DoDataExchange(pDX);  
![InBlock.gif][]  
![InBlock.gif][]         //\{ \{AFX\_DATA\_MAP(CMyExeDlg)  
![InBlock.gif][]  
![InBlock.gif][]                   // NOTE: the ClassWizard will add DDX and DDV calls here  
![InBlock.gif][]  
![InBlock.gif][]         //\}\}AFX\_DATA\_MAP  
![InBlock.gif][]  
![ExpandedBlockEnd.gif][]\}   
![None.gif][]  
![None.gif][]   
![None.gif][]  
![None.gif][]BEGIN\_MESSAGE\_MAP(CMyExeDlg, CDialog)  
![None.gif][]  
![None.gif][]          // \{ \{AFX\_MSG\_MAP(CMyExeDlg)   
![None.gif][]   
![None.gif][]         ON\_WM\_SYSCOMMAND()  
![None.gif][]  
![None.gif][]         ON\_WM\_PAINT()  
![None.gif][]  
![None.gif][]         ON\_WM\_QUERYDRAGICON()  
![None.gif][]  
![None.gif][]         ON\_BN\_CLICKED(IDC\_BUTTON1, OnMyF1)  
![None.gif][]  
![None.gif][]         ON\_BN\_CLICKED(IDC\_BUTTON2, OnMyF2)  
![None.gif][]  
![None.gif][]         ON\_BN\_CLICKED(IDC\_BUTTON3, OnMyF3)  
![None.gif][]  
![None.gif][]         ON\_BN\_CLICKED(IDC\_BUTTON4, OnMyF4)  
![None.gif][]  
![None.gif][]          // \}\}AFX\_MSG\_MAP   
![None.gif][]   
![None.gif][]END\_MESSAGE\_MAP()  
![None.gif][]  
![None.gif][]   
![None.gif][]  
![ExpandedBlockStart.gif][] /////  
![None.gif][]   
![None.gif][] //  CMyExeDlg message handlers   
![None.gif][]   
![None.gif][]   
![None.gif][]  
![None.gif][]BOOL CMyExeDlg::OnInitDialog()  
![None.gif][]  
![ExpandedBlockStart.gif][] \{  
![InBlock.gif][]  
![InBlock.gif][]         CDialog::OnInitDialog();  
![InBlock.gif][]  
![InBlock.gif][]   
![InBlock.gif][]  
![InBlock.gif][]         // Add "About![dot.gif][]" menu item to system menu.  
![InBlock.gif][]  
![InBlock.gif][]   
![InBlock.gif][]  
![InBlock.gif][]         // IDM\_ABOUTBOX must be in the system command range.  
![InBlock.gif][]  
![InBlock.gif][]         ASSERT((IDM\_ABOUTBOX & 0xFFF0) == IDM\_ABOUTBOX);  
![InBlock.gif][]  
![InBlock.gif][]         ASSERT(IDM\_ABOUTBOX < 0xF000);  
![InBlock.gif][]  
![InBlock.gif][]   
![InBlock.gif][]  
![InBlock.gif][]         CMenu\* pSysMenu = GetSystemMenu(FALSE);  
![InBlock.gif][]  
![InBlock.gif][]         if (pSysMenu != NULL)  
![InBlock.gif][]  
![ExpandedSubBlockStart.gif][]         \{  
![InBlock.gif][]  
![InBlock.gif][]                   CString strAboutMenu;  
![InBlock.gif][]  
![InBlock.gif][]                   strAboutMenu.LoadString(IDS\_ABOUTBOX);  
![InBlock.gif][]  
![InBlock.gif][]                   if (!strAboutMenu.IsEmpty())  
![InBlock.gif][]  
![ExpandedSubBlockStart.gif][]                   \{  
![InBlock.gif][]  
![InBlock.gif][]                            pSysMenu\->AppendMenu(MF\_SEPARATOR);  
![InBlock.gif][]  
![InBlock.gif][]                            pSysMenu\->AppendMenu(MF\_STRING, IDM\_ABOUTBOX, strAboutMenu);  
![InBlock.gif][]  
![ExpandedSubBlockEnd.gif][]                   \}  
![InBlock.gif][]  
![ExpandedSubBlockEnd.gif][]         \}  
![InBlock.gif][]  
![InBlock.gif][]   
![InBlock.gif][]  
![InBlock.gif][]         // Set the icon for this dialog.  The framework does this automatically  
![InBlock.gif][]  
![InBlock.gif][]         //  when the application's main window is not a dialog  
![InBlock.gif][]  
![InBlock.gif][]         SetIcon(m\_hIcon, TRUE);                            // Set big icon  
![InBlock.gif][]  
![InBlock.gif][]         SetIcon(m\_hIcon, FALSE);                  // Set small icon  
![InBlock.gif][]  
![InBlock.gif][]           
![InBlock.gif][]  
![InBlock.gif][]         // TODO: Add extra initialization here  
![InBlock.gif][]  
![InBlock.gif][]           
![InBlock.gif][]  
![InBlock.gif][]         return TRUE;  // return TRUE  unless you set the focus to a control  
![InBlock.gif][]  
![ExpandedBlockEnd.gif][]\}   
![None.gif][]  
![None.gif][]   
![None.gif][]  
![None.gif][] void  CMyExeDlg::OnSysCommand(UINT nID, LPARAM lParam)  
![None.gif][]  
![ExpandedBlockStart.gif][] \{  
![InBlock.gif][]  
![InBlock.gif][]         if ((nID & 0xFFF0) == IDM\_ABOUTBOX)  
![InBlock.gif][]  
![ExpandedSubBlockStart.gif][]         \{  
![InBlock.gif][]  
![InBlock.gif][]                   CAboutDlg dlgAbout;  
![InBlock.gif][]  
![InBlock.gif][]                   dlgAbout.DoModal();  
![InBlock.gif][]  
![ExpandedSubBlockEnd.gif][]         \}  
![InBlock.gif][]  
![InBlock.gif][]         else  
![InBlock.gif][]  
![ExpandedSubBlockStart.gif][]         \{  
![InBlock.gif][]  
![InBlock.gif][]                   CDialog::OnSysCommand(nID, lParam);  
![InBlock.gif][]  
![ExpandedSubBlockEnd.gif][]         \}  
![InBlock.gif][]  
![ExpandedBlockEnd.gif][]\}   
![None.gif][]  
![None.gif][]   
![None.gif][]  
![None.gif][] //  If you add a minimize button to your dialog, you will need the code below  
![None.gif][]  
![None.gif][] //   to draw the icon.  For MFC applications using the document/view model,  
![None.gif][]  
![None.gif][] //   this is automatically done for you by the framework.   
![None.gif][]   
![None.gif][]   
![None.gif][]  
![None.gif][] void  CMyExeDlg::OnPaint()   
![None.gif][]  
![ExpandedBlockStart.gif][] \{  
![InBlock.gif][]  
![InBlock.gif][]         if (IsIconic())  
![InBlock.gif][]  
![ExpandedSubBlockStart.gif][]         \{  
![InBlock.gif][]  
![InBlock.gif][]                   CPaintDC dc(this); // device context for painting  
![InBlock.gif][]  
![InBlock.gif][]   
![InBlock.gif][]  
![InBlock.gif][]                   SendMessage(WM\_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);  
![InBlock.gif][]  
![InBlock.gif][]   
![InBlock.gif][]  
![InBlock.gif][]                   // Center icon in client rectangle  
![InBlock.gif][]  
![InBlock.gif][]                   int cxIcon = GetSystemMetrics(SM\_CXICON);  
![InBlock.gif][]  
![InBlock.gif][]                   int cyIcon = GetSystemMetrics(SM\_CYICON);  
![InBlock.gif][]  
![InBlock.gif][]                   CRect rect;  
![InBlock.gif][]  
![InBlock.gif][]                   GetClientRect(&rect);  
![InBlock.gif][]  
![InBlock.gif][]                   int x = (rect.Width() \- cxIcon \+ 1) / 2;  
![InBlock.gif][]  
![InBlock.gif][]                   int y = (rect.Height() \- cyIcon \+ 1) / 2;  
![InBlock.gif][]  
![InBlock.gif][]   
![InBlock.gif][]  
![InBlock.gif][]                   // Draw the icon  
![InBlock.gif][]  
![InBlock.gif][]                   dc.DrawIcon(x, y, m\_hIcon);  
![InBlock.gif][]  
![ExpandedSubBlockEnd.gif][]         \}  
![InBlock.gif][]  
![InBlock.gif][]         else  
![InBlock.gif][]  
![ExpandedSubBlockStart.gif][]         \{  
![InBlock.gif][]  
![InBlock.gif][]                   CDialog::OnPaint();  
![InBlock.gif][]  
![ExpandedSubBlockEnd.gif][]         \}  
![InBlock.gif][]  
![ExpandedBlockEnd.gif][]\}   
![None.gif][]  
![None.gif][]   
![None.gif][]  
![None.gif][] //  The system calls this to obtain the cursor to display while the user drags  
![None.gif][]  
![None.gif][] //   the minimized window.   
![None.gif][]   
![None.gif][]HCURSOR CMyExeDlg::OnQueryDragIcon()  
![None.gif][]  
![ExpandedBlockStart.gif][] \{  
![InBlock.gif][]  
![InBlock.gif][]         return (HCURSOR) m\_hIcon;  
![InBlock.gif][]  
![ExpandedBlockEnd.gif][]\}   
![None.gif][]  
![None.gif][]   
![None.gif][]  
![None.gif][] void  CMyExeDlg::OnMyF1()   
![None.gif][]  
![ExpandedBlockStart.gif][] \{  
![InBlock.gif][]  
![InBlock.gif][]         // TODO: Add your control notification handler code here  
![InBlock.gif][]  
![InBlock.gif][]         HRESULT hr=CoInitialize(NULL);  
![InBlock.gif][]  
![InBlock.gif][]         CLSID  clsid;   
![InBlock.gif][]  
![InBlock.gif][]         hr=CLSIDFromProgID(OLESTR("MyProj.MyCom"),&clsid);  
![InBlock.gif][]  
![InBlock.gif][]         if(FAILED(hr))  
![InBlock.gif][]  
![ExpandedSubBlockStart.gif][]         \{  
![InBlock.gif][]  
![InBlock.gif][]                   AfxMessageBox("COM Failed");  
![InBlock.gif][]  
![InBlock.gif][]                   return;  
![InBlock.gif][]  
![ExpandedSubBlockEnd.gif][]         \}  
![InBlock.gif][]  
![InBlock.gif][]         IMyCom  \*ptr = NULL;  
![InBlock.gif][]  
![InBlock.gif][]         hr=CoCreateInstance(clsid,NULL,CLSCTX\_INPROC\_SERVER,\_\_uuidof(IMyCom),(LPVOID\*)&ptr);   
![InBlock.gif][]  
![InBlock.gif][]         ptr\->MyF1();  
![InBlock.gif][]  
![InBlock.gif][]         ptr\->Release(); // 释放实例  
![InBlock.gif][]  
![InBlock.gif][]         CoUninitialize();  
![InBlock.gif][]  
![ExpandedBlockEnd.gif][]\}   
![None.gif][]  
![None.gif][]   
![None.gif][]  
![None.gif][] void  CMyExeDlg::OnMyF2()   
![None.gif][]  
![ExpandedBlockStart.gif][] \{  
![InBlock.gif][]  
![InBlock.gif][]         // TODO: Add your control notification handler code here  
![InBlock.gif][]  
![InBlock.gif][]         HRESULT hr=CoInitialize(NULL);  
![InBlock.gif][]  
![InBlock.gif][]         CLSID  clsid;   
![InBlock.gif][]  
![InBlock.gif][]         hr=CLSIDFromProgID(OLESTR("MyProj.MyCom"),&clsid);  
![InBlock.gif][]  
![InBlock.gif][]         if(FAILED(hr))  
![InBlock.gif][]  
![ExpandedSubBlockStart.gif][]         \{  
![InBlock.gif][]  
![InBlock.gif][]                   AfxMessageBox("COM Failed");  
![InBlock.gif][]  
![InBlock.gif][]                   return;  
![InBlock.gif][]  
![ExpandedSubBlockEnd.gif][]         \}  
![InBlock.gif][]  
![InBlock.gif][]         IMyCom  \*ptr = NULL;  
![InBlock.gif][]  
![InBlock.gif][]         hr=CoCreateInstance(clsid,NULL,CLSCTX\_INPROC\_SERVER,\_\_uuidof(IMyCom),(LPVOID\*)&ptr);   
![InBlock.gif][]  
![InBlock.gif][]         char str\[32\];  
![InBlock.gif][]  
![InBlock.gif][]         sprintf(str,"Len=%d",ptr\->MyF2("abcdefg"));  
![InBlock.gif][]  
![InBlock.gif][]         AfxMessageBox(str);  
![InBlock.gif][]  
![InBlock.gif][]         ptr\->Release();// 释放实例  
![InBlock.gif][]  
![InBlock.gif][]         CoUninitialize();  
![InBlock.gif][]  
![ExpandedBlockEnd.gif][]\}   
![None.gif][]  
![None.gif][]   
![None.gif][]  
![None.gif][] void  CMyExeDlg::OnMyF3()   
![None.gif][]  
![ExpandedBlockStart.gif][] \{  
![InBlock.gif][]  
![InBlock.gif][]         // TODO: Add your control notification handler code here  
![InBlock.gif][]  
![InBlock.gif][]         HRESULT hr=CoInitialize(NULL);  
![InBlock.gif][]  
![InBlock.gif][]         CLSID  clsid;   
![InBlock.gif][]  
![InBlock.gif][]         hr=CLSIDFromProgID(OLESTR("MyProj.MyCom"),&clsid);  
![InBlock.gif][]  
![InBlock.gif][]         if(FAILED(hr))  
![InBlock.gif][]  
![ExpandedSubBlockStart.gif][]         \{  
![InBlock.gif][]  
![InBlock.gif][]                   AfxMessageBox("COM Failed");  
![InBlock.gif][]  
![InBlock.gif][]                   return;  
![InBlock.gif][]  
![ExpandedSubBlockEnd.gif][]         \}  
![InBlock.gif][]  
![InBlock.gif][]         IMyCom  \*ptr = NULL;  
![InBlock.gif][]  
![InBlock.gif][]         hr=CoCreateInstance(clsid,NULL,CLSCTX\_INPROC\_SERVER,\_\_uuidof(IMyCom),(LPVOID\*)&ptr);   
![InBlock.gif][]  
![InBlock.gif][]         AfxMessageBox(ptr\->MyF3("abcdefg"));  
![InBlock.gif][]  
![InBlock.gif][]         ptr\->Release(); // 释放实例  
![InBlock.gif][]  
![InBlock.gif][]         CoUninitialize();  
![InBlock.gif][]  
![ExpandedBlockEnd.gif][]\}   
![None.gif][]  
![None.gif][]   
![None.gif][]  
![None.gif][] void  CMyExeDlg::OnMyF4()   
![None.gif][]  
![ExpandedBlockStart.gif][] \{  
![InBlock.gif][]  
![InBlock.gif][]         // TODO: Add your control notification handler code here  
![InBlock.gif][]  
![InBlock.gif][]         HRESULT hr=CoInitialize(NULL);  
![InBlock.gif][]  
![InBlock.gif][]         CLSID  clsid;   
![InBlock.gif][]  
![InBlock.gif][]         hr=CLSIDFromProgID(OLESTR("MyProj.MyCom"),&clsid);  
![InBlock.gif][]  
![InBlock.gif][]         if(FAILED(hr))  
![InBlock.gif][]  
![ExpandedSubBlockStart.gif][]         \{  
![InBlock.gif][]  
![InBlock.gif][]                   AfxMessageBox("COM Failed");  
![InBlock.gif][]  
![InBlock.gif][]                   return;  
![InBlock.gif][]  
![ExpandedSubBlockEnd.gif][]         \}  
![InBlock.gif][]  
![InBlock.gif][]         IMyCom  \*ptr = NULL;  
![InBlock.gif][]  
![InBlock.gif][]         hr=CoCreateInstance(clsid,NULL,CLSCTX\_INPROC\_SERVER,\_\_uuidof(IMyCom),(LPVOID\*)&ptr);   
![InBlock.gif][]  
![InBlock.gif][]         int x=8; char str\[32\];  
![InBlock.gif][]  
![InBlock.gif][]         sprintf(str,"x=%d,x+1=%d",x,ptr\->MyF4(x));  
![InBlock.gif][]  
![InBlock.gif][]         AfxMessageBox(str);  
![InBlock.gif][]  
![InBlock.gif][]         ptr\->Release();// 释放实例  
![InBlock.gif][]  
![InBlock.gif][]         CoUninitialize();  
![InBlock.gif][]  
![ExpandedBlockEnd.gif][]\}   
![None.gif][]  
![None.gif][]

通过这个简单的例子，我们做了最简单的COM组件，及测试组件的客户端，在这里只是教大家如何用VC ATL做COM组件，在接下来这一篇里Developing COM Components using VC-ATL(2)将对COM的基本原理进行介绍，以及对这一例子的源代码进行剖析。  
                                                                                                       COM基础知识

[ATL_COM_]: http://blog.csdn.net/haizhongyun/article/details/7818648
[Link 1]: http://www.csdn.net/tag/%e6%9c%8d%e5%8a%a1%e5%99%a8
[interface]: http://www.csdn.net/tag/interface
[microsoft]: http://www.csdn.net/tag/microsoft
[library]: http://www.csdn.net/tag/library
[basic]: http://www.csdn.net/tag/basic
[object]: http://www.csdn.net/tag/object
[None.gif]: /images/20220731/cdeb3b072fe2476196312c4e1409ec9d.png
[ExpandedBlockStart.gif]: /images/20220731/4da63915a9b94ec289baec8c94970bf6.png
[InBlock.gif]: /images/20220731/ad7d353b95ef414387c6370aa214542f.png
[ExpandedSubBlockStart.gif]: /images/20220731/b203bec64dc74245a04bc5ea54b2a21f.png
[ExpandedBlockEnd.gif]: /images/20220731/32581f100666408b83bb209c5334f1b4.png
[dot.gif]: /images/20220731/239d594d47034d8bbd5eff47c176b86c.png
[ExpandedSubBlockEnd.gif]: /images/20220731/a64a47c7a5874076bca6c69498baba00.png