Programación General > Visual C++

 C++ Con Dll De Fortran

<< < (4/5) > >>

Eternal Idol:
Es simple hasta cierto punto, fijate los ret, aunque al no estar completa no puedo estar 100% seguro. En este caso esta claro que las funciones de la DLL de Fortran estan usando stdcall (las que se ven al menos) y por lo tanto cuando tu ejecutable intente acomodar la pila en realidad la jodera ...

En tu ejecutable, convencion de llamada C:
//primero se pasan todos los parametros en la pila
//se llama a la funcion (se que es esta por la cantidad ENORME - por eso decia que ese prototipo era vomitivo - de parametros)
100010A6: E8 29 60 00 00     call        100070D4
//intenta arreglar la pila pero como no es una funcion de convencion C la termina jodiendo
100010AB: 83 C4 38           add         esp,38h (56/4=14 parametros)

Para comprobar esta teoria podrias hacer esto en la siguiente linea justo tras llamar esta funcion:

--- Código: Text --- __asm sub esp, 0x38  
Si eso lo soluciona evidentemente NO es la forma de hacerlo y tendrias que pedirle mas explicaciones a tu amigo (si esta usando un .DEF, si puede cambiar la convencion de llamada, como esta enlazando, etc, etc, etc) o usar enlazado dinamico  :kicking: De esta manera:

typedef void (__stdcall *tuwhbv_ptr)(long,float&,float&,float&,float&,float&,float&,float&,float&,long,float&,float&,float&,float&);
tuwhbv_ptr tuwhbv = 0;

Despues en donde inicies usas LoadLibrary para cargar la DLL en cuestion y GetProcAddress para obtener la direccion de la funcion que se la asignaras a tuwhbv. De esa manera al usar stdcall no deberia dar ningun fallo.

LauraDiaz:
Pues he puesta la linea esta de ensamblador delante de la llamada a la función externa y obtengo el mismo error. He optado por probar el enlace dinámico y en lugar de enlazar el .lib, llamar directamente a la DLL como me has comentado.
Al hacer esto, y generando mi DLL en C++, la llamo desde mi código de Java y sigo teniendo el ACCESS VIOLATION, el cambio es que el "Problematic Frame" que me da el error cambia: usando el enlace estático el problema de java apunta a la DLL que genero en C++, y usando el enlace dinámico el error de la VM me apunta como problema a la DLL de fortran.
La persona que ha hecho el código fortran es un hidrólogo sin muchos conocimientos informaticos y me ha pasado el log que le genera su entorno visual cuando genera la DLL.

