从 VB.net 项目调用 VB6 本机 dll 的问题

Question

我有一个 vb6 项目，我在其中使用 dll 库来执行一些任务。为此，我添加了一个模块，该模块声明了该库的所有功能，例如：

Declare Function myFunction Lib "abcdapi.dll" (ByVal hVar1 As Long, ByVal hVar2 As Long) As Long

当我调用这个函数（以及许多其他类似函数）时，我能够完成这项工作并返回正确的 Long 指针。但是当我尝试通过 VB.net 做同样的事情时（通过使用 dllimport 导入相同的库并调用相同的函数），我没有得到任何结果。虽然它确实返回了一些指针，但不会产生正确的结果。

Private Const ABCD As String = "abcdapi.dll" 
<DllImport(ABCD)>

Public Shared Function myFunction(ByVal hVar1 As IntPtr, ByVal hVar2 As IntPtr) As IntPtr
End Function

当我尝试调用上述函数时，它不起作用。我什至尝试使用该函数在我的 vb6 项目中创建一个 dll，并尝试使用 imports 关键字来调用该新 dll，但这也不起作用。可能是什么问题，我该如何解决。

Answer 1

您引用的文档显示：

TM1IMPORT TM1_BOOL TM1API TM1ValBoolGet(TM1U hUser, TM1V vBool );

是否有可能 TM1U 和 TM1V 在该 API 中被定义为 32 位数据类型，并且您在 64 位机器上运行 .NET 代码，使您的 IntPtr 成为 64 位数据类型？ （如果 API 带有 C 头文件，您可以看到这些数据类型是如何定义的）。尝试将您的 .NET 代码重新编译为“x86”，然后再试一次。

我刚刚从您上面的评论中复制了这段代码：

函数调用如下：

ibOK = TM1ValBoolGet(hUser, voTemp) 

在 VB.net 中：

Declare Function TM1ValBoolGet Lib "tm1api.dll" (ByVal hUser As Long, ByVal vBool As Long) As Integer 

在 vb.net 中：

<DllImport(TM1APIDLL)> Public Shared Function TM1ValBoolGet(ByVal hUser As IntPtr, ByVal vBool As IntPtr) As Integer 
End Function 

这可能是一个错字，但您的 VB6 中的返回类型与 VB.NET 中的返回类型不同。 VB6 Integer 是 16 位，而 VB.NET 中的 Integer 是 32 位。