vc调用vb编写的dll库（求教）

[onsize]

vc中调用vb编写的dll库:
dll库中的一个函数为：一个参数传入一个对象，经过数据处理后，另一个参数返回另一个对象。为什麽不能正确返回对象？

[taolei]

VB编译也可以带调试信息，你编译一个Debug版的VB dll,调试一下。你把VB和VC两边的函数定义和调用语句贴出来。

[onsize]

vb 中函数定义
Lightning2中有clsRaws类、cFlashes 类
Locate中有clsLocate类
Public Function MixedCal(cRaws As Lightning2.clsRaws, cFlashes As Lightning2.clsFlashes, Optional ByVal Display As Boolean = False) As Boolean


VC 中函数调用

Lightning2::_clsRaws *Raws;
Lightning2::_clsFlashes *Flashs;
Locate::_clsLocate *Locate;

hresult= CLSIDFromProgID(OLESTR("Locate.clsLocate"),&clsid);
hresult=CoCreateInstance(clsid,NULL,CLSCTX_INPROC_SERVER,__uuidof(Locate::_clsLocate),(LPVOID *) &Locate);

hresult= CLSIDFromProgID(OLESTR("Lightning2.clsRaws"),&clsid);
hresult=CoCreateInstance(clsid,NULL,CLSCTX_INPROC_SERVER,__uuidof(Lightning2::_clsRaws),(LPVOID *) &Raws);

hresult= CLSIDFromProgID(OLESTR("Lightning2.clsFlashes"),&clsid);
hresult=CoCreateInstance(clsid,NULL,CLSCTX_INPROC_SERVER,__uuidof(Lightning2::_clsFlashes),(LPVOID *) &Flashs);

MixCal=Locate->MixedCal(&Raws,&Flashs,FALSE); //传入Raws，返回Flashs。

[taolei]

我按照你的方式写了一个程序，运行正常呀！一路都是S_OK,我把我写的程序贴出来，你对照一下
VB:
Project1
Class1.cls

VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "Class1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Class2.cls

VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "Class2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Project2
Class3.cls

VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "Class3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Public Function xxx(cls1 As Class1, cls2 As Class2, Optional ByVal b As Boolean = False) As Boolean
MsgBox TypeName(cls1)
Set cls2 = New Class2
xxx = True
End Function


VC

#import "e:\\project1.dll"
#import "e:\\project2.dll"

::CoInitialize(NULL);
Project1::_Class1 *cls1;
Project1::_Class2 *cls2;
HRESULT hr;
Project2::_Class3 *cls3;
CLSID clsid;
hr = CLSIDFromProgID(L"Project1.Class1",&clsid);
hr = CoCreateInstance(clsid,NULL,CLSCTX_INPROC_SERVER,__uuidof(Project1::_Class1),(void**)&cls1);
hr = CLSIDFromProgID(L"Project1.Class2",&clsid);
hr = CoCreateInstance(clsid,NULL,CLSCTX_INPROC_SERVER,__uuidof(Project1::_Class2),(void**)&cls2);
hr = CLSIDFromProgID(L"Project2.Class3",&clsid);
hr = CoCreateInstance(clsid,NULL,CLSCTX_INPROC_SERVER,__uuidof(Project2::_Class3),(void**)&cls3);
VARIANT_BOOL b = cls3->xxx(&cls1,&cls2,VARIANT_FALSE);

[taolei]

运行结果是messagebox弹出"Class1",cls2的指针改变了。