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
}
