DLL funciona bien sin mi libreria personal, caso contrario n

[hidroxid]

Hola

Estoy haciendo pruebas con código en DLL para luego utilizarlo dinamicamente con mi ejecutable, ambos en Harbour.

El codigo de la DLL es sencillo:

Code: Select all  Expand view

FUNCTION pruebas_dll( uPar1 )

IF Empty( uPar1 )
   RETURN "Vacio"
ENDIF

RETURN "Lleno"
 

El codigo para el EXE principal:

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local hDLL := hb_LibLoad( "w:\pcode.dll" )

   ? ValType( hDll ), hDLL // Saber si tiene el puntero asignado

   ? Do( "pruebas_dll" ) // Aca deberia retornar Vacio

   hb_LibFree( hDLL )

return nil
/*----------------------------------------------------------------------------*/
    #pragma BEGINDUMP

    #include "hbapi.h"

    HB_EXPORT_ATTR PHB_FUNC dll_hb_vmProcAddress( const char * szFuncName )
    {
       return hb_vmProcAddress( szFuncName );
    }

    #pragma ENDDUMP
 

Para facilitar mi trabajo con los sistemas tengo una libreria personal (puro código harbour y una que otra funcion en C sencilla). Cabe destacar que como RE-defino casi todas las clases, mi libreria la coloco antes de las FiveH.lib y FiveHC.lib.

La DLL la genero y cuando compilo el EXE, resulta que si NO uso mi libreria personal la funcion dentro de la DLL funciona perfecto, pero si compilo mi libreria persona no funciona segun lo esperado, tengo un valor de retorno de NIL y la funcion en si dentro de la DLL no se ejecuta (coloque un LogFile para chequear). Cabe destacar que hb_LibLoad() retorna valores, por lo que estimo la DLL se abre correctamente.

¿Alguna pista para saber por donde debo meter el ojo?

Gracias de antemano.

[Antonio Linares]

Tu librería personal debe estar sobre escribiendo alguna función de FWH y de ahi que al enlazarla previamente no se enlace la de FWH sino la de tu librería

Es lo primero que revisaría

[hidroxid]

Llegue a la misma conclusión "ilógica" a mi juicio porque si el código de mi libreria personal funciona bien en todos mis ejecutable, porque no hacerlo con la DLL. ¿ ?

Pero si, no hay otro sitio para donde mirar... tendré que desarmar mi libreria con pinzas y evaluar punto a punto donde estará el problema.

Si resuelvo lo notifico.

Gracias

[Armando]

hidroxid

Yo probaría el llamado a la función así

Code: Select all  Expand view

? pruebas_dll("")
 

Saludos