从 C# 调用 FORTRAN DLL 的受保护内存冲突

Question

我正在尝试调用从 FORTRAN 代码编译的遗留 dll。 我是 Interop 的新手，但我读过一些关于它的文章，看来我的情况应该相当简单。

我真正想要调用的方法具有复杂的方法签名，但我什至无法在不发生受保护内存冲突的情况下调用这个简单的 GetVersion 方法。

这是我的 DllImport 代码：

[DllImport("GeoConvert.dll", 
            EntryPoint="_get_version@4", 
            CallingConvention=CallingConvention.StdCall)]
public static extern void GetGeoConvertVersion([MarshalAs(UnmanagedType.LPStr, SizeConst=8)]
                                                    ref string version);

这是 FORTRAN 代码：

SUBROUTINE GetVer( VRSION )
C
!MS$DEFINE  MSDLL 
!MS$IF DEFINED (MSDLL)
        ENTRY Get_Version (VRSION)  
      !MS$ATTRIBUTES DLLEXPORT,STDCALL :: Get_Version
      !MS$ATTRIBUTES REFERENCE :: VRSION
!MS$ENDIF
!MS$UNDEFINE  MSDLL 
C
  CHARACTER*8  VRSION
C
  VRSION = '1.0a_FhC'                                        
C
  RETURN
  END

这是我失败的单元测试：

[Test]
public void TestGetVersion()
{
    string version = "";
    LatLonUtils.GetGeoConvertVersion(ref version);
    StringAssert.IsNonEmpty(version);
}

这是我收到的错误消息：

System.AccessViolationException
Message: Attempted to read or write protected memory. 
         This is often an indication that other memory is corrupt.

我尝试过的其他操作：

• 使用默认编组
• 传递 char[] 而不是字符串（获取方法签名错误）

Answer 1

...剪断...
好的，我成功了，问题是通过引用传递的。 我不知道为什么，但这有效：
...snip...

您需要通过引用传递，因为这是 FORTRAN 代码使用的语义。 客户端代码传入一个缓冲区，FORTRAN 代码将写入该缓冲区，而不是使用返回值。

...剪断...
!MS$属性参考::VRSION
...snip...

FORTRAN 代码中的此属性指定此参数通过引用传递。 这意味着 FORTRAN 代码将写入该地址。 如果 DllImport 也没有将其声明为引用值，您将遇到访问冲突。

Answer 2

好的，我成功了，问题是通过引用传递的。 我不知道为什么，但这有效：

[DllImport("GeoConvert.dll", 
                EntryPoint="_get_version@4", 
                CallingConvention=CallingConvention.StdCall)]
    public static extern void GetGeoConvertVersion([MarshalAs(UnmanagedType.LPArray)]
                                                    byte[] version);

通过这个测试：

[Test]
    public void TestGetVersion()
    {
        //string version = "";
        byte[] version = new byte[8];
        LatLonUtils.GetGeoConvertVersion(version);
        char[] versionChars = System.Text.Encoding.ASCII.GetChars(version);

        string versionString = new string(versionChars);
    }

Answer 3

您尝试过使用 StringBuilder 吗？

创建 String 作为 StringBuilder 并将其传递到 dll 函数中。

我不确定要使用什么 Marashlling 语句，也许默认的可能会起作用。

看一下：C# P/Invoke 中的 Marshal C++“string”类

这是一篇好文章，可能也会有所帮助：Interop Marshalling

Answer 4

我无法尝试这个解决方案，因为我没有 FORTRAN 编译器，但我认为这对你有用：

    [DllImport("GeoConvert.dll", 
            EntryPoint="_get_version@4", 
            CallingConvention=CallingConvention.StdCall,
            CharSet=CharSet.Ansi)]
    public static extern void GetGeoConvertVersion(StringBuilder version);

Answer 5

谢谢大家，我一直在尝试将字符串从 c# 传递到 fortran dll 的子例程，这个方法是许多其他方法中唯一有效的方法