用ATL建立COM組件詳細解說

1、建立一個模型(工程) MyProj。
2、給模型(工程)增長一個組件 MyCom。
3、給組件增長方法(函數) MyF1、MyF2、MyF3、MyF4。

1、建立模型(工程) 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 按鈕後，一個組件的框架已經創建。

2、給模型增長組件MyCom
在VC++ 菜單 Insert 中選中 New ATL  Object…菜單項，出現 ATL Object  Wizard 對話框。
在左邊的 Category 中選擇 Objects，右邊的 Objects 中選中 Simple  Object 項。按 Next 按鈕。

在出現的 ATL Object  Wizard 屬性對話框中 Names 卡片中的八個編輯框中左上方的 Short Name 編輯框中輸入短名如 MyCom ，其餘七個編輯框的內容會自動生成。而後按確認按鈕退出。

3、給組件增長方法(函數) MyF一、MyF二、MyF三、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。
在對話框中放置四個按鈕，分別爲 MyF一、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_MSG

         DECLARE_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 Win32

         m_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 dialog

         SetIcon(m_hIcon, TRUE);                            // Set big icon

         SetIcon(m_hIcon, FALSE);                  // Set small icon

         

         // TODO: Add extra initialization here

         

         return 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 painting

 

                   SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);

 

                   // Center icon in client rectangle

                   int 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 icon

                   dc.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 here

         HRESULT 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 here

         HRESULT 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 here

         HRESULT 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 here

         HRESULT 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與語言無關。可使用多種語言編寫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_<unique identifier>，在本例中：

在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。命名習慣能夠是<program>.<component>.<verson>。在本例中：

在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_<unique identifier>，在本例中：

在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文件，命令語法爲：

<EXE filename>/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三類。

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

1、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++)，這個類的模塊對象處理幾個任務，如：服務器鎖計數、註冊本地服務器的類工廠、根據註冊表註冊和反註冊。

 

2、stdafx.cpp

---

…

#ifdef _ATL_STATIC_REGISTRY

#include <statreg.h>

#include <statreg.cpp>

#endif

#include <atlimpl.cpp>

---

 

3、MyProj.def輸出定義文件

     代碼選取

---

; MyProj.def : Declares the module parameters.

LIBRARY      "MyProj.DLL"

EXPORTS

         DllCanUnloadNow     @1 PRIVATE

         DllGetClassObject   @2 PRIVATE

         DllRegisterServer   @3 PRIVATE

         DllUnregisterServer @4 PRIVATE

---

代碼剖析

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

 

4、MyProj.tlb類型庫

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

 

5、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、ASP

                   helpstring("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;

}

6、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)實現的。組件類實例化時生成組件對象。

 

7、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 here

         AfxMessageBox("歡迎使用個人組件");

         return S_OK;

}

…

---

代碼剖析

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

 

8、MyProj.h

    代碼選取

    略

    代碼剖析

    虛函數表等內部定義

 

9、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_MSG

         DECLARE_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 typelib

    return _Module.RegisterServer(TRUE);

}

// DllUnregisterServer - Removes entries from the system registry

STDAPI DllUnregisterServer(void)

{

    return _Module.UnregisterServer(TRUE);

}

10、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_ext

    error 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

---

 

11、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          編寫步驟：

1.         新建一工程，工程類型選擇ActiveX DLL，把工程名由默認的Project1改成ValidateCardServer，並把缺省的類模塊Class1改成IValidateCard，最後在此類裏敲入以下代碼。

 

---

Option Explicit

 

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

    Dim bValid As Boolean

    strCCType = Trim(strCCType)

    Select Case UCase(strCCType)

        Case "VISA"

            strCCType = "V"

        Case "MASTER"

            strCCType = "M"

        Case "American"

            strCCType = "A"

    End Select

    If fnPrefixCheck(strCCNumber, strCCType) And fnLengthCheck(strCCNumber, strCCType) And fnLuhnCheck(strCCNumber, strCCType) Then

        bValid = True

    Else

        bValid = False

    End If

    fnValidateCreditCard = bValid

End Function

 

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

    Dim bValidPrefix As Boolean

    Select Case UCase(strCCType)

        Case "V"

            If InStr(1, strCCNumber, "4") = 1 Then

                bValidPrefix = True

            End If

        Case "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 Then

               bValidPrefix = True

            End If

        Case "A"

            If InStr(1, strCCNumber, "34") = 1 Or _

               InStr(1, strCCNumber, "37") Then

               bValidPrefix = True

            End If

    End Select

    fnPrefixCheck = bValidPrefix

End Function

 

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

    Dim bValidLength As Boolean

    Select Case UCase(strCCType)

        Case "V"    'A visa card has a 13 digit or a 16 digit number

            If Len(strCCNumber) = 13 Or Len(strCCNumber) = 16 Then

                bValidLength = True

            End If

        Case "M"    'A mastercard has a 16 digit number

            If Len(strCCNumber) = 16 Then

                bValidLength = True

            End If

        Case "A"    'American Express has a 15 digit number

            If Len(strCCNumber) = 15 Then

                bValidLength = True

            End If

    End Select

    fnLengthCheck = bValidLength

