一、創建一個模型(工程) 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”

最后的StdAfx.h文件如下：
// stdafx.h : include file for standard system include files,
// or project specific include files that are used frequently, but
// are changed infrequently
//

#if !defined(AFX_STDAFX_H__2B646017_28AD_4CDE_9792_CB8F9A5C6B39__INCLUDED_)
#define AFX_STDAFX_H__2B646017_28AD_4CDE_9792_CB8F9A5C6B39__INCLUDED_

#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000

#define VC_EXTRALEAN // Exclude rarely-used stuff from Windows headers

#include <afxwin.h> // MFC core and standard components
#include <afxext.h> // MFC extensions
#include <afxdisp.h> // MFC Automation classes
#include <afxdtctl.h> // MFC support for Internet Explorer 4 Common Controls
#ifndef _AFX_NO_AFXCMN_SUPPORT
#include <afxcmn.h> // MFC support for Windows Common Controls
#endif // _AFX_NO_AFXCMN_SUPPORT

#import “…\MyProj\MyProj.tlb”

//{{AFX_INSERT_LOCATION}}
// Microsoft Visual C++ will insert additional declarations immediately before the previous line.

#endif // !defined(AFX_STDAFX_H__2B646017_28AD_4CDE_9792_CB8F9A5C6B39__INCLUDED_)

編譯 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();

下面為客戶測試端四個函數的完整代碼。

// 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;

/

// CAboutDlg dialog used for App About

class CAboutDlg : public CDialog

{

public:

CAboutDlg();

// Dialog Data

//{{AFX_DATA(CAboutDlg)enum { IDD = IDD_ABOUTBOX };//}}AFX_DATA// ClassWizard generated virtual function overrides//{{AFX_VIRTUAL(CAboutDlg)protected:virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support//}}AFX_VIRTUAL

// Implementation

protected:

//{{AFX_MSG(CAboutDlg)//}}AFX_MSGDECLARE_MESSAGE_MAP()

};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)

{

//{{AFX_DATA_INIT(CAboutDlg)//}}AFX_DATA_INIT

}

void CAboutDlg::DoDataExchange(CDataExchange* pDX)

{

CDialog::DoDataExchange(pDX);//{{AFX_DATA_MAP(CAboutDlg)//}}AFX_DATA_MAP

}

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)

//{{AFX_MSG_MAP(CAboutDlg)// No message handlers//}}AFX_MSG_MAP

END_MESSAGE_MAP()

/

// CMyExeDlg dialog

CMyExeDlg::CMyExeDlg(CWnd* pParent /=NULL/)

CDialog(CMyExeDlg::IDD, pParent)

{

//{{AFX_DATA_INIT(CMyExeDlg)// NOTE: the ClassWizard will add member initialization here//}}AFX_DATA_INIT// Note that LoadIcon does not require a subsequent DestroyIcon in Win32m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);

}

void CMyExeDlg::DoDataExchange(CDataExchange* pDX)

{

CDialog::DoDataExchange(pDX);//{{AFX_DATA_MAP(CMyExeDlg)// NOTE: the ClassWizard will add DDX and DDV calls here//}}AFX_DATA_MAP

}

BEGIN_MESSAGE_MAP(CMyExeDlg, CDialog)

//{{AFX_MSG_MAP(CMyExeDlg)ON_WM_SYSCOMMAND()ON_WM_PAINT()ON_WM_QUERYDRAGICON()ON_BN_CLICKED(IDC_BUTTON1, OnMyF1)ON_BN_CLICKED(IDC_BUTTON2, OnMyF2)ON_BN_CLICKED(IDC_BUTTON3, OnMyF3)ON_BN_CLICKED(IDC_BUTTON4, OnMyF4)//}}AFX_MSG_MAP

END_MESSAGE_MAP()

/

// CMyExeDlg message handlers

BOOL CMyExeDlg::OnInitDialog()

{

CDialog::OnInitDialog();// Add "About" menu item to system menu.// IDM_ABOUTBOX must be in the system command range.ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);ASSERT(IDM_ABOUTBOX < 0xF000);CMenu* pSysMenu = GetSystemMenu(FALSE);if (pSysMenu != NULL){CString strAboutMenu;strAboutMenu.LoadString(IDS_ABOUTBOX);if (!strAboutMenu.IsEmpty()){pSysMenu->AppendMenu(MF_SEPARATOR);pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);}}// Set the icon for this dialog. The framework does this automatically// when the application's main window is not a dialogSetIcon(m_hIcon, TRUE); // Set big iconSetIcon(m_hIcon, FALSE); // Set small icon// TODO: Add extra initialization herereturn TRUE; // return TRUE unless you set the focus to a control

}

void CMyExeDlg::OnSysCommand(UINT nID, LPARAM lParam)

{

if ((nID & 0xFFF0) == IDM_ABOUTBOX){CAboutDlg dlgAbout;dlgAbout.DoModal();}else{CDialog::OnSysCommand(nID, lParam);}

}

// If you add a minimize button to your dialog, you will need the code below

// to draw the icon. For MFC applications using the document/view model,

// this is automatically done for you by the framework.

void CMyExeDlg::OnPaint()

