VB创建ActiveX dll 的COM服务器，VC调用VB COM方法

最新推荐文章于 2023-08-31 17:52:47 发布

原创最新推荐文章于 2023-08-31 17:52:47 发布 · 1.1k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

COM 专栏收录该内容

2 篇文章

订阅专栏

本文介绍如何使用Visual Basic创建一个ActiveX组件，并通过Visual C++进行调用的过程。具体步骤包括创建ActiveX工程、实现接口方法、生成DLL文件及在VC项目中导入并调用这些方法。

1.用VB创建ActiveX类型的工程，重命名工程和模块名为 VBPrj、MATH

MATH.cls代码

Public Sub SayHello()
    MsgBox "Hello", vbOKOnly, "VB ActiveX"
End Sub

Public Function Info() As String
    Info = "info from VB COM"
End Function

2.生成VBPrj.dll

3.用VC创建一个Win32 Console的空项目，添加VCcall.cpp文件，代码如下：

//VCcaller.cpp 
#include <stdio.h>
#import "../VBPrj.dll" //import dll
#include <atlbase.h> 
#include   <comutil.h> 
#pragma   comment(lib, "comsupp.lib ") 
void test()
{
	::CoInitialize(0);
	VBPrj::_MATHPtr ptr("VBPrj.MATH");
	ptr->SayHello();

	_bstr_t ret=ptr->Info();
	printf("%s\n",(char*)ret);

	ptr=NULL;
	::CoUninitialize();
}
int main()
{
	test();
	return 0;
}

连接COM的另一种方式：

void test()
{
	::CoInitialize(0);
	//VBPrj::_MATHPtr ptr("VBPrj.MATH"); //Prog 方式
	VBPrj::_MATHPtr ptr;
	ptr.CreateInstance(__uuidof(VBPrj::MATH));//guid方式
	ptr->SayHello();

	_bstr_t ret=ptr->Info();
	printf("%s\n",(char*)ret);

	ptr=NULL;
	::CoUninitialize();
}

小技巧：

在#import "../VBPrj.dll" //import dll后，写其他调用代码前，先编译一次工程，使得dubug目录下生成VBPrj.tlh、VBPrj.tli文件，这样IDE输入就能智能联想，减少错误。