代码之家 › 专栏 › 技术社区 › Erx_VB.NExT.Coder

如何将数组(通过引用,在VB6中)传递给C++的C++ *DLL子程序?

com-interop vb6 c++ .net c#

Erx_VB.NExT.Coder · 技术社区 · 14 年前

基本上,当我尝试这样做时-当ByRef数组应该包含函数/子调用的结果时,它总是空的(如果我在.NET中做了完全相同的事情,它就工作了)。

我想我需要做一个自定义声明,这样VB就知道如何调用C函数,还是?

下面是如何声明C子/函数的。鉴于此,我需要做什么来确保C能够正确地使用我的空数组,并最终得到我的结果?

HRESULT InvokeAction(
  [in]       BSTR bstrActionName,
  [in]       VARIANT varInActionArgs,
  [in, out]  VARIANT *pvarOutActionArgs,
  [in, out]  VARIANT *pvarRetVal
);

有关此功能的详细信息: http://msdn.microsoft.com/en-us/library/aa382237(VS.85).aspx

1 回复 | 直到 14 年前

Patrick McDonald 14 年前

从 http://msdn.microsoft.com/en-us/library/aa381230(VS.85).aspx :

Dim returnVal
Dim outArgs(1)
Dim args(1)
args(0) = 3
returnVal = service.InvokeAction("GetTrackInfo", args, outArgs)
'return Val now contains the track length
'and outArgs(0) contains the track title
Dim emptyArgs(0)
returnVal = service.InvokeAction("Play", emptyArgs, emptyArgs)
'returnVal indicates if the action was successful

不过,从这个示例中不清楚如何获取服务和服务实例。

推荐文章

patrick · 从boost::绑定1和2占位符运行make失败。。。?

1 年前

rookie · 检查函数模板的所有参数包参数是否属于int

1 年前

ivaigult · -W转换和隐式字符串到布尔类型转换

1 年前

David Bien · declval<_Xp(&)()>()()-这在下面的上下文中意味着什么?

1 年前

khallad sayed · 在%上,C++表达式必须具有整型或无范围枚举类型

1 年前

rainer · 后台插入程序的初始化

1 年前

Community wiki · 以理智、安全和高效的方式复制文件

1 年前

Shefali Kanaujia · 对C中向量的向量进行排序++

1 年前

Prakritish Ghosh · 现在显示正确输出的函数中的Infix到Postfix错误[重复]

1 年前

Ma Joonyoung · 粗粒度和细粒度链表的时间比较

1 年前