DLL32 funciones que regresan un valor entero

[interwin]

Buenas noches

Estoy implementando una llamada a una DLL desde un programa hecho con FWH y XHarbour.

El procedimiento para llamar a dicha DLL desde Delphi es

Code: Select all

.
.
.
type TError =
(
    OK,
    Arch_No_Encontrado,
    Dato_Obligatorio,
    Problemas_Certificado,
    Vigencia_Certificado,
    LlavePrivada,
    Version_CFD_Invalida,
    ErrorGeneral
);

function GeneraCFD(IniFileName, ClaveLlavePrivada : PChar) : TError; stdcall; external 'prueba.dll';

if GeneraCFD(PChar(OpenDialog.FileName),PChar(clave)) = OK then
.
.
.
.       
 

Yo la implemente de la siguiente manera:

Code: Select all

function Main()
   if .not. AbreDLL()
      msgAlert('La DLL para crear libreria CFDI no pudo ser abierta')
      resallfree()
      memory(-1)
      PostQuitMessage(0)
      __Quit()
      quit
   endIf

   A=GeneraCFD(cDirectorioPrograma+'\Tempo.ini', allTrim(Certs->PassKey) )

   msginfo(A)
return NIL

static Function AbreDLL()
   LOCAL lRet:=.F.
   LOCAL cDllName:="prueba.dll"

   hLibCFD:=LoadLibrary(cDllName)
   if Abs( hLibCFD ) <= 32
      MsgAlert( "Error code: " + LTrim( Str( hLibCFD ) ) + " loading " + cDllName )
      lRet:=.F.
   else
      lRet:=.T.
   endif
Return lRet

DLL32 FUNCTION GeneraCFD(cArchivoIni AS LPSTR, cPass AS LPSTR) AS LONG PASCAL FROM "prueba.dll" LIB hLibCFD

El problema es que GeneraCFD en lugar de regresarme un valor entre 0 y 8 me regresa el numero 35628288.

Ya probe con BYTE, _INT y con practimente todos los tipos de datos y siempre obtengo un resultado distinto del esperado.

¿Que estoy haciendo mal?.

¿De que forma puedo llamar esta DLL de forma lenguaje C.

Saludos

[carlos vargas]

la funcion el delphi retorna un dato tipo TError, hay que identificar si este es un tipo de dato tipo TObject, TRecord
o es un valor numerico.

salu2

[interwin]

Carlos

Gracias por responder. No se mucho de delphi (programe en pascal hace como 20 años) pero tengo entendido que al poner:

type TError =
(
OK,
Arch_No_Encontrado,
Dato_Obligatorio,
Problemas_Certificado,
Vigencia_Certificado,
LlavePrivada,
Version_CFD_Invalida,
ErrorGeneral
)

Se definen unas constantes con los siguientes valores

OK=0,Dato_Obligatorio=1,etc.

Por lo que la funcion GeneraCFD regresaria un valor entre 0 y 7, pero no se que me falta definir. Tal vez la solucion seria implementar en C en lugar de usar DLL32 pero no se como hacerlo.

Saludos.

[carlos vargas]

sip, eso esta viendo que Terror era detipo trecord
ok, me parece que ya probaste con integer, long, prueba con UINT (short int) o CHAR que dependiendo del tamaño del numero puede ser usado como un tipo de dato numerico. ( int de 0 a 254 )
que si facilitas el dll seria mas facil probar.

salu2

[Antonio Linares]

Esta línea:

DLL32 FUNCTION GeneraCFD(cArchivoIni AS LPSTR, cPass AS LPSTR) AS LONG PASCAL FROM "prueba.dll" LIB hLibCFD

debería ser:

DLL32 FUNCTION GeneraCFD(cArchivoIni AS LPSTR, cPass AS LPSTR) AS LONG PASCAL FROM "GeneraCFD" LIB hLibCFD

[interwin]

Buenas Noches

Antonio, Carlos Muchas Gracias por Responder.

En el ejemplo que puse en el foro me equivoque y puse FROM "prueba.dll" en lugar de FROM "GeneraCFD". Pero con las pruebas que he estado haciendo con mi programa si lo tenia correcto.

Por el momento solucione el problema de una forma no muy ortodoxa:

definiendo la funcion

DLL32 FUNCTION GeneraCFD(cArchivoIni AS LPSTR, cPass AS LPSTR) AS LONG PASCAL FROM "GeneraCFD" LIB hLibCFD

me di cuenta que cuando GeneraCFD deberia regresar 0 me regresaba el numero 35628288, 1 regresaba 35628289 y asi consecutivamente, por lo cual para obtener el valor correcto resto el numero 35628288 del valor obtenido por la funcion.

WnErrorGeneraCFD:=GeneraCFD(cDirectorioPrograma+'\Tempo.ini', allTrim(Certs->PassKey) )
WnErrorGeneraCFD:=WnErrorGeneraCFD-35628288

Pero debe de haber una forma de definir el tipo de dato que sea el correcto para obtener el valor adecuado, no supe como definir el tipo UINT en la funcion definida con DLL32

Carlos, por favor pasame tu mail para mandarte la lib.

Saludos

[carlos vargas]

donboscocorp2@hotmail.com

lo mas probable es que se necesite realizar wrapper en c para estas funciones.

salu2
carlos vargas

[carlos vargas]

http://www.validacfd.com/phpbb3/viewtop ... 58&start=0

aca hablan un poco del tema

Code: Select all

DLL32 FUNCTION GeneraCFD(cArchivoIni AS LPSTR, cPass AS LPSTR) AS BOOL PASCAL FROM "GeneraCFD" LIB "CFDLib.dll"
DLL32 FUNCTION GetError() AS STRING PASCAL FROM "GetError" LIB "CFDLib.dll"
DLL32 FUNCTION GetErrorExt() AS STRING PASCAL FROM "GetErrorExt" LIB "CFDLib.dll"
 

pero en este caso el valor retornado es boleano , y obtiene luego con las otras funciones ek numero del error

salu2
carlos vargas

[interwin]

Carlos.

Gracias por responder, de hecho yo puse ese post en la pagina del fabricante de la lib. En un principio hice mis pruebas usando bool pero tampoco obtengo el resultado obtenido. Parece ser que la funcion regresa la direccion de memoria donde se almacena el resultado de la funcion.

¿Como obtengo un valor a partir de una direccion de memoria?

Saludos.

[Antonio Linares]

Que tipo de valor es al que quieres acceder ? Un número, una cadena (texto) ?

http://dis.um.es/~lopezquesada/document ... 8/UT8I.pdf

[Antonio Linares]

Si devolviese una dirección a una cadena, podrias usar:

Code: Select all

HB_FUNC( STRFROMPTR )  // nDireccion --> cTexto
{
   hb_retc( ( char * ) hb_parnl( 1 ) );
}
 

Si devolviese la dirección de un número (LONG), podrias usar:

Code: Select all

HB_FUNC( NUMFROMPTR )  // nDirección --> nNumero
{
   hb_retnl( * ( HB_LONG * ) hb_parnl( 1 ) );
}