--- Código: Text --- # Microsoft Developer Studio Generated NMAKE File, Based on tuwhbv.dsp!IF &#34;&#036;(CFG)&#34; == &#34;&#34;CFG=tuwhbv - Win32 Debug!MESSAGE No configuration specified. Defaulting to tuwhbv - Win32 Debug.!ENDIF  !IF &#34;&#036;(CFG)&#34; != &#34;tuwhbv - Win32 Release&#34; && &#34;&#036;(CFG)&#34; != &#34;tuwhbv - Win32 Debug&#34;!MESSAGE Invalid configuration &#34;&#036;(CFG)&#34; specified.!MESSAGE You can specify a configuration when running NMAKE!MESSAGE by defining the macro CFG on the command line. For example:!MESSAGE !MESSAGE NMAKE /f &#34;tuwhbv.mak&#34; CFG=&#34;tuwhbv - Win32 Debug&#34;!MESSAGE !MESSAGE Possible choices for configuration are:!MESSAGE !MESSAGE &#34;tuwhbv - Win32 Release&#34; (based on &#34;Win32 (x86) Dynamic-Link Library&#34;)!MESSAGE &#34;tuwhbv - Win32 Debug&#34; (based on &#34;Win32 (x86) Dynamic-Link Library&#34;)!MESSAGE !ERROR An invalid configuration is specified.!ENDIF  !IF &#34;&#036;(OS)&#34; == &#34;Windows_NT&#34;NULL=!ELSE NULL=nul!ENDIF  !IF  &#34;&#036;(CFG)&#34; == &#34;tuwhbv - Win32 Release&#34; OUTDIR=.&#092;ReleaseINTDIR=.&#092;Release# Begin Custom MacrosOutDir=.&#092;Release# End Custom Macros ALL : &#34;&#036;(OUTDIR)&#092;tuwhbv.dll&#34;  CLEAN :  -@erase &#34;&#036;(INTDIR)&#092;BETAFUNC.mod&#34;  -@erase &#34;&#036;(INTDIR)&#092;betafunc.obj&#34;  -@erase &#34;&#036;(INTDIR)&#092;datetrans.mod&#34;  -@erase &#34;&#036;(INTDIR)&#092;datetrans.obj&#34;  -@erase &#34;&#036;(INTDIR)&#092;hbvmodel.mod&#34;  -@erase &#34;&#036;(INTDIR)&#092;hbvmodel.obj&#34;  -@erase &#34;&#036;(INTDIR)&#092;Parameters.mod&#34;  -@erase &#34;&#036;(INTDIR)&#092;parameters.obj&#34;  -@erase &#34;&#036;(INTDIR)&#092;SCECALIB.mod&#34;  -@erase &#34;&#036;(INTDIR)&#092;scecalib.obj&#34;  -@erase &#34;&#036;(INTDIR)&#092;tuwhbv.obj&#34;  -@erase &#34;&#036;(OUTDIR)&#092;tuwhbv.dll&#34;  -@erase &#34;&#036;(OUTDIR)&#092;tuwhbv.exp&#34;  -@erase &#34;&#036;(OUTDIR)&#092;tuwhbv.lib&#34; &#34;&#036;(OUTDIR)&#34; :    if not exist &#34;&#036;(OUTDIR)/&#036;(NULL)&#34; mkdir &#34;&#036;(OUTDIR)&#34; F90=df.exeF90_PROJ=/compile_only /dbglibs /dll /nologo /warn:nofileopt /module:&#34;Release/&#34; /object:&#34;Release/&#34; F90_OBJS=.&#092;Release/ .SUFFIXES: .fpp .for{&#036;(F90_OBJS)}.obj:   &#036;(F90) &#036;(F90_PROJ) &#036;&#60;   .f{&#036;(F90_OBJS)}.obj:   &#036;(F90) &#036;(F90_PROJ) &#036;&#60;   .f90{&#036;(F90_OBJS)}.obj:   &#036;(F90) &#036;(F90_PROJ) &#036;&#60;   .fpp{&#036;(F90_OBJS)}.obj:   &#036;(F90) &#036;(F90_PROJ) &#036;&#60;   CPP=cl.exeCPP_PROJ=/nologo /ML /W3 /GX /O2 /D &#34;WIN32&#34; /D &#34;NDEBUG&#34; /D &#34;_WINDOWS&#34; /D &#34;_MBCS&#34; /D &#34;_USRDLL&#34; /Fp&#34;&#036;(INTDIR)&#092;tuwhbv.pch&#34; /YX /Fo&#34;&#036;(INTDIR)&#092;&#092;&#34; /Fd&#34;&#036;(INTDIR)&#092;&#092;&#34; /FD /c  .c{&#036;(INTDIR)}.obj::   &#036;(CPP) @&#60;&#60;   &#036;(CPP_PROJ) &#036;&#60; &#60;&#60; .cpp{&#036;(INTDIR)}.obj::   &#036;(CPP) @&#60;&#60;   &#036;(CPP_PROJ) &#036;&#60; &#60;&#60; .cxx{&#036;(INTDIR)}.obj::   &#036;(CPP) @&#60;&#60;   &#036;(CPP_PROJ) &#036;&#60; &#60;&#60; .c{&#036;(INTDIR)}.sbr::   &#036;(CPP) @&#60;&#60;   &#036;(CPP_PROJ) &#036;&#60; &#60;&#60; .cpp{&#036;(INTDIR)}.sbr::   &#036;(CPP) @&#60;&#60;   &#036;(CPP_PROJ) &#036;&#60; &#60;&#60; .cxx{&#036;(INTDIR)}.sbr::   &#036;(CPP) @&#60;&#60;   &#036;(CPP_PROJ) &#036;&#60; &#60;&#60; MTL=midl.exeMTL_PROJ=/nologo /D &#34;NDEBUG&#34; /mktyplib203 /win32 RSC=rc.exeBSC32=bscmake.exeBSC32_FLAGS=/nologo /o&#34;&#036;(OUTDIR)&#092;tuwhbv.bsc&#34; BSC32_SBRS= &#092;  LINK32=link.exeLINK32_FLAGS=kernel32.lib /nologo /subsystem:windows /dll /incremental:no /pdb:&#34;&#036;(OUTDIR)&#092;tuwhbv.pdb&#34; /machine:I386 /out:&#34;&#036;(OUTDIR)&#092;tuwhbv.dll&#34; /implib:&#34;&#036;(OUTDIR)&#092;tuwhbv.lib&#34; LINK32_OBJS= &#092;  &#34;&#036;(INTDIR)&#092;betafunc.obj&#34; &#092;  &#34;&#036;(INTDIR)&#092;datetrans.obj&#34; &#092;  &#34;&#036;(INTDIR)&#092;hbvmodel.obj&#34; &#092;  &#34;&#036;(INTDIR)&#092;parameters.obj&#34; &#092;  &#34;&#036;(INTDIR)&#092;scecalib.obj&#34; &#092;  &#34;&#036;(INTDIR)&#092;tuwhbv.obj&#34; &#34;&#036;(OUTDIR)&#092;tuwhbv.dll&#34; : &#34;&#036;(OUTDIR)&#34; &#036;(DEF_FILE) &#036;(LINK32_OBJS)    &#036;(LINK32) @&#60;&#60;  &#036;(LINK32_FLAGS) &#036;(LINK32_OBJS)&#60;&#60; !ELSEIF  &#34;&#036;(CFG)&#34; == &#34;tuwhbv - Win32 Debug&#34; OUTDIR=.&#092;DebugINTDIR=.&#092;Debug# Begin Custom MacrosOutDir=.&#092;Debug# End Custom Macros ALL : &#34;&#036;(OUTDIR)&#092;tuwhbv.dll&#34;  CLEAN :  -@erase &#34;&#036;(INTDIR)&#092;BETAFUNC.mod&#34;  -@erase &#34;&#036;(INTDIR)&#092;betafunc.obj&#34;  -@erase &#34;&#036;(INTDIR)&#092;datetrans.mod&#34;  -@erase &#34;&#036;(INTDIR)&#092;datetrans.obj&#34;  -@erase &#34;&#036;(INTDIR)&#092;DF60.PDB&#34;  -@erase &#34;&#036;(INTDIR)&#092;hbvmodel.mod&#34;  -@erase &#34;&#036;(INTDIR)&#092;hbvmodel.obj&#34;  -@erase &#34;&#036;(INTDIR)&#092;Parameters.mod&#34;  -@erase &#34;&#036;(INTDIR)&#092;parameters.obj&#34;  -@erase &#34;&#036;(INTDIR)&#092;SCECALIB.mod&#34;  -@erase &#34;&#036;(INTDIR)&#092;scecalib.obj&#34;  -@erase &#34;&#036;(INTDIR)&#092;tuwhbv.obj&#34;  -@erase &#34;&#036;(OUTDIR)&#092;tuwhbv.dll&#34;  -@erase &#34;&#036;(OUTDIR)&#092;tuwhbv.exp&#34;  -@erase &#34;&#036;(OUTDIR)&#092;tuwhbv.lib&#34;  -@erase &#34;&#036;(OUTDIR)&#092;tuwhbv.pdb&#34; &#34;&#036;(OUTDIR)&#34; :    if not exist &#34;&#036;(OUTDIR)/&#036;(NULL)&#34; mkdir &#34;&#036;(OUTDIR)&#34; F90=df.exeF90_PROJ=/check:bounds /compile_only /dbglibs /debug:full /dll /libs:static /nologo /traceback /warn:argument_checking /warn:nofileopt /winapp /module:&#34;Debug/&#34; /object:&#34;Debug/&#34; /pdbfile:&#34;Debug/DF60.PDB&#34; F90_OBJS=.&#092;Debug/ .SUFFIXES: .fpp .for{&#036;(F90_OBJS)}.obj:   &#036;(F90) &#036;(F90_PROJ) &#036;&#60;   .f{&#036;(F90_OBJS)}.obj:   &#036;(F90) &#036;(F90_PROJ) &#036;&#60;   .f90{&#036;(F90_OBJS)}.obj:   &#036;(F90) &#036;(F90_PROJ) &#036;&#60;   .fpp{&#036;(F90_OBJS)}.obj:   &#036;(F90) &#036;(F90_PROJ) &#036;&#60;   CPP=cl.exeCPP_PROJ=/nologo /MTd /W3 /Gm /GX /ZI /Od /D &#34;WIN32&#34; /D &#34;_DEBUG&#34; /D &#34;_WINDOWS&#34; /D &#34;_MBCS&#34; /D &#34;_USRDLL&#34; /Fp&#34;&#036;(INTDIR)&#092;tuwhbv.pch&#34; /YX /Fo&#34;&#036;(INTDIR)&#092;&#092;&#34; /Fd&#34;&#036;(INTDIR)&#092;&#092;&#34; /FD /GZ /c  .c{&#036;(INTDIR)}.obj::   &#036;(CPP) @&#60;&#60;   &#036;(CPP_PROJ) &#036;&#60; &#60;&#60; .cpp{&#036;(INTDIR)}.obj::   &#036;(CPP) @&#60;&#60;   &#036;(CPP_PROJ) &#036;&#60; &#60;&#60; .cxx{&#036;(INTDIR)}.obj::   &#036;(CPP) @&#60;&#60;   &#036;(CPP_PROJ) &#036;&#60; &#60;&#60; .c{&#036;(INTDIR)}.sbr::   &#036;(CPP) @&#60;&#60;   &#036;(CPP_PROJ) &#036;&#60; &#60;&#60; .cpp{&#036;(INTDIR)}.sbr::   &#036;(CPP) @&#60;&#60;   &#036;(CPP_PROJ) &#036;&#60; &#60;&#60; .cxx{&#036;(INTDIR)}.sbr::   &#036;(CPP) @&#60;&#60;   &#036;(CPP_PROJ) &#036;&#60; &#60;&#60; MTL=midl.exeMTL_PROJ=/nologo /D &#34;_DEBUG&#34; /mktyplib203 /win32 RSC=rc.exeBSC32=bscmake.exeBSC32_FLAGS=/nologo /o&#34;&#036;(OUTDIR)&#092;tuwhbv.bsc&#34; BSC32_SBRS= &#092;  LINK32=link.exeLINK32_FLAGS=kernel32.lib /nologo /subsystem:windows /dll /incremental:no /pdb:&#34;&#036;(OUTDIR)&#092;tuwhbv.pdb&#34; /debug /machine:I386 /out:&#34;&#036;(OUTDIR)&#092;tuwhbv.dll&#34; /implib:&#34;&#036;(OUTDIR)&#092;tuwhbv.lib&#34; /pdbtype:sept LINK32_OBJS= &#092;  &#34;&#036;(INTDIR)&#092;betafunc.obj&#34; &#092;  &#34;&#036;(INTDIR)&#092;datetrans.obj&#34; &#092;  &#34;&#036;(INTDIR)&#092;hbvmodel.obj&#34; &#092;  &#34;&#036;(INTDIR)&#092;parameters.obj&#34; &#092;  &#34;&#036;(INTDIR)&#092;scecalib.obj&#34; &#092;  &#34;&#036;(INTDIR)&#092;tuwhbv.obj&#34; &#34;&#036;(OUTDIR)&#092;tuwhbv.dll&#34; : &#34;&#036;(OUTDIR)&#34; &#036;(DEF_FILE) &#036;(LINK32_OBJS)    &#036;(LINK32) @&#60;&#60;  &#036;(LINK32_FLAGS) &#036;(LINK32_OBJS)&#60;&#60; !ENDIF   !IF &#34;&#036;(NO_EXTERNAL_DEPS)&#34; != &#34;1&#34;!IF EXISTS(&#34;tuwhbv.dep&#34;)!INCLUDE &#34;tuwhbv.dep&#34;!ELSE !MESSAGE Warning: cannot find &#34;tuwhbv.dep&#34;!ENDIF !ENDIF   !IF &#34;&#036;(CFG)&#34; == &#34;tuwhbv - Win32 Release&#34; || &#34;&#036;(CFG)&#34; == &#34;tuwhbv - Win32 Debug&#34;SOURCE=.&#092;betafunc.forF90_MODOUT=&#092;  &#34;BETAFUNC&#34;  &#34;&#036;(INTDIR)&#092;betafunc.obj&#34;  &#34;&#036;(INTDIR)&#092;BETAFUNC.mod&#34; : &#036;(SOURCE) &#34;&#036;(INTDIR)&#34;  &#036;(F90) &#036;(F90_PROJ) &#036;(SOURCE)  SOURCE=.&#092;datetrans.forF90_MODOUT=&#092;  &#34;DATETRANS&#34;  &#34;&#036;(INTDIR)&#092;datetrans.obj&#34;  &#34;&#036;(INTDIR)&#092;datetrans.mod&#34; : &#036;(SOURCE) &#34;&#036;(INTDIR)&#34;  &#036;(F90) &#036;(F90_PROJ) &#036;(SOURCE)  SOURCE=.&#092;hbvmodel.forF90_MODOUT=&#092;  &#34;HBVMODEL&#34;  &#34;&#036;(INTDIR)&#092;hbvmodel.obj&#34;  &#34;&#036;(INTDIR)&#092;hbvmodel.mod&#34; : &#036;(SOURCE) &#34;&#036;(INTDIR)&#34; &#34;&#036;(INTDIR)&#092;Parameters.mod&#34;  &#036;(F90) &#036;(F90_PROJ) &#036;(SOURCE)  SOURCE=.&#092;parameters.f90F90_MODOUT=&#092;  &#34;PARAMETERS&#34;  &#34;&#036;(INTDIR)&#092;parameters.obj&#34;  &#34;&#036;(INTDIR)&#092;Parameters.mod&#34; : &#036;(SOURCE) &#34;&#036;(INTDIR)&#34;  &#036;(F90) &#036;(F90_PROJ) &#036;(SOURCE)  SOURCE=.&#092;scecalib.forF90_MODOUT=&#092;  &#34;SCECALIB&#34;  &#34;&#036;(INTDIR)&#092;scecalib.obj&#34;  &#34;&#036;(INTDIR)&#092;SCECALIB.mod&#34; : &#036;(SOURCE) &#34;&#036;(INTDIR)&#34; &#34;&#036;(INTDIR)&#092;Parameters.mod&#34; &#34;&#036;(INTDIR)&#092;hbvmodel.mod&#34; &#34;&#036;(INTDIR)&#092;BETAFUNC.mod&#34;  &#036;(F90) &#036;(F90_PROJ) &#036;(SOURCE)  SOURCE=..&#092;tuwhbv.f90 &#34;&#036;(INTDIR)&#092;tuwhbv.obj&#34; : &#036;(SOURCE) &#34;&#036;(INTDIR)&#34; &#34;&#036;(INTDIR)&#092;SCECALIB.mod&#34; &#34;&#036;(INTDIR)&#092;Parameters.mod&#34; &#34;&#036;(INTDIR)&#092;hbvmodel.mod&#34; &#34;&#036;(INTDIR)&#092;datetrans.mod&#34; &#34;&#036;(INTDIR)&#092;BETAFUNC.mod&#34;  &#036;(F90) &#036;(F90_PROJ) &#036;(SOURCE)   !ENDIF    
puedes ver en esto a lo que te refererias de la convencion de llamada? no se bien como continuar?
Crees que seria una buena idea, que el cambie su proyecto para que le genere una libreria estática? de forma que quizas se cambie la forma de llamar a las librerias que utiliza?
He comprobado que las DLL que el utiliza dentro de su DLL estan todas en el path, así que en principio ese no debería ser el problema, verdad?

