delphi - .NET 4.0 中的 P/Invoke 环境是否发生了变化？

Question

我已开始将 .NET 2.0 WinForms 应用程序升级到 .NET 4.0。好吧，升级过程只是切换平台目标的问题，但要使其真正发挥作用。我以为这就是全部内容了。

但 .NET 4.0 中的互操作性似乎发生了巨大变化。使用 DllImport()，应用程序嵌入了几个 Delphi dll。当应用程序面向.NET 2.0时，一切正常。但是当我将其更改为目标 .NET 4.0 时，事情开始变得困惑，就像某些东西正在破坏内存一样。

例如，它在奇怪的地方用“0”替换单个数字。 IStream 中传递的数据会用 (十六进制) 00 00 00 00 00 00 00 80 替换 8 个字符，但只有大约 70% 的情况如此。两次连续调用检索相同的值会返回不同的结果(从内存中的缓存中检索值，第一次成功，第二次失败)。发送到日志的字符串显示被截断。

我尝试了很多东西试图使调用约定更加明确，但没有任何效果。所有字符串在 .NET 端都被处理为 [MarshalAs(UnmanagedType.LPWStr)]，在 Delphi 端被处理为 PWChar。

.NET 4.0 中的哪些变化会像这样破坏 P/Invoke？

----------------------------------------编辑------------------ -------------------

这是最简单的例子。它生成的 PDF 有时可以正常工作，但更常见的是最终会损坏(并且在 .NET 2.0 中可以正常工作):

[DllImport(DLLName)]
public static extern void SetDBParameters(
    [MarshalAs(UnmanagedType.LPWStr)] string Server,
    [MarshalAs(UnmanagedType.LPWStr)] string Database,
    [MarshalAs(UnmanagedType.LPWStr)] string User,
    [MarshalAs(UnmanagedType.LPWStr)] string Password,
    short IntegratedSecurity);

procedure SetDBParameters(Server, Database, User, Password: PWChar;
    IntegratedSecurity: WordBool); stdcall;


[DllImport(DLLName)]
public static extern short GeneratePDF(
    [MarshalAs(UnmanagedType.LPWStr)] string Param1,
    [MarshalAs(UnmanagedType.LPWStr)] string Param2,
    [MarshalAs(UnmanagedType.LPWStr)] string Param3,
    [MarshalAs(UnmanagedType.LPWStr)] string Param4,
    out IStream PDFData);

function GeneratePDF(Param1, Param2, Param3, Param4: PWChar;
    out PDFData: IStream): WordBool; stdcall;

private byte[] ReadIStream(IStream Stream)
{
    if (Stream == null)
        return null;
    System.Runtime.InteropServices.ComTypes.STATSTG streamstats;
    Stream.Stat(out streamstats, 0);
    Stream.Seek(0, 0, IntPtr.Zero);
    if (streamstats.cbSize <= 0)
        return null;
    byte[] result = new byte[streamstats.cbSize];
    Stream.Read(result, (int)streamstats.cbSize, IntPtr.Zero);
    return result;
}

WordBool 和 Short 最初是 boolean (Delphi) 和 bool (C#)，为了以防万一，我将它们更改为更明确。

----------------------------------------编辑------------------ -------------------

我之前写的有关 WinForms 的内容似乎并不完全相关，我在没有任何 UI 的情况下重新创建了其中一个问题。下面的程序在2.0/3.5下生成0,1,2,3,4,5,6,7,8,9，但是0,-1,-1,-1,-1,-1,-1,- 1,-1低于4.0。

using System;
using System.Runtime.InteropServices;

namespace TestNet4interop
{
    static class Program
    {
        [DllImport("TestSimpleLibrary.dll", PreserveSig=true, CallingConvention = CallingConvention.StdCall)]
        public static extern void AddToList(long value);

        [DllImport("TestSimpleLibrary.dll", PreserveSig=true, CallingConvention = CallingConvention.StdCall)]
        public static extern int GetFromList(long value);

        static void Main()
        {
            for (long i = 0; i < 10; i++)
            {
                AddToList(i);
                Console.WriteLine(GetFromList(i));
            }
        }
    }
}

Delphi 端(用 Delphi 2007 编译):

library TestSimpleLibrary;

uses
  SysUtils,
  Classes;

{$R *.res}

var
   List: TStringList;

procedure AddToList(value: int64); stdcall;
begin
   List.Add(IntToStr(value));
end;

function GetFromList(value: int64): integer; stdcall;
begin
   result := List.IndexOf(IntToStr(value));
end;

exports
   AddToList,
   GetFromList;

begin
   List := TStringList.Create;
end.

Answer 1

这似乎是 Visual Studio 2010 调试器中的错误。它似乎正在破坏不属于它的内存。如果我直接运行该应用程序，而不是通过 Visual Studio 2010，我观察到的所有问题(所有这些问题都可以可靠地重现)都会完全消失。

该错误实际上存在于托管调试助手中。如果您完全关闭它(设置 HKLM\Software\Microsoft.NETFramework\MDA =“0”)，问题就会消失。但这样做当然会失去一些调试能力。