{

if (IsIconic()){CPaintDC dc(this); // device context for paintingSendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);// Center icon in client rectangleint cxIcon = GetSystemMetrics(SM_CXICON);int cyIcon = GetSystemMetrics(SM_CYICON);CRect rect;GetClientRect(&rect);int x = (rect.Width() - cxIcon + 1) / 2;int y = (rect.Height() - cyIcon + 1) / 2;// Draw the icondc.DrawIcon(x, y, m_hIcon);}else{CDialog::OnPaint();}

}

// The system calls this to obtain the cursor to display while the user drags

// the minimized window.

HCURSOR CMyExeDlg::OnQueryDragIcon()

{

return (HCURSOR) m_hIcon;

}

void CMyExeDlg::OnMyF1()

{

// TODO: Add your control notification handler code hereHRESULT hr=CoInitialize(NULL);CLSID clsid; hr=CLSIDFromProgID(OLESTR("MyProj.MyCom"),&clsid);if(FAILED(hr)){AfxMessageBox("COM Failed");return;}IMyCom *ptr = NULL;hr=CoCreateInstance(clsid,NULL,CLSCTX_INPROC_SERVER,__uuidof(IMyCom),(LPVOID*)&ptr); ptr->MyF1();ptr->Release(); // 釋放實例CoUninitialize();

}

void CMyExeDlg::OnMyF2()

{

// TODO: Add your control notification handler code hereHRESULT hr=CoInitialize(NULL);CLSID clsid; hr=CLSIDFromProgID(OLESTR("MyProj.MyCom"),&clsid);if(FAILED(hr)){AfxMessageBox("COM Failed");return;}IMyCom *ptr = NULL;hr=CoCreateInstance(clsid,NULL,CLSCTX_INPROC_SERVER,__uuidof(IMyCom),(LPVOID*)&ptr); char str[32];sprintf(str,"Len=%d",ptr->MyF2("abcdefg"));AfxMessageBox(str);ptr->Release();// 釋放實例CoUninitialize();

}

void CMyExeDlg::OnMyF3()

{

// TODO: Add your control notification handler code hereHRESULT hr=CoInitialize(NULL);CLSID clsid; hr=CLSIDFromProgID(OLESTR("MyProj.MyCom"),&clsid);if(FAILED(hr)){AfxMessageBox("COM Failed");return;}IMyCom *ptr = NULL;hr=CoCreateInstance(clsid,NULL,CLSCTX_INPROC_SERVER,__uuidof(IMyCom),(LPVOID*)&ptr); AfxMessageBox(ptr->MyF3("abcdefg"));ptr->Release(); // 釋放實例CoUninitialize();

}

void CMyExeDlg::OnMyF4()

{

// TODO: Add your control notification handler code hereHRESULT hr=CoInitialize(NULL);CLSID clsid; hr=CLSIDFromProgID(OLESTR("MyProj.MyCom"),&clsid);if(FAILED(hr)){AfxMessageBox("COM Failed");return;}IMyCom *ptr = NULL;hr=CoCreateInstance(clsid,NULL,CLSCTX_INPROC_SERVER,__uuidof(IMyCom),(LPVOID*)&ptr); int x=8; char str[32];sprintf(str,"x=%d,x+1=%d",x,ptr->MyF4(x));AfxMessageBox(str);ptr->Release();// 釋放實例CoUninitialize();

}

通過這個簡單的例子，我們做了最簡單的COM組件，及測試組件的客戶端，在這里只是教大家如何用VC ATL做COM組件，在接下來這一篇里Developing COM Components using VC-ATL(2)將對COM的基本原理進行介紹，以及對這一例子的源代碼進行剖析。
COM基礎知識

COM的產生

應用程序被開發來支持公司業務運轉，應用程序獲取作為輸入的數據，處理基于業務規則的數據，和提供作為輸出的數據和信息?；谶@一事實，所有的應用程序都有三個要素：

n 用戶界面或呈現要素，通過它們可以輸入數據。

n 應用程序邏輯或業務規則要素，它們有助于實現對輸入數據執行有效性、可用性操作。

n 數據存儲或數據管理要素，它們管理數據的存儲和恢復。

這三個要素養組成了用于應用程序開發模型或體系結構的基礎。

根據具體的用途和配置，開發都在他們的應用程序中決定采用何種體系結構時有三種選擇：

n 單層模型

n 雙層模型

n 三層或多層模型

作為一個開發者，在決定應用程序的體系結構之前，你要考慮以下因素：

n 伸縮性：這指的是應用程序適應新的硬件環境的性能。例如，當一個應用程序從一個單處理器計算機移到一個多處理計算機時，它是否能使用新增加的處理器，這些處理器在新硬件上是否發揮了作用。

n 可用性：這指的是應用程序滿足用戶增加要求的能力?？赡苡幸话賯€用戶正在請求同樣的數據，但是只有少數用戶獲得數據，其他的用戶則顯示一則消息“請稍后再試”。

n 擴展性：這指的是應用程序有時遞增地增加特色來提高性能和提供更好的功能給用戶的能力。

n 維護性：這指的是根據人力和時間使用最小化的資源和最大化的有效性來響應修修復改錯誤的能力。

n 安全性：這指的是應用程序維持數據完整性、可靠性的能力。任何未經認可的用戶都不允許篡改數據。

n 性能：這指的是應用程序在最短的時間內響應用戶請求的能力。用戶不要等待很長時間就能獲得請求數據。

為了設計更健壯的應用程序體系結構，三(多)層體系結構就運用而生。三層體系結構是一種邏輯應用程序觀點，在這種體系結構中應用程序分成以下三層邏輯組成部分：

n 用戶服務層。用戶服務層管理用戶界面。

n 業務服務層。業務服務層管理由應用程序實現的業務邏輯。業務邏輯由支配應用程序處理的規則組成。這一層對用戶封裝了業務邏輯，因而用戶不必了解業務邏輯或業務規則是如何使用的。業務規則的任何變化將導致僅對業務服務層的更改，而應用程序的其余部分保持不變。業務服務層實現用于應用程序的多條規則。這一層扮演了用戶服務層和數據服務層間連接的角色。

n 數據服務層。數據服務層負責維護數據，通常為RDBMS。這一層維護數據的有效性和完整性，并且負責從數據存儲中增加、修改和刪除數據。

現在，我們如何來做業務服務層呢?答案就是COM。

什么是COM?

COM即為組件對象模型，它為開發組件定義了標準。它定義了組件交互標準、協議標準和組件的物理結構來確保組件間的互用性。一個組件就是一個執行特定操作的程序或二進制對象。下面我們就從組件的一些特點和功能來理解一下COM：

n COM是一種規范。COM規范描述了為創建能共同操作的組件而必須遵守的標準。這個標準描述了COM是什么和它們是如何運轉的，以及說明了如何可動態交替更新組件。

n COM是一套服務。COM規范是由一套服務或APIs來支持的。COM庫提供這些服務，它們是WIN32平臺操作系統的一部分并且可用于當作其他操作系統的一個單獨的包。

n COM是面向對象的。COM組件對象有標識、狀態和行為。

n COM能夠容易的用戶化和升級你的應用程序。COM組件動態地相互聯結，并且COM定義了定位其他組件和鑒定其功能的標準。因此，組件可以交換而不必重新編繹整個應用程序。

n COM能夠分布式應用。位置透明性是COM的特性之一。這使得你可以編寫COM組件而不必考慮它們的位置。組件可以移動而不要求對使用它們的應用程序作任何改變。

n COM組件可以用任何語言編寫。任何能夠處理二進制語言都能用于創建COM對象。能創建組件的語言和工具包括C/C++、JAVA、VISUAL BASIC和VISUAL C++等。

到目前為止，微軟提倡的這套COM軟件開發模式是最為符合現在計算機工業軟件生產的方法。Microsoft的許多技術，如ActiveX, DirectX以及OLE等都是基于COM而建立起來的。并且Microsoft的開發人員也大量使用COM組件來定制他們的應用程序及操作系統。在COM構架下，程序員可以開發出各種各樣的功能專一的組件，然后將它們按照需要組建起來，構成復雜的應用系統。由此帶來的好處是多方面的：

n 使用組件的最大好處首先是可以將它們動態的插入或卸出應用系統，是真正意義上的軟件模塊即插即用。組件可以在運行時刻，在不被重新鏈接或編譯應用程序的情況下，可以將系統中的組件用新的組件替換掉，以便即時方便地進行系統的升級和定制。這樣做的最大好處是程序員可以利用最新的技術寫出的最新組件取代以有的舊組件而整個系統的其他部分不需要一點改動。應用程序可以隨新組件不斷取代舊的組件而漸趨完善且健壯。而且利用已有的組件，用戶還可以快速的建立全新的應用。(注意：替換的組件均為自定義的組件，不是COM本身的運行時間庫中的組件)

n 二進制重用。按照COM規范，組件可以在多個應用系統中重復利用同一組件。

n 分布式應用。利用COM/DCOM組件技術，可以方便的將應用系統擴展到網絡環境下。

n COM與語言無關?？梢允褂枚喾N語言編寫COM組件，如DELPHI、VISUAL BASIC…這使得程序員可以利用自己擅長的語言來編寫組件，而無須學習其他專門的語言來編寫組件。

n COM與平臺無關。利用已編寫的組件可以方便地在不同平臺間移植。

在三層體系結構中，創建COM組件來實現業務服務層。因為COM組件能夠相互作用，每個組件必須嚴格地貫徹由COM擬定的完整的標準。

COM具有顯著的優點在于它提供了三個獨有的特性：

n 調用組件間功能的二進制標準。COM確保用VISUAL BASIC開發的客戶端和用VISUAL C++開發并且運行于Solaris或Mac服務端的組件間完全的二進制的兼容性。因此，COM允許你創建確實是獨立于語言和操作系統的代碼模塊。

n 代碼重用。因為接口是文檔化的，所以創建對象的代碼能被不同的客戶使用。

n 版本控制。基于COM的組件是自我版本化的。暗示新的功能可以增加到組件中，而不影響已使用該組件的用戶(/客戶)

由此可見，COM組件是真正地面向對象，提供簡易的用戶化，提供地址透明并且能用任何語言編寫。正由于COM具有這些優點，COM得到了廣泛應用。

COM組件是真正地面向對象

n 傳統的面向對象編程

面向對象編程是一個被廣大編程人員和工業界認同已久的概念。面向對象程序設計語言讓開發者按照現實世界里人們思考問題的模式來編寫程序，它讓開發者更好地用代碼直接表達現實中存在的對象，這樣開發代碼簡單并且易于維護。面向對象語言有以下三個最重要的概念：

n 封裝（Encapsulation） 強調隱藏對象的實現細節，對象的使用者僅僅通過定義好的接口使用對象。

n 繼承（Inheritance） 新的對象可以利用舊的對象的功能。

n 多態（Polymorphism） 根據所使用的對象展現多種不同行為的能力。

而從程序的整體來看，面向對象編程提供給用戶的最重要的概念則是源代碼重用，它對于提高編寫程序的效率極為重要。但是代碼的共享與重用一旦應用于實踐中仍然存在種種問題，如版本的升級、接口[1]的變化、在不同程序設計語言之間共享代碼等等。對于這些困難原有的面向對象程序設計方法并沒有相應的答案，這就是組件對象模型提出的背景。

n 基于組件編程

它與傳統面向對象模型有著根本的區別，傳統的面向對象編程模型的重點是源程序以及系統分析和設計過程，面向對象歸根到底還是基于源代碼的重用，不是真正意義上的面向對象。相反，COM組件的概念則強調大的軟件系統如何由不同的小組件構成整體應用程序體系結構。

將工程分解為邏輯組件是面向組件分析和設計的基礎，這也是組件軟件的基礎。組件軟件系統由可重用的二進制形式的軟件組件模塊組成，只需要相當小的改動就可以將這些來自不同開發商的組件模塊組合在一起。特別重要的是這樣的組合并不需要源代碼，也不需要重新編譯，組件之間是通過基于二進制的規范進行通訊的，這被稱為二進制重用。組件模塊是獨立于編程語言的，使用組件的客戶程序和組件之間除了通過標準的方法進行通訊以外，彼此不做任何限定。

組件可以劃分為不同的類型，包括可視化組件如按鈕或者列表框；功能組件如打印或者拼寫檢查。例如一個基于組件的架構可以提供將多個開發商的拼寫檢查組件插入到另一個開發商的字處理應用程序中的機制，這樣用戶可以根據自己的喜好方便地選擇和替換字處理軟件。

COM允許你創建相互聯合起來形成應用程序的獨立的、可重用的組件。在COM中，組件間的相互作用是基于Client/Server模型的(即客戶機和服務器模型)?；谶@個模型，COM組件可以分類為：

n Client 使用由其他組件提供的功能。

n Server 有其他組件可能使用的預先確定的功能的組件。

客戶程序和組件程序是相對的，進行功能請求調用的是客戶程序，而響應該請求的是組件程序。組件程序也可以作為客戶程序去調用其它的組件程序，即提供服務給客戶端的COM服務器可能是客戶本身。正是這種角色的轉換和相互調用關系使組件程序最終構成一個軟件系統。

服務器組件的類型COM設計為允許組件相互通信而不管它們的地址。例如，用戶接口組件將最好定位于接近客戶端。另一方面，提供遠程數據統計計算的組件將隨同將被操作的數據可能定位在一臺分離的計算機上。COM服務端組件可分為三類：

n 進程內組件 進程內服務器[2]是裝入客戶端的進程空間內的組件，即客戶程序和組件程序在同一個進程地址空間內。在客戶端和服務端組件間有大量數據轉移操作的情況下是理想的。進程內服務器會更快地裝載。由于它占用和客戶端應用程序同樣的地址空間，它可以與客戶端更快的通信。進程內服務器是通過將組件作為動態連接庫(DLL)的形式來實現的。DLL允許特定的一套功能以分離于可執行的、以DLL為擴展名的文件進行存儲。只有當程序需要它們時，DLL才將其裝入內存中，客戶程序將組件程序加載到自己的進程地址空間后再調用組件程序的函數。

n 本地(即進程外)組件 進程外組件指客戶程序和組件程序分別處在不同的進程空間地址中。進程外服務器對需要運行于獨立的處理空間或作為獨立客戶端應用程序的線程的組件是理想的。這種服務器的類型自身是EXE，因此具有獨立的進程的資格。由于數據必須從一個地址空間移到另一個地址空間，因此這些服務器就會慢得多。由于進程外服務器是可執行的，它們運行在自己的線程內。當客戶端代碼正在執行時，客戶端不鎖住服務器。進程外服務器對需要表現為獨立的應用程序的組件也是理想的。例如，Microsoft Internet Explorer的應用程序是本地服務器的例子?？蛻舳撕头斩说耐ㄐ攀峭ㄟ^進程內的通信協議進行的，這個通信協議是IPC。

n 遠程組件 遠程服務器與本地服務器類似，除了遠程服務器是運行在通過網絡連接的分離的計算機上。這種功能是使用DCOM實現的。DCOM的優點在于它并不要求任何特別的編程來使具有功能。另外服務端和客戶端通信是通過RPC通信協議進行的。

對于這三種不同的服務器組件，客戶程序和組件程序交互的內在方式是完全不同的。但是對于功能相同的進程內和進程外組件，從程序編寫的角度看，客戶程序是以同樣的方法來使用組件程序的，客戶程序不需要做任何的修改。

COM的真相

COM是一種軟件體系結構，這種體系結構允許用不同的軟件商提供的組件來構造應用程序和系統。它是一套二進制的和網絡標準，允許任何軟件相互通信而不管硬件、操作系統OS和用于開發的編程語言。COM不是一種編程語言而是一套規范，它定義了組件怎么樣可以相互通信。

每個COM組件被編寫成滿足由COM規定的二進制標準。這一些標準是：

n 組件要求注意它們自己(即組件對象[3])的創建和銷毀

n 組件要求以標準方式提供它們的功能(即通過接口[4])

n 組件的位置要求對用戶透明

使用組件的優點在于具有將它們動態裝載或卸出應用程序系統的能力。為了達到這一目的，組件必須滿足兩個需求：

n 組件必須動態鏈接[5]。這允許它們在運行時改變。如果應用程序是由每次組件改變時靜態鏈接的組件組成，那么應用程序就等同于一個單一的應用程序。

n 在實現時組件必須隱藏。每個組件具有唯一識別自己的ID作為標識。這些ID出現在系統注冊表HKEY_CLASSES_ROOT目錄里。

動態鏈接對于組件而言是一個至關重要的要求，而實現細節隱藏則是動態鏈接的一個必要條件。

COM的工作方式到目前為止，顯然COM并不僅僅是書面形式的規范。它也包含系統級的代碼，即它自身的實現。COM規則出現在COM運行庫里。組件對象庫，即COM運行時間庫是一個系統組件，這個系統組件提供能夠在進程內、進程外或通過網絡進行調用的COM。COM核心，簡單地講，是組件對象和客戶端使用二進制標準如何交互的規范。COM在操作系統內的實現為COM運行時間庫。COM運行時間庫包括：

n API函數

n 服務

n 允許應用程序在進程內控制內存分配的標準機制

n …

組件對象庫是通過Windows3.1中的COMPOBJ.DLL以及Windows NT和Windows 9X中的OLE32.DLL實現的。接口

n 概述

n 組件對象高度地封裝。組件對象的內部實現對用戶完全隱藏，根本無法知道組件對象在使用何種數據結構和這些數據是如何被函數處理的。每個組件有一個接口，這個接口是一種且唯一的訪問組件對象功能的方式。接口是由一組虛函數的聲明組成。它使得預期的行為和響應清淅化。接中并不具有這些函數的實現。函數是通過組件類(CoClass)實現的。組件類實例化時生成組件對象。

n 接口是用稱為虛函數表(VTable)的內存結構實現的。無論何時創建組件對象，組件對象也在內存中創建一張對應的虛函數表。虛函數表是由一系列指針組成，這些指針存儲了由組件對象實現的成員函數的地址。

n 客戶端創建一個接口指針，接口指針指向一個虛指針，虛指針指向虛函數表。使用接口指針和虛指針，客戶端就可以訪問組件對象實現的成員函數。

VTable是一個函數指針數組的內存結構。每一個數組元素包含的是一個由組件所實現的函數地址。對于COM而言，接口也就是此內存結構，其他東西，均是COM不關心的實現細節。

n 特征

n 接口是集合在同一個名稱(是一個系統唯一的ID值，稱IID)下的相關函數(/方法)的集合。這說明接口必須是全球唯一的。

n 如前所述，當組件類實例化時產生組件對象。接口是由組件對象實現的函數的集合。接口不可以被實例化，因為它沒有實現。

n 組件之間的通訊是基于接口的。接口是組件和其客戶之間嚴格類型化的契約。實現相同接口的兩個對象就被認為是多態的，這里的多態不包含諸如基類指針指向派生類對象的意義，這里是指同一個接口可以由多個組件對象以不同方法實現。

n 組件對象可以實現多個接口。例如，銀行交易組件(BankTransaction)支持兩個接口，IDebit和ICredit，即借和貸；又例如，Microsoft SQL SERVER數據庫服務器組件(SqlImplementation)支持兩個接口，一個是維護數據處理，另一個是維護數據定義。數據處理接口提供增加、更新和刪除數據方法，然而，數據定義接口提供創建數據庫、表和視圖的方法。

n 接口沒有版本化并且是不變的，如果功能必須改變以適應一個接口，則將創建一個有唯一標識的完全新接口。組件對象實現這兩個接口，因而解決了版本問題。為較早版本的接口制作的客戶端仍舊可以訪問原來的接口。

n 注意

n 原來的舊接口是可以改變的，但是接口中的函數說明不能改變，即接口中的函數的函數名、參數形式不能改變，因為這樣改變就需要使得客戶端調用服務的代碼進行修改和進行重新編繹。但是接口中的函數的函數體是可以修改的。這就是接口不變性的本質，也是COM規范。

COM標識符因為全球都在開發和使用組件，因此需要標識唯一地標識每個組件。開發軟件基金會(OSF)研究出一種能產生唯一標識符的算法，稱之為全球唯一標識符(UUID)。在COM中，UUID被稱之為全局唯一標識符(GUID)。GUID是能分配給接口、組件類和類型庫的128位或16字節數。GUID唯一地標識組件。生成GUID的算法根據以下幾個方面：

n 當前日期和時間。

n 網絡適配器卡地址。

n 時針序。

n 自動遞增計數器。

COM使用的128位的接口標識符使得我們可能創建大約340282366920900000000000000000000000000個獨立的接口，足夠為將來10782897524560000000年每秒創建一萬億個接口。網卡地址是相互不同的，對沒有網卡的機器，地址對使用中的機器保持唯一性。GUID可能通過執行UUIDGEN.EXE或GUIDGEN.EXE產生。GUIDGEN是裝載Microsoft Visual Studio中的一個工具，它通常在C:\Program Files\Microsoft Visual Studio\Common\Tools\GUIDGEN.EXE。GUID分為三類，具體見下：

n CLSID 是唯一地標識類或組件的GUID，傳統地，CLSID的一般形式為CLSID_，在本例中：

在MyProj_i.c中表示為

const CLSID CLSID_MyCom = {0xFEB7BDEF,0xFB6F,0x446B,{0xBE,0x31,0xDF,0x0A,0x3A,0xD3,0x91,0xBA}};

在MyProj.idl中表示為

[uuid(FEB7BDEF-FB6F-446B-BE31-DF0A3AD391BA),helpstring("MyCom Class")]coclass MyCom{[default] interface IMyCom;};

在MyCom.rgs中表示為

HKCR

{

MyProj.MyCom.1 = s 'MyCom Class'{CLSID = s '{FEB7BDEF-FB6F-446B-BE31-DF0A3AD391BA}'}MyProj.MyCom = s 'MyCom Class'{CLSID = s '{FEB7BDEF-FB6F-446B-BE31-DF0A3AD391BA}'CurVer = s 'MyProj.MyCom.1'}NoRemove CLSID{ForceRemove {FEB7BDEF-FB6F-446B-BE31-DF0A3AD391BA} = s 'MyCom Class'{ProgID = s 'MyProj.MyCom.1'VersionIndependentProgID = s 'MyProj.MyCom'ForceRemove 'Programmable'InprocServer32 = s '%MODULE%'{val ThreadingModel = s 'Apartment'}'TypeLib' = s '{FE651184-11DE-4D01-BD69-B07DDFA12D0C}'}}

}

n ProgID 顯然，上面的CLSID難以記憶且難以使用。ProgID是分配給對象的用戶友好名。ProgID不可能是單一的。每個ProgID映射到CLSID。命名習慣可以是..。在本例中：

在MyCom.rgs中可以看到，有這么兩句

…

ProgID = s 'MyProj.MyCom.1'VersionIndependentProgID = s 'MyProj.MyCom'

…

通過分別地調用函數ProgIDFromCLSID和CLSIDFromProgID可以將ProgID轉換為CLSID和將CLSID轉換為ProgID。如在本示例中的客戶端程序中

HRESULT hr=CoInitialize(NULL);

CLSID clsid;hr=CLSIDFromProgID(OLESTR("MyProj.MyCom"),&clsid);if(FAILED(hr)){AfxMessageBox("COM Failed");return;}

調用函數CLSIDFromProgID把作為第一個參數的ProgID的CLSID存放到第二個參數中。

n IID 是唯一標識接口的GUID。按照慣例，IID的一般形式為IID_，在本例中：

在MyProj_i.c中表示為

const IID IID_IMyCom = {0x65460F9C,0x3BAB,0x4055,{0x88,0x5A,0x8E,0xD5,0x9F,0x5F,0xA9,0xB0}};

在MyProj.idl中表示為

[

object,uuid(65460F9C-3BAB-4055-885A-8ED59F5FA9B0),dual,helpstring("IMyCom Interface"),pointer_default(unique)

]

interface IMyCom : IDispatch

{

[id(1), helpstring("method MyF1")] HRESULT MyF1();[id(2), helpstring("method MyF2")] HRESULT MyF2([in] BSTR str,[out, retval] int* val);[id(3), helpstring("method MyF3")] HRESULT MyF3([in] BSTR str,[out, retval] BSTR* retstr);[id(4), helpstring("method MyF4")] HRESULT MyF4([in] int x,[out, retval] int* val);

};

n TypeLibID 是標識系統上的類型庫。按照慣例，TypeLibID的一般形式為LIBID_<組件工程名>Lib，在本例中：

在MyProj_i.c中表示為

const IID LIBID_MYPROJLib = {0xFE651184,0x11DE,0x4D01,{0xBD,0x69,0xB0,0x7D,0xDF,0xA1,0x2D,0x0C}};

在MyProj.idl中表示為

[

uuid(FE651184-11DE-4D01-BD69-B07DDFA12D0C),

version(1.0),

helpstring(“MyProj 1.0 Type Library”)

]

library MYPROJLib

{

importlib(“stdole32.tlb”);

importlib(“stdole2.tlb”);

};

在MyCom.rgs中也可以看到這么一句

‘TypeLib’ = s ‘{FE651184-11DE-4D01-BD69-B07DDFA12D0C}’

COM對象的注冊角色

如果COM組件用文件名裝載并且組件位置或名字變化了，客戶應用程序將不能訪問組件。文件名無法提供在一個系統上的不同的組件版本，因而造成了不同版本商之間的產品沖突。

COM通過借助標識符ID注冊系統注冊表中的COM組件的位置來處理這個問題。COM組件的ID必須保證是系統唯一的，以避免與不同產品的沖突，并且客戶可不必知道組件的物理位置而可以訪問組件，這也就是所謂的組件對客戶的透明化。

COM類注冊在HKEY_CLASSES_ROOT\CLSID主鍵下。對每個CLSID主鍵，有一個子鍵InprocServer32，這個子鍵的默認值為DLL的文件名。

組件可以使用regsver32程序注冊。這個程序提供進入注冊表的組件。DLL文件可以使用以下命令注冊：Regsver32 <DLL filename>為了注冊EXE文件，命令語法為：

/regserver

注冊COM組件讀取的注冊文件是MyCom.rgs

在本例中，注冊表的結構為(紅色為CLSID，綠色為IID，藍色為LIBID)

HKEY_CLASSES_ROOT\CLSID{FEB7BDEF-FB6F-446B-BE31-DF0A3AD391BA}

默認MyCom Class

\InprocServer32

默認C:\MyProj\Debug\MyProj.dll

Apartment ThreadingModel

\ProgID

默認MyProj.MyCom.1

\Programmable

\TypeLib

默認{FE651184-11DE-4D01-BD69-B07DDFA12D0C}

\VersionIndependentProgID

默認MyProj.MyCom

HKEY_CLASSES_ROOT\MyProj.MyCom

\CLSID

默認{FEB7BDEF-FB6F-446B-BE31-DF0A3AD391BA}

\CurVer

默認MyProj.MyCom.1

HKEY_CLASSES_ROOT\MyProj.MyCom.1

\CLSID

默認{FEB7BDEF-FB6F-446B-BE31-DF0A3AD391BA}

HKEY_CLASSES_ROOT\Interface\{65460F9C-3BAB-4055-885A-8ED59F5FA9B0}默認IMyCom

\ProxyStubClsid

\ProxyStubClsid32

\TypeLib

默認{FE651184-11DE-4D01-BD69-B07DDFA12D0C}

Version 1.0

HKEY_CLASSES_ROOT\TypeLib\{FE651184-11DE-4D01-BD69-B07DDFA12D0C}

\1.0

默認MyProj 1.0 Type Library

\1.0\0

\1.0\0\win32默認C:\MyProj\Debug\MyProj.dll

\1.0\FLAGS

\1.0\HELPDIR

默認C:\MyProj\Debug\

接口類型

完整的COM編程系統是基于接口的。接口可以分為以下幾類：

n 標準接口 由COM系統提供的接口

n 自定義接口 由開發者創建的接口

大多數由標準接口實現的方法被系統調用。這樣的標準接口有IUnknown、IDispatch、IClassFactory、IOle、IDateObject、IStream、IStorage…自定義接口的目的是提供更多的功能給用戶。標準接口由COM系統提供的不同的標準接口有：

n IUnknown IUnknown 是所有接口的基接口。甚至自定義接口也執行IUnknown。 所有的COM組件都必須實現這個接口。IUnknown 用于組件對象的生命周期管理。它也可以查詢被組件對象使用的其他接口。

下面的等式闡明了C++對象和COM對象之間的關系：

C++對象+ IUnknown=COM對象

IUnknown接口用于組件對象的生命周期管理，它執行以下方法實現這個功能

n AddRef

n Release

組件對象可以被多個應用程序使用，每次執行應用程序，需要將組件裝載進內存，在32位Windows如Windows NT，每次應用程序請求組件時，組件的拷貝則映射到應用程序的地址空間并增加引用計數；類似的，每次應用程序和組件斷開連接，則減小引用計數。操作系統維護著組件對象存在的連接計數。當計數下降為0，則暗示沒有應用程序訪問組件并銷毀組件。

組件的引用計數使用函數AddRef和Release維護。AddRef增加計數；而Release負責減小計數。

IUnknown還有一個稱為QueryInterface的函數，它提供了所支持接口的列表。QueryInterface方法帶有兩個參數，第一個是一個標識所需要接口的接口標識符，第二個是QueryInterface存放接口地址的指針。因此，QueryInterface用來提供接口的指針來訪問組件的功能。

n IDispatch 當客戶端正常時，腳本語言或Visual Basic應用程序調用組件對象的函數，IDispatch接口查詢函數的地址并執行它。當組件相互調用時就使用IDispatch。

IDispatch接口是為那些需要和客戶特別是Visual Basic和腳本語言等不支持指針的客戶相互作用的組件實現的。考慮一個實例，Visual Basic應用程序在Microsoft Access數據庫中存儲數據并使用Microsoft Excel創建圖表。這里，Visual Basic和Microsoft Access數據庫組件及Microsoft Excel圖表組件相互作用。這只有所有組件都實現了IDispatch接口才可能。

IDispatch接口是用來暴露組件功能的標準接口。但是它由于需依次調用系統函數而增加了系統的開銷。

n IClassFactory IClassFactory接口用于創建新的COM對象的實例。

到現在，你已經熟悉組件的不同類型，即進程內、本地和遠程的。假設你的組件是一個進程內組件，你如何創建類的一個實例呢?答案是C++的new操作符。但是如果組件是本地的或是遠程的呢?那么，顯然new操作符不是答案。

COM對這個問題的答案是IClassFactory接口。

IClassFactory接口是特定設計用來當實現時創建另一個本地類或遠程類的實例的接口。

IClassFactory接口有CreateInstance和LockServer兩個方法。

CreateInstance方法實際上創建COM對象的實例。

LockServer方法用來保持組件在內存中以致允許更快地創建實例。

n IOle IOleObject是實現OLE對象嵌套的主要接口。 IOleLink是使用OLE對象鏈接的主要接口。

n IDataObject 用于實現拖放式功能的接口。

n IStream和IStorage IStream和IStorage接口用于創建和管理存儲對象。這些接口典型用于數據來自多個源的OLE應用程序。

IDataObject、IStream和IStorage三個接個均使用統一數據傳輸協議(UDT)，它描述了通過不同類型的應用程序的交換標準。

小結

為什么需要組件對象模型COM?

COM組件是執行特定操作的程序或二進制對象。COM為開發組件定義了標準、組件交互、協議標準以及組件的物理結構來確保組件的互操作性。COM規范在COM運行時間庫中體現，它提供了在進程中、進程外及跨網絡的調用組件的能力。

COM的工作原理是什么?

COM允許你創建獨立的、可重用的、共同聯合形成應用程序的組件。在COM中，組件之間的互操作是基于客戶/服務器模型的。組件對象是高度封裝的。組件對象的內部實現對用戶是完全隱藏的。每個組件都有接口，接口是唯一的可以訪問組件對象功能的方法。

接口的特征是什么?

接口沒有任何實現，所以所有接口不能被實例化。接口是非版本化的并且不可改變。

什么是UUID/GUID?

當開發了組件并全局使用它時，它使用所謂的通用唯一標識行UUID來唯一標識組件。在COM中，UUID是指全局唯一標識符GUID。GUID分為CLSID、IID和LIBID三類。

對組件的十一個文件的剖析

一、stdafx.h

代碼選取

…

#define STRICT

#ifndef _WIN32_WINNT

#define _WIN32_WINNT 0x0400

#endif

#define _ATL_APARTMENT_THREADED

#include <afxwin.h>

#include <afxdisp.h>

#include <atlbase.h>

//You may derive a class from CComModule and use it if you want to override

//something, but do not change the name of _Module

extern CComModule _Module;

#include <atlcom.h>

…

代碼剖析

n 包含了ATL頭文件

#include <atlbase.h>

#include <atlcom.h>

n 兩個聲明

#define _ATL_APARTMENT_THREADED

定義了將成為apartment模型的DLL默認線程模型。

_Module是CComModule類型的對象，CComModule實現了COM服務器的基本功能，實現并提供了諸如注冊、實例化所支持對象以及通過對象映射管理生命周期等服務。注意因為它通過ATL頭文件所引用，所以CComModule對象必須是全局的且必須命名為_Module。

另外，這個類也是ATL的中心，正如主函數對任何程序的入口點(C/C++)，這個類的模塊對象處理幾個任務，如：服務器鎖計數、注冊本地服務器的類工廠、根據注冊表注冊和反注冊。

二、stdafx.cpp

…

#ifdef _ATL_STATIC_REGISTRY

#include <statreg.h>

#include <statreg.cpp>

#endif

#include <atlimpl.cpp>

三、MyProj.def輸出定義文件

代碼選取

; MyProj.def : Declares the module parameters.

LIBRARY “MyProj.DLL”

EXPORTS

DllCanUnloadNow @1 PRIVATEDllGetClassObject @2 PRIVATEDllRegisterServer @3 PRIVATEDllUnregisterServer @4 PRIVATE

代碼剖析

也稱模塊定義文件，只有進程內服務器DLL才產生，它提供了被鏈接程序的信息(DLL文件的名字)

四、MyProj.tlb類型庫

編繹后生成，客戶端使用時用#import方式導入之。

五、MyProj.idl接口定義語言文件

代碼選取

…

import “oaidl.idl”; //此文件包括IDispatch接口的定義，import相當于#include

import “ocidl.idl”;

[object,uuid(65460F9C-3BAB-4055-885A-8ED59F5FA9B0),dual,helpstring("IMyCom Interface"),pointer_default(unique)]interface IMyCom : IDispatch{[id(1), helpstring("method MyF1")] HRESULT MyF1();[id(2), helpstring("method MyF2")] HRESULT MyF2([in] BSTR str,[out, retval] int* val);[id(3), helpstring("method MyF3")] HRESULT MyF3([in] BSTR str,[out, retval] BSTR* retstr);[id(4), helpstring("method MyF4")] HRESULT MyF4([in] int x,[out, retval] int* val);};

[

uuid(FE651184-11DE-4D01-BD69-B07DDFA12D0C),version(1.0),helpstring("MyProj 1.0 Type Library")

]

library MYPROJLib

{

importlib("stdole32.tlb");importlib("stdole2.tlb");[uuid(FEB7BDEF-FB6F-446B-BE31-DF0A3AD391BA),helpstring("MyCom Class")]coclass MyCom{[default] interface IMyCom;};

};

代碼剖析

IDL文件由三部分組成，每部分又都由一對中括號和一對大括號組成。每部分也都包含一個UUID來唯一的標識自己

n 接口部分：COM接口定義

[

object,uuid(65460F9C-3BAB-4055-885A-8ED59F5FA9B0), //接口唯一標識符(GUID/IID)dual, //表示客戶機可用兩種方法訪問這個接口，一種是支持指針的非腳本語言，如VC；一種是非腳本語言，如VB、ASPhelpstring("IMyCom Interface"), //將提示字符串與此接口建立聯系pointer_default(unique) //指定除參數表中所列屬性之外所有指針的缺省特征,unique表示指針可以是NULL，但不支持別名]interface IMyCom : IDispatch{[id(1), helpstring("method MyF1")] HRESULT MyF1();[id(2), helpstring("method MyF2")] HRESULT MyF2([in] BSTR str,[out, retval] int* val);[id(3), helpstring("method MyF3")] HRESULT MyF3([in] BSTR str,[out, retval] BSTR* retstr);[id(4), helpstring("method MyF4")] HRESULT MyF4([in] int x,[out, retval] int* val);};//接口中的方法

n 類型庫部分

[

uuid(FE651184-11DE-4D01-BD69-B07DDFA12D0C),version(1.0),helpstring("MyProj 1.0 Type Library")

]

library MYPROJLib

{

importlib("stdole32.tlb");importlib("stdole2.tlb");<組件類部分>

};

n 組件類部分(組件類嵌套在類型庫里面)

[uuid(FEB7BDEF-FB6F-446B-BE31-DF0A3AD391BA),helpstring("MyCom Class")]coclass MyCom{[default] interface IMyCom;};

手工為接口添加一個方法，該修改哪些地方?

假設組件類名叫CMyCom,接口叫IMyCom，要加入的方法是MyF5。

首先在IDL文件中找到接口IMyCom的定義，在其中加入如下方法定義：

[id(5), helpstring("method MyF5")] HRESULT MyF1([out,retval] VARIANT_BOOL *ret);

注意：id中的數字不要和已經存在的id重復。

其次，在CMyCom的類定義頭文件中加入如下成員函數聲明：

public:

STDMETHOD(MyF5)(/[out, retval]/ VARIANT_BOOL *ret);

最后，在CMyCom類的實現Cpp文件中加入函數的實現：

STDMETHODIMP CMyCom::MyF5(VARIANT_BOOL *ret)

{

AFX_MANAGE_STATE(AfxGetStaticModuleState())// TODO: Add your implementation code here*ret = VARAINT_TRUE;return S_OK;

}

六、MyCom.h

代碼選取

// MyCom.h : Declaration of the CMyCom

#ifndef _MYCOM_H

#define _MYCOM_H

#include “resource.h” // main symbols

// CMyCom

class ATL_NO_VTABLE CMyCom :

public CComObjectRootEx<CComSingleThreadModel>,public CComCoClass<CMyCom, &CLSID_MyCom>,public IDispatchImpl<IMyCom, &IID_IMyCom, &LIBID_MYPROJLib>

{

public:

CMyCom(){}

DECLARE_REGISTRY_RESOURCEID(IDR_MYCOM)

DECLARE_PROTECT_FINAL_CONSTRUCT()

BEGIN_COM_MAP(CMyCom)

COM_INTERFACE_ENTRY(IMyCom)COM_INTERFACE_ENTRY(IDispatch)

END_COM_MAP()

// IMyCom

public:

STDMETHOD(MyF4)(/*[in]*/ int x,/*[out, retval]*/ int* val);STDMETHOD(MyF3)(/*[in]*/ BSTR str,/*[out, retval]*/ BSTR* retstr);STDMETHOD(MyF2)(/*[in]*/ BSTR str,/*[out, retval]*/ int* val);STDMETHOD(MyF1)();

};

#endif //_MYCOM_H

代碼剖析

n CComObjectRootEx

是每個COM組件必須繼承的類之一，這個類管理組件的引用計數。由于引用計數是很重要的，所有的ATL COM組件必須從CComObjectRootEx繼承。

n CComCoClass

如果一個類從CComCoClass繼承，ATL確保了這個類一定是默認的類工廠對象。ATL支持一個默認的工廠實現，并且有使得可以恢復對象CLSID和設置錯誤信息的函數。

n BEGIN_COM_MAP(CMyCom)

COM_INTERFACE_ENTRY(IMyCom)COM_INTERFACE_ENTRY(IDispatch)

END_COM_MAP()

BEGIN_COM_MAP和END_COM_MAP這兩個宏定義了COM的接口映射。列在映射中的接口是QueryInterface可以返回的接口指針的接口。

n 另外CComObject類實現了屬于IUnKnown接口的方法。這個類一直是最大的派生類，它提供了聚合和鎖模型的選擇。但是，對QueryInterface、AddRef、Release的調用會委派給CComObjectRootEx

n 還有，我們在這里看到了和接口定義語言文件模樣差不多的四個函數的聲明

STDMETHOD(MyF4)(/*[in]*/ int x,/*[out, retval]*/ int* val);STDMETHOD(MyF3)(/*[in]*/ BSTR str,/*[out, retval]*/ BSTR* retstr);STDMETHOD(MyF2)(/*[in]*/ BSTR str,/*[out, retval]*/ int* val);STDMETHOD(MyF1)();那么它們兩者間有什么意義區別呢?在接口定義語言文件里有如下接口函數(方法)interface IMyCom : IDispatch{[id(1), helpstring("method MyF1")] HRESULT MyF1();[id(2), helpstring("method MyF2")] HRESULT MyF2([in] BSTR str,[out, retval] int* val);[id(3), helpstring("method MyF3")] HRESULT MyF3([in] BSTR str,[out, retval] BSTR* retstr);[id(4), helpstring("method MyF4")] HRESULT MyF4([in] int x,[out, retval] int* val);};這都是對接口而言的，接口只是包含了這些函數的集合，它并沒有實現這些函數。函數是通過組件類(CMyCom class)實現的。組件類實例化時生成組件對象。

七、MyCom.cpp

代碼選取

// MyCom.cpp : Implementation of CMyCom

#include “stdafx.h”

#include “MyProj.h”

#include “MyCom.h”

// CMyCom

STDMETHODIMP CMyCom::MyF1()

{

AFX_MANAGE_STATE(AfxGetStaticModuleState())// TODO: Add your implementation code hereAfxMessageBox("歡迎使用我的組件");return S_OK;

}

…

代碼剖析

組件類對接口函數的具體實現。

八、MyProj.h

代碼選取略代碼剖析虛函數表等內部定義

九、MyProj.cpp

代碼選取

// MyProj.cpp : Implementation of DLL Exports.

// Note: Proxy/Stub Information

// To build a separate proxy/stub DLL,

// run nmake -f MyProjps.mk in the project directory.

#include “stdafx.h”

#include “resource.h”

#include <initguid.h>

#include “MyProj.h”

#include “MyProj_i.c”

#include “MyCom.h”

CComModule _Module;//

BEGIN_OBJECT_MAP(ObjectMap)

OBJECT_ENTRY(CLSID_MyCom, CMyCom)//對象MAP，對每個服務器實現有組件都有一個入口

END_OBJECT_MAP()

class CMyProjApp : public CWinApp

{

public:

// Overrides

// ClassWizard generated virtual function overrides//{{AFX_VIRTUAL(CMyProjApp)public:virtual BOOL InitInstance();virtual int ExitInstance();//}}AFX_VIRTUAL//{{AFX_MSG(CMyProjApp)// NOTE - the ClassWizard will add and remove member functions here.// DO NOT EDIT what you see in these blocks of generated code !//}}AFX_MSGDECLARE_MESSAGE_MAP()

};

BEGIN_MESSAGE_MAP(CMyProjApp, CWinApp)

//{{AFX_MSG_MAP(CMyProjApp)// NOTE - the ClassWizard will add and remove mapping macros here.// DO NOT EDIT what you see in these blocks of generated code!//}}AFX_MSG_MAP

END_MESSAGE_MAP()

CMyProjApp theApp;

BOOL CMyProjApp::InitInstance()

{

_Module.Init(ObjectMap, m_hInstance, &LIBID_MYPROJLib);return CWinApp::InitInstance();

}

int CMyProjApp::ExitInstance()

{

_Module.Term();return CWinApp::ExitInstance();

}

// Used to determine whether the DLL can be unloaded by OLE

STDAPI DllCanUnloadNow(void)

{

AFX_MANAGE_STATE(AfxGetStaticModuleState());return (AfxDllCanUnloadNow()==S_OK && _Module.GetLockCount()==0) ? S_OK : S_FALSE;

}

// Returns a class factory to create an object of the requested type

STDAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID* ppv)

{

return _Module.GetClassObject(rclsid, riid, ppv);

}

// DllRegisterServer - Adds entries to the system registry

STDAPI DllRegisterServer(void)

{

// registers object, typelib and all interfaces in typelibreturn _Module.RegisterServer(TRUE);

}

// DllUnregisterServer - Removes entries from the system registry

STDAPI DllUnregisterServer(void)

{

return _Module.UnregisterServer(TRUE);

}

十、MyProj_i.c

代碼選取

/* this file contains the actual definitions of */

/* the IIDs and CLSIDs */

/* link this file in with the server and any clients */

/* File created by MIDL compiler version 5.01.0164 */

/* at Sun Nov 30 23:39:23 2003

*/

/* Compiler settings for C:\MyProj\MyProj.idl:

Oicf (OptLev=i2), W1, Zp8, env=Win32, ms_ext, c_exterror checks: allocation ref bounds_check enum stub_data

*/

//@@MIDL_FILE_HEADING( )

#ifdef __cplusplus

extern “C”{

#endif

#ifndef IID_DEFINED

#define IID_DEFINED

typedef struct _IID

{

unsigned long x;unsigned short s1;unsigned short s2;unsigned char c[8];

} IID;

#endif // IID_DEFINED

#ifndef CLSID_DEFINED

#define CLSID_DEFINED

typedef IID CLSID;

#endif // CLSID_DEFINED

const IID IID_IMyCom = {0x65460F9C,0x3BAB,0x4055,{0x88,0x5A,0x8E,0xD5,0x9F,0x5F,0xA9,0xB0}};

const IID LIBID_MYPROJLib = {0xFE651184,0x11DE,0x4D01,{0xBD,0x69,0xB0,0x7D,0xDF,0xA1,0x2D,0x0C}};

const CLSID CLSID_MyCom = {0xFEB7BDEF,0xFB6F,0x446B,{0xBE,0x31,0xDF,0x0A,0x3A,0xD3,0x91,0xBA}};

#ifdef __cplusplus

}

#endif

十一、MyCom.rgs

代碼選取

HKCR

{

MyProj.MyCom.1 = s 'MyCom Class'{CLSID = s '{FEB7BDEF-FB6F-446B-BE31-DF0A3AD391BA}'}MyProj.MyCom = s 'MyCom Class'{CLSID = s '{FEB7BDEF-FB6F-446B-BE31-DF0A3AD391BA}'CurVer = s 'MyProj.MyCom.1'}NoRemove CLSID{ForceRemove {FEB7BDEF-FB6F-446B-BE31-DF0A3AD391BA} = s 'MyCom Class'{ProgID = s 'MyProj.MyCom.1'VersionIndependentProgID = s 'MyProj.MyCom'ForceRemove 'Programmable'InprocServer32 = s '%MODULE%'{val ThreadingModel = s 'Apartment'}'TypeLib' = s '{FE651184-11DE-4D01-BD69-B07DDFA12D0C}'}}

}

代碼剖析

組件注冊時用，在這里你可以更改組件的在注冊時存放在注冊表中的名稱及組件的其他相關注冊信息。

Visual Basic、Visual C++組件調用相互通

n Visual Basic調用Visual Basic組件

n Visual C++調用Visual Basic組件

n Visual Basic調用Visual C++組件

n Visual C++調用Visual C++組件

n 編寫Visual Basic組件

n 組件功能：完成三種類型的信用卡號碼的合法性檢查

n 編寫步驟：

新建一工程，工程類型選擇ActiveX DLL，把工程名由默認的Project1改為ValidateCardServer，并把缺省的類模塊Class1改為IValidateCard，最后在此類里敲入如下代碼。

Option Explicit

Public Function fnValidateCreditCard(ByVal strCCNumber As String, ByVal strCCType As String) As Boolean

Dim bValid As BooleanstrCCType = Trim(strCCType)Select Case UCase(strCCType)Case "VISA"strCCType = "V"Case "MASTER"strCCType = "M"Case "American"strCCType = "A"End SelectIf fnPrefixCheck(strCCNumber, strCCType) And fnLengthCheck(strCCNumber, strCCType) And fnLuhnCheck(strCCNumber, strCCType) ThenbValid = TrueElsebValid = FalseEnd IffnValidateCreditCard = bValid

End Function

Private Function fnPrefixCheck(strCCNumber As String, strCCType As String) As Boolean

Dim bValidPrefix As BooleanSelect Case UCase(strCCType)Case "V"If InStr(1, strCCNumber, "4") = 1 ThenbValidPrefix = TrueEnd IfCase "M"If InStr(1, strCCNumber, "51") = 1 Or _InStr(1, strCCNumber, "52") = 1 Or _InStr(1, strCCNumber, "53") = 1 Or _InStr(1, strCCNumber, "54") = 1 Or _InStr(1, strCCNumber, "55") = 1 ThenbValidPrefix = TrueEnd IfCase "A"If InStr(1, strCCNumber, "34") = 1 Or _InStr(1, strCCNumber, "37") ThenbValidPrefix = TrueEnd IfEnd SelectfnPrefixCheck = bValidPrefix

End Function

Private Function fnLengthCheck(strCCNumber As String, strCCType As String) As Boolean

Dim bValidLength As BooleanSelect Case UCase(strCCType)Case "V" 'A visa card has a 13 digit or a 16 digit numberIf Len(strCCNumber) = 13 Or Len(strCCNumber) = 16 ThenbValidLength = TrueEnd IfCase "M" 'A mastercard has a 16 digit numberIf Len(strCCNumber) = 16 ThenbValidLength = TrueEnd IfCase "A" 'American Express has a 15 digit numberIf Len(strCCNumber) = 15 ThenbValidLength = TrueEnd IfEnd SelectfnLengthCheck = bValidLength

End Function

Private Function fnLuhnCheck(strCCNumber As String, strCCType As String) As Boolean

Dim bValidLuhn As BooleanDim strRev As StringDim strCh As StringDim intNumber As IntegerDim strNumberFinal As StringDim intSum As IntegerDim intTemp As IntegerstrRev = StrReverse(strCCNumber)For intTemp = 1 To Len(strRev)strCh = Mid(strRev, intTemp, 1)intNumber = CInt(strCh)If intTemp Mod 2 = 0 ThenintNumber = intNumber * 2If intNumber > 9 ThenintNumber = intNumber - 9End IfEnd IfstrNumberFinal = strNumberFinal & intNumberNext intTempFor intTemp = 1 To Len(strNumberFinal)intSum = intSum + Mid(strNumberFinal, intTemp, 1)Next intTempIf intSum Mod 10 = 0 ThenbValidLuhn = TrueElsebValidLuhn = FalseEnd IffnLuhnCheck = bValidLuhn

End Function

編繹組件。從File菜單中選擇 Make ValidateCardServer. dll…

n Visual Basic調用Visual Basic組件

n 編寫步驟：

新建一個標準工程，工程名設置為VBTestVBComProj；引入組件，選擇菜單Project->References…，點擊瀏覽，選擇C:\VBCom\ ValidateCardServer.dll；敲入如下窗體代碼。

Private Sub Command1_Click()

Dim comobj As New ValidateCardServer.IValidateCard

If comobj.fnValidateCreditCard(Text1.Text, Text2.Text) = True Then

MsgBox "valid card"

Else

MsgBox "invalid card"

End If

End Sub

編繹運行測試程序。

n 代碼測試：在信用卡號碼中輸入4567890123456783，在信用卡類型中輸入visa，點擊確定，彈出"valid card"的提示框；在信用卡號碼中輸入4567890123456789，在信用卡類型中輸入visa，點擊確定按鈕，彈出"invalid card"的提示框。

Visual C++調用Visual Basic組件

編寫步驟：

n 使用Visual C++創建一個基于對話框的應用程序，工程名為VCTestVBComProj，同上面VBTestVBComProj工程一樣，在對話框上面放置兩個文本框和一個確定按鈕。

n 在客戶端中導入服務器的類型庫。導入服務器的類型庫將允許你在客戶中使用服務器方法和屬性。

現在，為了訪問服務器的功能，它的類型庫應被導入客戶的工作空間。這相當于在Visual Basic環境中從訪問COM組件的工程中設置組件引用。在MFC或C++中，這使用#import語句完成。

#import關鍵字在帶有擴展名tlh(類型庫頭文件)的文件中創建了包裝類的頭，以及在另一個帶有擴展名tli(類型庫實現文件)的文件中實現了它。這些文件在客戶工作空間輸出目錄中顯示，通常是在當前工作空間的Debug目錄下。

包裝類是#import語句創建的類，它封裝了服務器信息。它用來訪問客戶定義在服務器中的屬性和方法。它顯示在tlh文件中在前面用關鍵字namespace的一塊區域。包裝類的名字是服務器空間名字插入關鍵字Lib。如果你的服務器組件名字是Server，那它的名字是SERVERLib。注意：這里講的是針對Visual C++創建的組件，而不是Visual Basic創建的組件。

2-1在 StdAfx.h 文件中加入代碼:

// stdafx.h : include file for standard system include files,

// or project specific include files that are used frequently, but

// are changed infrequently

//

#if !defined(AFX_STDAFX_H__A07C8507_082B_4B60_9880_AEB5ADB6D68A__INCLUDED_)

#define AFX_STDAFX_H__A07C8507_082B_4B60_9880_AEB5ADB6D68A__INCLUDED_

#if _MSC_VER > 1000

#pragma once

#endif // _MSC_VER > 1000

#define VC_EXTRALEAN // Exclude rarely-used stuff from Windows headers

#include <afxwin.h> // MFC core and standard components

#include <afxext.h> // MFC extensions

#include <afxdisp.h> // MFC Automation classes

#include <afxdtctl.h> // MFC support for Internet Explorer 4 Common Controls

#ifndef _AFX_NO_AFXCMN_SUPPORT

#include <afxcmn.h> // MFC support for Windows Common Controls

#endif // _AFX_NO_AFXCMN_SUPPORT

#import “…\VBCom\ValidateCardServer.dll”//如果你的服務器組件是用Visual C++創建，那么你應該導入有.tlb擴展名的類型庫文件來代替.dll文件。具體示例見Developing COM Components using VC-ATL(1)

//{{AFX_INSERT_LOCATION}}

// Microsoft Visual C++ will insert additional declarations immediately before the previous line.

#endif // !defined(AFX_STDAFX_H__A07C8507_082B_4B60_9880_AEB5ADB6D68A__INCLUDED_)

2-2編譯 StdAfx.cpp，當編繹#import 語句結構時編繹器產生包裝類，這個包裝類將封裝服務器組件的功能以致它能被客戶訪問。這個信息將在客戶工程空間中輸出目錄中創建的兩個文件：類型庫頭文件(tlh)和類型庫實現文件(tli)。包裝類的名稱將是默認的服務器名。所以，在本例中，它的名字將是ValidateCardServer。

如果服務器組件是用Visual C++創建，那么包裝類的名字將是大寫的服務器名后面跟上Lib。如果Visual C++創建的服務器組件有一個名字ValidateCardServer，那么包裝類的名字將是VALIDATECARDSERVERLib。

2-3現在你必須從對話框訪問服務器組件的功能。為此，在VCTestVBComProjDlg.cpp文件中增加如下的語句：

// VCTestVBComProjDlg.cpp : implementation file

//

#include “stdafx.h”

#include “VCTestVBComProj.h”

#include “VCTestVBComProjDlg.h”

#ifdef _DEBUG

#define new DEBUG_NEW

#undef THIS_FILE

static char THIS_FILE[] = FILE;

#endif

using namespace ValidateCardServer;

/

// CAboutDlg dialog used for App About

class CAboutDlg : public CDialog

{

public:

CAboutDlg();

…

n 初始化COM庫。應用程序必須在調用COM函數前初始化COM庫。

因為客戶和組件間的交互是通過COM庫，所以必須初始化COM庫。為了初始化COM庫，可調用CoInitialize函數。CoInitialize函數的返回值是HRESULT數據類型，它暗示了該操作是成功還是失敗。返回值可以是S_OK或S_FALSE。

語法：

HRESULT CoInitialize(NULL);

n 獲得服務器的CLSID?？蛻魬贸绦蛑挥性讷@得COM服務器組件的CLSID后才能實例化服務器。

為了創建服務器的實例，必須獲得服務器的CLSID。因為COM的CLSID很難記住，所以你必須使用可讀的ProgID獲得CLSID。這通過調用CLSIDFromProgID函數完成。這個函數帶有兩個參數：輸入參數ProgID和輸出參數CLSID。

語法：

HRESULT CLSIDFromProgID(LPCOLESTR lpszProgID,LPCLSID pclsid);

n 創建COM服務器組件的實例。創建COM服務器組件的實例并返回所需接口的指針。

一旦獲得組件的CLSID，它可以用來創建COM服務器的實例。使用CoCreateInstance函數來創建服務器組件的實例。COM將不提供實例化對象的指針，COM只提供接口的指針。

語法：

HRESULT CoCreateInstance(

REFCLSID rclsid, //要創建組件的CLSID

LPUNKNOWN punkouter,//當對象支持聚合時使用，否則為NULL

DWORD dwclsContext, //對象初化化環境(進程內、進程外或遠程)

REFIID riid, //要獲得類的接口的ID

LPVOID *ppv //[out]所需求接口的指針

);

CoCreateInstance函數的第一個參數是實例化組件的CLSID，它通過CLSIDFromProgID函數獲得。為了尋找所需要的組件，CoCreateInstance函數使用它在注冊表中的HKEY_CLASSES_ROOT\CLSID部分尋找匹配。如果未發現匹配，則CoCreateInstance失敗。

CoCreateInstance函數的第二個參數是用來指明你是否創建對象作為聚合對象的一部分。既然該程序不使用聚合，故使用NULL。

CoCreateInstance函數的第三個參數是用來指明組件運行的環境。在COM中，你可以創建三種類型的組件：進程內、進程外和遠程。下面的表顯示了不同的類環境變量。

Class環境

說明

CLSCTX_INPROC_SERVER

指明進程內服務器。

CLSCTX_INPROC_HANDLER

指明進程內服務器的特定類型，在客戶進程中運行但類的實例被遠程訪問。

CLSCTX_LOCAL_SERVER

指明了本地(進程外)服務器。

CLSCTX_REMOTE_SERVER

指明了遠程服務器，使用CoCreateInstanceEx函數。

CLSCTX_SERVER

指明如果不是特定的組件類型。這個值找回進程內、進程外、遠程中的第一個變量。

CoCreateInstance函數的第四個參數指明所需要接口的接口標識符IID。接口ID由__uuidof函數返回。接口指針在第五個參數中返回。

輸出參數到指定接口指針。

n 使用COM對象。在獲得接口指針之后，客戶應用程序能調用COM服務器對象的方法和屬性。

CoCreateInstance函數返回一個組件的接口指針。使用這個指針，可以訪問服務器的屬性和方法。

n 終止COM庫。在釋放COM對象后，客戶應用程序應指示不再需要已初始化的COM庫。

在釋放COM對象的實例后，初始化的COM庫不再需要。為了釋放初始化的COM庫，可調用函數CoUninitialize。

語法：

void CoUninitialize();

n 附完整代碼

void CVCTestVBComProjDlg::OnButton1()

{

// TODO: Add your control notification handler code hereHRESULT hr=CoInitialize(NULL);//step 3CLSID clsid;hr=CLSIDFromProgID(OLESTR("ValidateCardServer.IValidateCard"),&clsid);//step 4_IValidateCard * cardptr;hr=CoCreateInstance(clsid,NULL,CLSCTX_INPROC_SERVER,__uuidof(_IValidateCard),(LPVOID *)&cardptr);if(FAILED(hr)){AfxMessageBox("Server Creation Failed");return;}//step 5char cCardNum[20];GetDlgItemText(IDC_EDIT1,cCardNum,20);char cCardType[10];GetDlgItemText(IDC_EDIT2,cCardType,10);_bstr_t bstCardNum(cCardNum),bstCardType(cCardType);long lStatus;lStatus=cardptr->fnValidateCreditCard(bstCardNum,bstCardType);if(lStatus==-1)AfxMessageBox("valid card");elseAfxMessageBox("invalid card");//step 6 CoUninitialize();//step 7

}

n 編寫Visual C++組件

確定創建服務器組件的最有效的工具

當你著手創建COM組件時，你可以選擇與Visual Basic、Delphi、MFC和ATL不同的工具。讓我們比較一下每個工具，來揭露它們各自的優點和缺點。

當著手寫COM類時，你可以有幾種選擇，你可以選擇用C++滿足COM。這種選擇提供了最大的靈活性但是很枯燥。另外，你可以選擇Visual C++提供的兩種主要的框架來寫COM：MFC和ATL。

MFC使用文檔視圖體系結構設計良好的開發基于Windows的應用程序。使用MFC設計基于Windows應用程序要求運行時間庫MFC42.DLL來執行。當用于開發確定類型的應用程序時，MFC遇到要求大的運行時間庫開銷。MFC有利于像基于Windows的單層應用程序、請求許多GUI客戶端的應用程序、ActiveX控件和OLE文檔的開發。對COM的支持是后來增加的并且依靠它的文檔視圖體系結構。雖然Visual C++向導使得用MFC創建組件容易很多，但于框架結構先天設計缺陷，所以它并不是一種靈活的方法。而且，組件以體積大和要求擴展DLL而告終。

相反，ATL是針對COM來設計的。此外，ATL提供像聚合和包容不同的類合成技術的完全支持。ATL使用C++模板類的多繼承技術來實現COM類。ATL允許COM組件、自動化服務器和ActiveX控件的創建。使用ATL創建的COM更小更快。ATL提供許多COM接口的本地支持和由Windows NT服務器支持的新線程模型。由于ATL主要使用模板的概念，創建的組件大小很小，并且運行期DLL很小并可動態加載。

所以，你應用ATL創建COM。

組件功能：同上(編寫Visual Basic組件)。

組件將包含以下函數：ValidateCreditCard、PrefixCheck、LengthCheck、LuhnCheck。僅ValidateCreditCard可以被應用程序調用來封裝組件的工作方式。

為了創建驗證信用卡的服務器組件，你需要執行以下步驟：

創建應用程序框架

啟動VC++6.0，從File菜單選項選中 New 菜單項，在出現的 New 對話框中選中 Projects 卡片，從顯示的工程類型中選中 ATL COM AppWizard。指定工程工作空間名，即在 Project Name 編輯框中輸入項目名ValidateCreditCardServer，以區別于Visual Basic組件工程ValidateCardServer。選擇合適的 Location 后，按確認按鈕進入下一個對話框：ATL COM Appwizard - step 1 of 1，在 Server Type 中選擇 Dynamic Link Library [ DLL ]，即進程內服務器組件。選中 Support MFC 選項。在按下 Finish 和 Ok 按鈕后，一個組件的框架已經建立?，F在讓我們來看一下生成的文件的清單

n stdafx.h

n stdafx.cpp

n ValidateCreditCardServer.idl

n ValidateCreditCardServer.rc

n Resource.h

n ValidateCreditCardServer.def

n ValidateCreditCardServerps.def

n ValidateCreditCardServer.h

n ValidateCreditCardServer.cpp

n ValidateCreditCardServer.dsp

n ValidateCreditCardServer.dsw

n ValidateCreditCardServer.ncb

n ValidateCreditCardServerps.mk

n ValidateCreditCardServer.clw

ValidateCreditCardServer.cpp清單

// ValidateCreditCardServer.cpp : Implementation of DLL Exports.

// Note: Proxy/Stub Information

// To build a separate proxy/stub DLL,

// run nmake -f ValidateCreditCardServerps.mk in the project directory.

#include “stdafx.h”

#include “resource.h”

#include <initguid.h>

#include “ValidateCreditCardServer.h”

#include “ValidateCreditCardServer_i.c”

#include “ValidateCard.h”

CComModule _Module;

BEGIN_OBJECT_MAP(ObjectMap)

OBJECT_ENTRY(CLSID_ValidateCard, CValidateCard)

END_OBJECT_MAP()

class CValidateCreditCardServerApp : public CWinApp

{

public:

// Overrides

// ClassWizard generated virtual function overrides//{{AFX_VIRTUAL(CValidateCreditCardServerApp)public:virtual BOOL InitInstance();virtual int ExitInstance();//}}AFX_VIRTUAL//{{AFX_MSG(CValidateCreditCardServerApp)// NOTE - the ClassWizard will add and remove member functions here.// DO NOT EDIT what you see in these blocks of generated code !//}}AFX_MSGDECLARE_MESSAGE_MAP()

};

BEGIN_MESSAGE_MAP(CValidateCreditCardServerApp, CWinApp)

//{{AFX_MSG_MAP(CValidateCreditCardServerApp)// NOTE - the ClassWizard will add and remove mapping macros here.// DO NOT EDIT what you see in these blocks of generated code!//}}AFX_MSG_MAP

END_MESSAGE_MAP()

CValidateCreditCardServerApp theApp;

BOOL CValidateCreditCardServerApp::InitInstance()

{

_Module.Init(ObjectMap, m_hInstance, &LIBID_VALIDATECREDITCARDSERVERLib);return CWinApp::InitInstance();

}

int CValidateCreditCardServerApp::ExitInstance()

{

_Module.Term();return CWinApp::ExitInstance();

}

/

// Used to determine whether the DLL can be unloaded by OLE

STDAPI DllCanUnloadNow(void)

{

AFX_MANAGE_STATE(AfxGetStaticModuleState());return (AfxDllCanUnloadNow()==S_OK && _Module.GetLockCount()==0) ? S_OK : S_FALSE;

}

/

// Returns a class factory to create an object of the requested type

STDAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID* ppv)

{

return _Module.GetClassObject(rclsid, riid, ppv);

}

/

// DllRegisterServer - Adds entries to the system registry

STDAPI DllRegisterServer(void)

{

// registers object, typelib and all interfaces in typelibreturn _Module.RegisterServer(TRUE);

}

/

// DllUnregisterServer - Removes entries from the system registry

STDAPI DllUnregisterServer(void)

{

return _Module.UnregisterServer(TRUE);

}

創建框架中的組件

從Insert菜單中選中 New ATL Object…菜單項，出現 ATL Object Wizard 對話框。

在ATL Object Wizard中，在左邊的 Category 中選擇 Objects，右邊的 Objects 中選中 Simple Object 項。按 Next 按鈕。

在出現的 ATL Object Wizard 屬性對話框中 Names 卡片中的八個編輯框中左上方的 Short Name 編輯框中輸入短名ValidateCard ，其他七個編輯框的內容會自動生成。在這里我們也對這一對話框的其他七個編輯框的內容作一個詳細地剖析：

C++塊

Short Name：ValidateCard//用戶輸入

Class：CValidateCard//產生組件類的實現類的類名

.H File：ValidateCard.h//產生組件類的實現類的頭文件

.CPP File：ValidateCard.cpp//產生組件類的實現類的實現文件

COM塊

CoClass：ValidateCard//產生的組件類，區別于組件類的實現類

Interface：IValidateCard//創建組件類時，同時創建一個此組件類的一個用戶接口

Type：ValidateCard Class//組件類的類型

ProgID：ValidateCreditCardServer.ValidateCard// CLSIDFromProgID調用，用它得到CLSID

然后按確認按鈕退出。這將生成如上的信息并且在需要的文件中同樣地作一個登陸，特別是IDL文件。在這里我們比較一下創建組件前后的兩個版本的IDL文件。

創建組件前的ValidateCreditCardServer.idl文件，即創建應用程序框架后的IDL文件。

// ValidateCreditCardServer.idl : IDL source for ValidateCreditCardServer.dll

//

// This file will be processed by the MIDL tool to

// produce the type library (ValidateCreditCardServer.tlb) and marshalling code.

import “oaidl.idl”;

import “ocidl.idl”;

[

uuid(B3404054-C33E-4931-B737-5783CEEFECDB),version(1.0),helpstring("ValidateCreditCardServer 1.0 Type Library")

]

library VALIDATECREDITCARDSERVERLib

{

importlib("stdole32.tlb");importlib("stdole2.tlb");

};

創建組件后的IDL文件

ValidateCreditCardServer.idl清單

import “oaidl.idl”;

import “ocidl.idl”;

[object,uuid(B1D1C73C-E340-4FDC-8734-92ECEC64DC4E),dual,helpstring("IValidateCard Interface"),pointer_default(unique)]interface IValidateCard : IDispatch{};

[

uuid(B3404054-C33E-4931-B737-5783CEEFECDB),version(1.0),helpstring("ValidateCreditCardServer 1.0 Type Library")

]

library VALIDATECREDITCARDSERVERLib

{

importlib("stdole32.tlb");importlib("stdole2.tlb");[uuid(C79635D2-7B86-4B20-A83C-0565DCA54C3C),helpstring("ValidateCard Class")]coclass ValidateCard{[default] interface IValidateCard;};

};

文中黑體部分表示在框架中加入組件類后形成的代碼，在框架中加入組件類之前，只有類型庫部分，而在創建組件類后我們可以看到上面部分是一個組件類的用戶接口，下面部分是一個組件類，其嵌套在類型庫中。呵呵，三部分全到齊了。

另外，也說明一下VALIDATECREDITCARDSERVERLib這幾個字母的用處，大家想到沒有呀?呵呵，它就是在客戶端中使用名字空間時使用的呀。詳細請見Visual C++調用Visual C++組件。

增加組件的功能。

要實現這一點，你必須增加檢驗信用卡有效性的函數。如何增加函數到你的組件，請按以下步驟操作：

在 VC++工作平臺的左邊的 Workspace 的 ClassView 卡片中找到接口 IValidateCard項，按右鍵，在出現的快捷菜單中選擇 Add Method …，出現 Add Method to Interface 對話框，在對話框中輸入要增加的函數的函數名、參數和返回值類型。在這里，我們在Method Name中輸入

ValidateCreditCard

在Parameters中輸入

[in] BSTR bstrCCNo,[in]BSTR bstrCCType,[out,retval]long *val

然后，按確認按鈕退出。

類似地輸入以下三個函數

函數功能

Method Name

Parameters

檢驗信用卡的號碼是否合法

LuhnCheck

[in] BSTR bstrCCNo,[in]BSTR bstrCCType

檢驗信用卡的長度是否合法

LengthCheck

[in] BSTR bstrCCNo,[in]BSTR bstrCCType

檢驗信用卡的類型是否合法

PrefixCheck

[in] BSTR bstrCCNo,[in]BSTR bstrCCType

現在你可以看見為你的組件創建的接口定義語言文件的變化，你將在IDL文件ValidateCreditCardServer.idl中看到上面增加的所有函數的入口。

ValidateCreditCardServer.idl清單

// ValidateCreditCardServer.idl : IDL source for ValidateCreditCardServer.dll

//

// This file will be processed by the MIDL tool to

// produce the type library (ValidateCreditCardServer.tlb) and marshalling code.

import “oaidl.idl”;

import “ocidl.idl”;

[object,uuid(B1D1C73C-E340-4FDC-8734-92ECEC64DC4E),dual,helpstring("IValidateCard Interface"),pointer_default(unique)]interface IValidateCard : IDispatch{[id(1), helpstring("method ValidateCreditCard")] HRESULT ValidateCreditCard([in] BSTR bstrCCNo,[in]BSTR bstrCCType,[out,retval]long *val );[id(2), helpstring("method LuhnCheck")] HRESULT LuhnCheck([in] BSTR bstrCCNo,[in]BSTR bstrCCType);[id(3), helpstring("method LengthCheck")] HRESULT LengthCheck([in] BSTR bstrCCNo,[in]BSTR bstrCCType);[id(4), helpstring("method PrefixCheck")] HRESULT PrefixCheck([in] BSTR bstrCCNo,[in]BSTR bstrCCType);};

…

另外它也在組件類的實現類的頭文件ValidateCard.h和實現文件ValidateCard.cpp中分別加入函數的入口。

ValidateCard.h清單

// ValidateCard.h : Declaration of the CValidateCard

#ifndef _VALIDATECARD_H

#define _VALIDATECARD_H

#include “resource.h” // main symbols

/

// CValidateCard

class ATL_NO_VTABLE CValidateCard :

public CComObjectRootEx<CComSingleThreadModel>,public CComCoClass<CValidateCard, &CLSID_ValidateCard>,public IDispatchImpl<IValidateCard, &IID_IValidateCard, &LIBID_VALIDATECREDITCARDSERVERLib>

{

public:

CValidateCard(){}

DECLARE_REGISTRY_RESOURCEID(IDR_VALIDATECARD)

DECLARE_PROTECT_FINAL_CONSTRUCT()

BEGIN_COM_MAP(CValidateCard)

COM_INTERFACE_ENTRY(IValidateCard)COM_INTERFACE_ENTRY(IDispatch)

END_COM_MAP()

// IValidateCard

public:

STDMETHOD(PrefixCheck)(/*[in]*/ BSTR bstrCCNo,/*[in]*/BSTR bstrCCType);STDMETHOD(LengthCheck)(/*[in]*/ BSTR bstrCCNo,/*[in]*/BSTR bstrCCType);STDMETHOD(LuhnCheck)(/*[in]*/ BSTR bstrCCNo,/*[in]*/BSTR bstrCCType);STDMETHOD(ValidateCreditCard)(/*[in]*/ BSTR bstrCCNo,/*[in]*/BSTR bstrCCType,/*[out,retval]*/long *val);

};

#endif //_VALIDATECARD_H

編寫實現函數功能的代碼

ValidateCard.cpp清單

// ValidateCard.cpp : Implementation of CValidateCard

#include “stdafx.h”

#include “ValidateCreditCardServer.h”

#include “ValidateCard.h”

/

// CValidateCard

STDMETHODIMP CValidateCard::ValidateCreditCard(BSTR bstrCCNo, BSTR bstrCCType, long *val)

{

AFX_MANAGE_STATE(AfxGetStaticModuleState())// TODO: Add your implementation code hereCString strType(bstrCCType);strType.MakeUpper();if(strType.Compare("VISA")==0)bstrCCType=SysAllocString(OLESTR("V"));else if(strType.Compare("MASTER")==0)bstrCCType=SysAllocString(OLESTR("M"));else if(strType.Compare("AMERICAN")==0)bstrCCType=SysAllocString(OLESTR("A"));else{*val=0;return S_FALSE;}if((PrefixCheck(bstrCCNo,bstrCCType)==S_OK) && (LengthCheck(bstrCCNo,bstrCCType)==S_OK) && (LuhnCheck(bstrCCNo,bstrCCType)==S_OK)){*val=1;return S_OK;}else{*val=0;return S_FALSE;}return S_FALSE;

}

STDMETHODIMP CValidateCard::LuhnCheck(BSTR bstrCCNo, BSTR bstrCCType)

{

AFX_MANAGE_STATE(AfxGetStaticModuleState())// TODO: Add your implementation code hereCString strobj(bstrCCNo);CString strReverse,strFinal;int iNum,iSum;char cTemp;strReverse=strobj;strReverse.MakeReverse();for(int iTemp=0;iTemp<strReverse.GetLength();iTemp++){cTemp=strReverse.GetAt(iTemp);iNum=atoi(&cTemp);if(iTemp % 2 !=0){iNum=iNum*2;if(iNum>9)iNum-=9;}cTemp=iNum+'0';strFinal+=cTemp;}for(iTemp=0;iTemp<strFinal.GetLength();iTemp++){cTemp=strFinal.GetAt(iTemp);iSum+=atoi(&cTemp);}if(iSum % 10 == 0)return S_OK;elsereturn S_FALSE;

}

STDMETHODIMP CValidateCard::LengthCheck(BSTR bstrCCNo, BSTR bstrCCType)

{

AFX_MANAGE_STATE(AfxGetStaticModuleState())// TODO: Add your implementation code hereCString strType(bstrCCType),strLength(bstrCCNo);int ilen=strLength.GetLength();if(strType=="V"){if(ilen==16)return S_OK;}else if(strType=="M"){if(ilen==16)return S_OK;}else if(strType=="A"){if(ilen==15)return S_OK;}return S_FALSE;

}

STDMETHODIMP CValidateCard::PrefixCheck(BSTR bstrCCNo, BSTR bstrCCType)

{

AFX_MANAGE_STATE(AfxGetStaticModuleState())// TODO: Add your implementation code hereCString strNumber(bstrCCNo),strType(bstrCCType);if(strType=="V"){if(strNumber.Find("4",0)>=0)return S_OK;}else if(strType=="M"){if(strNumber.Find("51",0)>=0 || strNumber.Find("52",0)>=0 || strNumber.Find("53",0)>=0 || strNumber.Find("54",0)>=0)return S_OK;}else if(strType=="A"){if(strNumber.Find("34",0)>=0 || strNumber.Find("37",0)>=0)return S_OK;}return S_FALSE;

}

編繹組件

編繹會讀取ValidateCard.rgs文件進行組件的自動注冊，若在Windows 9X環境下，請運行regsvr32程序進行注冊，具體參見

Developing COM Components using VC-ATL(2-3) COM對象的注冊角色

同時編繹完成后，會

在Debug目錄下生成ValidateCreditCardServer.dll

在Debug上一層目錄下，即工程名工作空間目錄下生成ValidateCreditCardServer.tlb

這兩個文件都可以導入到客戶端，測試時分別會介紹這兩種方法。

n Visual Basic調用Visual C++組件

n 編寫步驟：

新建一個標準工程，工程名設置為VBTestVCComProj；引入組件，選擇菜單Project->References…，點擊瀏覽，選擇C:\ValidateCreditCardServer\Debug\ ValidateCreditCardServer.dll；敲入如下窗體代碼(別忘了在窗體上放兩個文本框和一個按鈕哦)。

Private Sub Command1_Click()

Dim comobj As New VALIDATECREDITCARDSERVERLib.ValidateCard

If comobj.ValidateCreditCard(Text1.Text, Text2.Text) = 1 Then

MsgBox "valid card"

Else

MsgBox "invalid card"

End If

End Sub

編繹運行測試程序。

n 代碼測試：同上(略)。

n Visual C++調用Visual C++組件

在這里我不再詳細介紹步驟了，相信通過前面兩個例子介紹，你應該掌握了其具體的操作要點。在這里我只扼要地提一下綱領。

使用Visual C++創建一個基于對話框的應用程序，工程名為VCTestVCComProj，同上面幾個測試工程一樣，在對話框上面放置兩個文本框和一個確定按鈕。

在客戶端中導入服務器的類型庫

2-1在 StdAfx.h 文件中加入代碼

#import “…\ValidateCreditCardServer\ValidateCreditCardServer.tlb”

或

#import “…\ValidateCreditCardServer\Debug\ValidateCreditCardServer.dll”

這兩種方法都可以!

2-2編譯 StdAfx.cpp，產生包裝類，即在客戶工程空間中輸出目錄(C:\VCTestVCComProj\Debug)中創建的兩個文件：類型庫頭文件(ValidateCreditCardServer.tlh)和類型庫實現文件(ValidateCreditCardServer.tli)。

2-3對話框訪問服務器組件的功能需要使用服務器包裝類名字空間。為此，在VCTestVCComProjDlg.cpp文件頭部中增加如下的語句：

using namespace VALIDATECREDITCARDSERVERLib;

初始化COM庫

獲得服務器的CLSID

創建COM服務器組件的實例

使用COM對象

終止COM庫

VCTestVCComProjDlg.cpp清單

// VCTestVCComProjDlg.cpp : implementation file

//

#include “stdafx.h”

#include “VCTestVCComProj.h”

#include “VCTestVCComProjDlg.h”

#ifdef _DEBUG

#define new DEBUG_NEW

#undef THIS_FILE

static char THIS_FILE[] = FILE;

#endif

using namespace VALIDATECREDITCARDSERVERLib;

…

BEGIN_MESSAGE_MAP(CVCTestVCComProjDlg, CDialog)

//{{AFX_MSG_MAP(CVCTestVCComProjDlg)ON_WM_SYSCOMMAND()ON_WM_PAINT()ON_WM_QUERYDRAGICON()ON_BN_CLICKED(IDC_BUTTON1, OnButton1)//}}AFX_MSG_MAP

END_MESSAGE_MAP()

…

void CVCTestVCComProjDlg::OnButton1()

{

// TODO: Add your control notification handler code hereHRESULT hr=CoInitialize(NULL);// 初始化COM庫CLSID clsid;hr=CLSIDFromProgID(OLESTR("ValidateCreditCardServer.ValidateCard"),&clsid);// 獲得服務器的CLSIDIValidateCard * cardptr;hr=CoCreateInstance(clsid,NULL,CLSCTX_INPROC_SERVER,__uuidof(IValidateCard),(LPVOID *)&cardptr);if(FAILED(hr)){AfxMessageBox("Server Creation Failed");return;}//創建COM服務器組件的實例char cCardNum[20],cCardType[10];GetDlgItemText(IDC_EDIT1,cCardNum,20);GetDlgItemText(IDC_EDIT2,cCardType,10);_bstr_t bstCardNum(cCardNum),bstCardType(cCardType);long lStatus;lStatus=cardptr->ValidateCreditCard(bstCardNum,bstCardType);if(lStatus==1)AfxMessageBox("valid card");elseAfxMessageBox("invalid card"); //使用COM對象CoUninitialize();//終止COM庫

}

編繹運行測試程序。

n 代碼測試：同上(略)。

最后讓我們分析一下C:\VCTestVCComProj\Debug\ValidateCreditCardServer.tlh作為Developing COM Components using VC-ATL(3)的結尾吧。

ValidateCreditCardServer.tlh清單

// Created by Microsoft ? C/C++ Compiler Version 12.00.8168.0 (ad98f509).

//

// c:\vctestvccomproj\debug\ValidateCreditCardServer.tlh

//

// C++ source equivalent of Win32 type library …\ValidateCreditCardServer\Debug\ValidateCreditCardServer.dll

// compiler-generated file created 12/19/03 at 03:29:03 - DO NOT EDIT!

#pragma once

#pragma pack(push, 8)

#include <comdef.h>

namespace VALIDATECREDITCARDSERVERLib {……………………………………………名字空間

//

// Forward references and typedefs

//

struct /* coclass */ ValidateCard;……………………………………………………………………… 組件類

struct __declspec(uuid(“b1d1c73c-e340-4fdc-8734-92ecec64dc4e”))

/* dual interface */ IValidateCard;………………………………………………….………………用戶接口

//

// Smart pointer typedef declarations

//

_COM_SMARTPTR_TYPEDEF(IValidateCard, __uuidof(IValidateCard));…………………智能指針

//

// Type library items

//

struct __declspec(uuid(“c79635d2-7b86-4b20-a83c-0565dca54c3c”))…………………組件類CLSID

ValidateCard;

// [ default ] interface IValidateCard

struct __declspec(uuid(“b1d1c73c-e340-4fdc-8734-92ecec64dc4e”))……………………用戶接口IID

IValidateCard : IDispatch

{

//// Wrapper methods for error-handling//long ValidateCreditCard (_bstr_t bstrCCNo,_bstr_t bstrCCType );HRESULT LuhnCheck (_bstr_t bstrCCNo,_bstr_t bstrCCType );HRESULT LengthCheck (_bstr_t bstrCCNo,_bstr_t bstrCCType );HRESULT PrefixCheck (_bstr_t bstrCCNo,_bstr_t bstrCCType );……………………………………………….………….. 接口方法(對外)//// Raw methods provided by interface//virtual HRESULT __stdcall raw_ValidateCreditCard (BSTR bstrCCNo,BSTR bstrCCType,long * val ) = 0;virtual HRESULT __stdcall raw_LuhnCheck (BSTR bstrCCNo,BSTR bstrCCType ) = 0;virtual HRESULT __stdcall raw_LengthCheck (BSTR bstrCCNo,BSTR bstrCCType ) = 0;virtual HRESULT __stdcall raw_PrefixCheck (BSTR bstrCCNo,BSTR bstrCCType ) = 0;…………………………………………………..……. 接口方法(對內)

};

//

// Wrapper method implementations

//

#include “c:\vctestvccomproj\debug\ValidateCreditCardServer.tli”…………… 類型庫實現文件

} // namespace VALIDATECREDITCARDSERVERLib………………………………………… 名字空間

#pragma pack(pop)

參照COM組件端C:\ValidateCreditCardServer\ValidateCreditCardServer.idl

ValidateCreditCardServer.idl清單

// ValidateCreditCardServer.idl : IDL source for ValidateCreditCardServer.dll

//

// This file will be processed by the MIDL tool to

// produce the type library (ValidateCreditCardServer.tlb) and marshalling code.

import “oaidl.idl”;

import “ocidl.idl”;

[object,uuid(B1D1C73C-E340-4FDC-8734-92ECEC64DC4E),……………………………. IID部分dual,helpstring("IValidateCard Interface"),pointer_default(unique)]interface IValidateCard : IDispatch{[id(1), helpstring("method ValidateCreditCard")] HRESULT ValidateCreditCard([in] BSTR bstrCCNo,[in]BSTR bstrCCType,[out,retval]long *val );[id(2), helpstring("method LuhnCheck")] HRESULT LuhnCheck([in] BSTR bstrCCNo,[in]BSTR bstrCCType);[id(3), helpstring("method LengthCheck")] HRESULT LengthCheck([in] BSTR bstrCCNo,[in]BSTR bstrCCType);[id(4), helpstring("method PrefixCheck")] HRESULT PrefixCheck([in] BSTR bstrCCNo,[in]BSTR bstrCCType);};

[

uuid(B3404054-C33E-4931-B737-5783CEEFECDB),………………………………… LIBID部分version(1.0),helpstring("ValidateCreditCardServer 1.0 Type Library")

]

library VALIDATECREDITCARDSERVERLib

{

importlib("stdole32.tlb");importlib("stdole2.tlb");[uuid(C79635D2-7B86-4B20-A83C-0565DCA54C3C),…………………….……CLSID部分helpstring("ValidateCard Class")]coclass ValidateCard{[default] interface IValidateCard;};

};

小結:

Developing COM Components using VC-ATL(3)主要介紹了Visual C++與Visual Basic編寫的組件的相互間的調用。在接下來一篇里將介紹雙接口。

總結

以上是生活随笔為你收集整理的用ATL创建COM组件详细解说的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。