在VC中调用VB编写的COM组件范例

VB调用VC的DLL大家应该不陌生,而VC如何调用VB编写的DLL这个问题对于搞VB开发的人来说可能却就是个问题。
为了广大的VB爱好者向VC进军,我就从VB开发者的角度来说说在VC中调用VB编写的COM组件的方法。我举个例子。
先说说VB开发一个COM组件。
用VB新建一个ActiveX DLL 工程,
然后修改工程名称为 MyVB
再修改默认的类名为 DEMO
然后再向类中添加一个函数作为测试用,如:
Visual Basic Code
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"   ( ByVal lpBuffer As String, nSize As Long )   As Long
'取得当前系统登陆的用户名称
Public Function GetMyName (   )   As String
        Dim UserName As String
        UserName   =   String ( 128, " " )  
        GetUserName UserName, 128
        UserName   =   Trim ( UserName )  
        GetMyName   =   Left ( UserName, Len ( UserName )   - 1 )  
End Function

然后保存工程并生成DLL文件,这时已经可以通过VB动态调用这个COM组件了。
如果在VB里,可以这样调用:

Visual Basic Code
      Dim MyObj As Object
      Set MyObj   =   CreateObject ( "MyVB.DEMO" )  
      MsgBox MyObj.GetMyName
      Set MyObj   =   Nothing

这时可以看出,MyVB 是 COM 组件名称,DEMO 是 COM 组件的类名称,
而 VC 里调用可以这样做,如:

Visual C++ Code
//下面是指定DLL的位置
#import "C:/我的程序/VC调用COM/MyVB/MyVB.dll"
using namespace MyVB;    //这里是COM组件名称
HRESULT ComInit();
#include
"stdio.h"

int APIENTRY WinMain(HINSTANCE hInstance,
                     HINSTANCE hPrevInstance,
                     LPSTR     lpCmdLine,
                    
int       nCmdShow)
{
    ComInit();
    _DEMOPtr MyObj;       
//注意这里,类名虽然是DEMO,但是定义声明应该是“_类名Ptr”来定义对象
    MyObj.CreateInstance("MyVB.DEMO");

    _bstr_t vRsinfo;   
//VB的String在VC里可以用_bstr_t类型,所以就用_bstr_t类型来接返回参数
    vRsinfo = MyObj->GetMyName();    //这里使用对象方法取得当前用户名称

    MessageBox(
0, vRsinfo, "OK", MB_OK);
   
return 0;
}

HRESULT ComInit()
{
    HRESULT hr
= S_OK;
   
if FAILED(CoInitialize(NULL))
    {
        CoUninitialize();
        hr
= E_UNEXPECTED;
    }
   
return hr;
}

以上 VC6 代码是建立一个 Win32 应用程序(Win32 Application),
选择 An empty project,然后再添加并添加一个 C++ Source File,
在 Windows XP 下测试通过。

©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页