End Function

 

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

    Dim bValidLuhn As Boolean

   

    Dim strRev As String

    Dim strCh As String

    Dim intNumber As Integer

    Dim strNumberFinal As String

    Dim intSum As Integer

    Dim intTemp As Integer

    strRev = StrReverse(strCCNumber)

   

    For intTemp = 1 To Len(strRev)

        strCh = Mid(strRev, intTemp, 1)

        intNumber = CInt(strCh)

        If intTemp Mod 2 = 0 Then

            intNumber = intNumber * 2

            If intNumber > 9 Then

                intNumber = intNumber - 9

            End If

        End If

        strNumberFinal = strNumberFinal & intNumber

    Next intTemp

   

    For intTemp = 1 To Len(strNumberFinal)

        intSum = intSum + Mid(strNumberFinal, intTemp, 1)

    Next intTemp

   

    If intSum Mod 10 = 0 Then

        bValidLuhn = True

    Else

        bValidLuhn = False

    End If

    fnLuhnCheck = bValidLuhn

End Function

---

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

n          Visual Basic調用Visual Basic組件

n          編寫步驟：

1.         新建一個標準工程，工程名設置爲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

---

2.         編繹運行測試程序。

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]所需求接口的指針

);

1.         CoCreateInstance函數的第一個參數是實例化組件的CLSID，它經過CLSIDFromProgID函數得到。爲了尋找所須要的組件，CoCreateInstance函數使用它在註冊表中的HKEY_CLASSES_ROOT\CLSID部分尋找匹配。若是未發現匹配，則CoCreateInstance失敗。

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

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

Class環境	說明
CLSCTX_INPROC_SERVER	指明進程內服務器。
CLSCTX_INPROC_HANDLER	指明進程內服務器的特定類型，在客戶進程中運行但類的實例被遠程訪問。
CLSCTX_LOCAL_SERVER	指明瞭本地(進程外)服務器。
CLSCTX_REMOTE_SERVER	指明瞭遠程服務器，使用CoCreateInstanceEx函數。
CLSCTX_SERVER	指明若是不是特定的組件類型。這個值找回進程內、進程外、遠程中的第一個變量。

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

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

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 here

         HRESULT hr=CoInitialize(NULL);//step 3

 

         CLSID 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 5

 

         char 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");

         else

                   AfxMessageBox("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能夠被應用程序調用來封裝組件的工做方式。

爲了建立驗證信用卡的服務器組件，你須要執行如下步驟：

1.         建立應用程序框架
啓動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 按鈕後，一個組件的框架已經創建。如今讓咱們來看一下生成的文件的清單

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_MSG

         DECLARE_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 typelib

    return _Module.RegisterServer(TRUE);

}

 

/////////////////////////////////////////////////////////////////////////////

// DllUnregisterServer - Removes entries from the system registry

 

STDAPI DllUnregisterServer(void)

{

    return _Module.UnregisterServer(TRUE);

}

---

2.         建立框架中的組件
從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++組件。

 

3.         增長組件的功能。

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

在 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_

4.         編寫實現函數功能的代碼

 

     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 here

    CString 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 here

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

         else

                   return S_FALSE;

}

 

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

{

         AFX_MANAGE_STATE(AfxGetStaticModuleState())

 

         // TODO: Add your implementation code here

         CString 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 here

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

}

---

5.         編繹組件

編繹會讀取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          編寫步驟：

1.         新建一個標準工程，工程名設置爲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

 

2.         編繹運行測試程序。

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

 

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

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

1.         使用Visual C++建立一個基於對話框的應用程序，工程名爲VCTestVCComProj，同上面幾個測試工程同樣，在對話框上面放置兩個文本框和一個肯定按鈕。

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

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;

        

3.         初始化COM庫

4.         得到服務器的CLSID

5.         建立COM服務器組件的實例

6.         使用COM對象

7.         終止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 here

         HRESULT hr=CoInitialize(NULL);// 初始化COM庫

 

         CLSID clsid;

         hr=CLSIDFromProgID(OLESTR("ValidateCreditCardServer.ValidateCard"),&clsid);// 得到服務器的CLSID

 

         IValidateCard * 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");

         else

                   AfxMessageBox("invalid card");          //使用COM對象

 

         CoUninitialize();//終止COM庫

}

---

8.         編繹運行測試程序。

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

最後讓咱們分析一下C:\VCTestVCComProj\Debug\ValidateCreditCardServer.tlh做爲Developing COM Components using VC-ATL(3)的結尾吧。

 

ValidateCreditCardServer.tlh清單

 

---

// Created by Microsoft (R) 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編寫的組件的相互間的調用。

轉自 ：http://www.cppblog.com/ice197983/articles/4178.html