Question

我使用P / Invoke从C＃调用Delphi XE2编写的DLL函数。当从单个线程顺序进行调用时，它似乎正在工作。但是，当多个线程调用该函数时，C＃主机应用程序似乎随机抛出System.AccessViolationException。

为什么下面的代码会触发访问冲突，我该如何解决？

用于重现问题的最小Delphi库代码：

library pinvokeproblem;

{$R *.res}

uses Windows, SysUtils;

procedure Test(const testByte: byte); stdcall;
begin
  OutputDebugString(PWideChar(IntToStr(testByte)));
end;

exports Test;

end.

重现问题的最小C＃主机应用程序代码：

[DllImport(
    "pinvokeproblem.dll",
    CallingConvention = CallingConvention.StdCall,
    EntryPoint = "Test")]
private static extern void Test(byte testByte);

public static void Main(string[] args)
{
    for (int i = 1; i <= 1000; i++) // more iterations = better chance to fail
    {
        int threadCount = 10;
        Parallel.For(1, threadCount, new ParallelOptions { MaxDegreeOfParallelism = threadCount }, test =>
        {
            byte byteArgument = 42;
            Test(byteArgument);
            Console.WriteLine(String.Format("Iteration {0}: {1}", test, byteArgument));
        });
     }
}

其他信息：

平台是x64 Windows 7.在.NET 4.0中为x86构建的C＃主机应用程序，为32位编译的Delphi DLL。
在多线程Delphi宿主应用程序中使用时，该库似乎正常工作。
带有函数签名extern __declspec(dllexport) void __stdcall Test(char testByte)的DLL的MSVC版本可以正常使用C＃主机（这表明这在某种程度上是特定于Delphi的。）
如果库函数没有返回值（void）和参数，代码将不会失败。
将两个代码中的调用约定更改为cdecl都无济于事。

非常感谢任何想法。

Answer 1

您需要做的就是将IsMultiThread设置为True（作为DLL的主要begin .. end块中的第一行）以切换内存管理器为线程安全模式：

IsMultiThread := True;

在多线程环境中从C＃调用Delphi DLL时发生访问冲突

1 个答案: