C# 使用 VB6-Dll - AccessViolationException

Question

我尝试在 C# 程序中使用 VB6 DLL。但我总是遇到 AccessViolationException。也许你可以告诉我我做错了什么。 我创建了一个 Test-VB6-DLL，如本教程所示： http://oreilly.com/pub/a/windows/2005 /04/26/create_dll.html

然后我尝试像这篇文章中那样动态使用这个 DLL：

但如果我尝试使用 [DLLImport]。我总是遇到 AccessViolationException。 也许有人可以给我提示。

问候 viktor

P.S.：我能够做的是创建对现有 DLL 的引用。但这种方法有一个缺点，如果更新 DLL，我必须更新所有引用。这将发生（或多或少）开放，因为 dll 是正在开发的软件项目的一部分。也许可以更新引用而无需重新编译 C# 程序？

---

@MarkJ：不 - 二进制兼容性没有带来成功。

以下是来源： VB6-Dll：

Option Explicit

Public Function Increment(var As Integer) As Integer
   If Not IsNumeric(var) Then Err.Raise 5

   Increment = var + 1
End Function

这里是尝试使用 VB6 Dll 的 C# 代码：

class Program
{

    [DllImport("kernel32.dll", SetLastError = true)]
    private static extern IntPtr LoadLibrary(String DllName);
    [DllImport("kernel32.dll", CharSet = CharSet.Auto, SetLastError = true)]
    public static extern IntPtr GetProcAddress(IntPtr hModule, byte[] procedureName);
    static void Main(string[] args)
    {
        IntPtr pDll = LoadLibrary(@"P:\dev\Path\to\TestProjekt.dll");

        string x = "Increment";         
        Encoding e = Encoding.GetEncoding("ISO-8859-1");
        byte[] b = e.GetBytes(x);

        IntPtr pAddressOfFunctionToCall = GetProcAddress(pDll, b);
        Increment inc = Increment)Marshal.
                GetDelegateForFunctionPointer(pAddressOfFunctionToCall,
                                              typeof(Increment));

        int a = inc(5);    // <---- Here the AccessViolationException is thrown

        return;
    }
}

与此同时，我已经阅读了我能找到的任何文档，但我仍然不知道为什么这不起作用grgrgrgrgr

问候 维克多

Answer 1

您的 byte[] b 没有终止 null，因此不是有效的非托管 LPCSTR。我不明白为什么您要尝试手动编码方法名称，而不是像这样声明 GetProcAddress 并让框架互操作代码为您处理编组：

public static extern IntPtr GetProcAddress(IntPtr hModule, [MarshalAs(UnmanagedType.LPStr)] string procedureName);

您必须检查返回值 (pAddressOfFunctionToCall ）。当它是IntPtr.Zero时，正如我相信您所得到的那样，因为您的GetProcAddress的lpProcName参数是错误的，那么尝试通过其委托包装器调用将始终给出一个AccessViolationException。

另外，完成后不要忽略在模块句柄上调用 FreeLibrary。