Developing COM Components using VC-ATL(3-6)

王朝vc·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

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 代码测试:同上(略)。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航