标签:c vb-net interop vb6 com-interop
我有一些无法轻易修改的VB6代码,如下所示:
Dim cCount as Long
Dim rCount as Long
Dim result()
Set mx = CreateObject("Component.Class")
Dim rtn = mx.GetList(rCount,cCount,result)
它调用的方法目前是一个VB6组件,我们已经迁移到.NET,只有一个问题.我们不确定result()正在寻找什么类型,因为它是变体类型.我们已经尝试过object,object [],object [] [],string,string []等,其中没有一个有效.
这是一个例子:
public bool GetList(ref long rCount, ref long cCount, ref object result)
{
...
}
我甚至尝试将第三个参数设置为VariantWrapper,因为它会根据需要添加ByRef:
public bool GetList(ref long rCount, ref long cCount, VariantWrapper result)
{
...
}
我可以设置传入结果的任何想法,以便我没有未处理的异常?
我已经创建了一个测试接口(用于COM),测试类和测试VB6应用程序,以确保它是Variant的一个问题.所以,它的定义如下:
.NET接口:
[DispId(1)]
[ComVisible(true)]
string Test(ref object[] value);
VB 6方法:
Private Sub Command1_Click()
Set mx = CreateObject("Component.Class")
Dim result()
MsgBox mx.Test(result)
End Sub
与上述相同的问题.在VB6中,它只是抛弃了我.如果我编译并运行它,我会得到一个通用的.NET异常,它会抛弃我.
解决方法:
您的C#声明是错误的.由于历史原因,VB6“Long”是32位.这是C#方面的一个int.如果堆栈帧错误,则无法正确传递“result”参数.
它应该是一个变量的SafeArray,C#中的object [].
标签:c,vb-net,interop,vb6,com-interop 来源: https://codeday.me/bug/20190606/1190358.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。