y gracias por tu tiempo, a este paso te voy a deber unas cervezas! :)

Eternal Idol:

--- Cita de: "LauraDiaz" ---Pues he puesta la linea esta de ensamblador delante de la llamada a la función externa y obtengo el mismo error.
--- Fin de la cita ---

¿Antes o despues lo pusiste? Tiene que ser asi:

--- Código: Text --- tuwhbv(params);__asm sub esp, 0x38  

--- Cita de: "LauraDiaz" ---He optado por probar el enlace dinámico y en lugar de enlazar el .lib, llamar directamente a la DLL como me has comentado.
Al hacer esto, y generando mi DLL en C++, la llamo desde mi código de Java y sigo teniendo el ACCESS VIOLATION, el cambio es que el "Problematic Frame" que me da el error cambia: usando el enlace estático el problema de java apunta a la DLL que genero en C++, y usando el enlace dinámico el error de la VM me apunta como problema a la DLL de fortran.
--- Fin de la cita ---

Por favor deja fuera del problema a Java, hace un programa simple que use la DLL de C++ que a su vez usa la DLL de Fortran.


--- Cita de: "LauraDiaz" ---puedes ver en esto a lo que te refererias de la convencion de llamada? no se bien como continuar?
Crees que seria una buena idea, que el cambie su proyecto para que le genere una libreria estática? de forma que quizas se cambie la forma de llamar a las librerias que utiliza?
--- Fin de la cita ---

