c# - linea - fortran pdf

Violación de memoria protegida llamando a la DLL de FORTRAN desde C#

Question

Estoy tratando de llamar a un dll heredado compilado del código FORTRAN. Soy nuevo en Interop, pero he leído algunos artículos y parece que mi caso debería ser bastante sencillo.

El método que realmente quiero llamar tiene una firma de método compleja, pero ni siquiera puedo llamar a este simple método GetVersion sin obtener una violación de memoria protegida.

Aquí está mi código de DllImport:

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

Aquí está el código 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

Aquí está la prueba de mi unidad que falla:

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

Aquí está el mensaje de error que recibo:

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

Otras cosas que he intentado:

• Usar la clasificación predeterminada
• Pasar un char [] en lugar de una cadena (obtener errores de firma de método en su lugar)

Answer 1

... snip ... OK, lo hice funcionar, el problema estaba pasando por ref. No estoy seguro por qué, pero esto funciona: ... snip ...

Debe pasar por referencia porque esa es la semántica utilizada por el código FORTRAN. El código de cliente pasa en un búfer al que el código FORTRAN va a escribir en lugar de usar un valor de retorno.

... snip ...! MS $ ATRIBUTOS REFERENCIA :: VRSION ... snip ...

Este atributo en su código FORTRAN especifica que este parámetro se pasa por referencia. Eso significa que el código FORTRAN va a escribir en esta dirección. Si el DllImport no lo declara como un valor de referencia también, obtendrá una infracción de acceso.

Answer 2

No puedo probar esta solución ya que no tengo un compilador FORTRAN, pero creo que esto funcionaría para usted:

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

Answer 3

OK, lo hice funcionar, el problema estaba pasando por ref. No estoy seguro por qué, pero esto funciona:

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

Con esta prueba:

[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 4

Gracias a todos, he estado tratando de pasar una cadena de c # a una subrutina de Fortran DL y este método fue el único que funciona entre muchos otros

Answer 5

¿Has intentado usar un StringBuilder?

Crea tu String como un StringBuilder y pasa eso a la función dll.

No estoy seguro de qué declaración de Marashlling usar, por ejemplo, el predeterminado podría funcionar.

Eche un vistazo a: Clase de "cuerda" Marshal C ++ en C # P / Invoke

Aquí hay un buen artículo que podría ayudar también: Interop Marshalling