Si, me imagino que ese es el problema, al menos entre C++ y Fortran. No se si servira que genere una libreria estatica realmente, pueden hacer la prueba pero no lo se.

LauraDiaz:
la línea que me comentaste la he probado delante y detras de la función externa y lo mismo. En cuanto a dejar Java fuera, eso he hecho, es un programa de pocas lineas que simplemente carga la DLL y con eso no hay problema.
Ahora mismo, el programa en C++ ha quedado así:

--- Código: Text --- typedef void (__stdcall *tuwhbv_ptr)(long,float&,float&,float&,float&,float&,float&,float&,float&,long,float&,float&,float&,float&);tuwhbv_ptr tuwhbv = 0; JNIEXPORT void JNICALL Java_edu_uji_aware_hbv_HBVModel_hbv(JNIEnv *env, jobject obj, jlong flag, jfloat ages, jfloat incon, jfloat inputt, jfloat gobs, jfloat modisa, jfloat param, jfloat lb, jfloat ub, jlong calid, jfloat weight, jfloat parfin, jfloat effin, jfloat output){    HINSTANCE hLib;           hLib = LoadLibrary(&#34;tuwhbv.dll&#34;);      if(hLib!=0){         tuwhbv = (void (__stdcall *)(long,float&,float&,float&,float&,float&,float&,float&,float&,long,float&,float&,float&,float&)) GetProcAddress(hLib,&#34;tuwhbv&#34;);         tuwhbv(flag, ages, incon,inputt,gobs,modisa,param,lb,ub,calid,weight,parfin,effin,output);                                            }     FreeLibrary(hLib);}  

y el error sigue siendo el mismo:

# An unexpected error has been detected by HotSpot Virtual Machine:
#
#  EXCEPTION_ACCESS_VIOLATION (0xc0000005) at pc=0x0b186404, pid=3592, tid=2516
#
# Java VM: Java HotSpot™ Client VM (1.5.0_08-b03 mixed mode)
# Problematic frame:
# C  [tuwhbv.dll+0x6404]

las librerias que usa el tuwhbv.dll estan todas disponibles,y abriendolo con el dependency walker todo tiene buena pinta. Alguna idea de como quitarme de encima este access violation?
gracias y un saludo!

Eternal Idol:
Si la parte de Fortran y C++ funciona bien y el problema ahora es con Java yo no te puedo ayudar, no tengo experiencia ni tiempo para conseguirla. Proba a preguntar en el subforo de Java, tal vez ahi alguien sepa.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior

Ir a la versión completa