USO de los DLL

[busmatic]

Estimados Amigos, Tengo un lector de barras 2d este genera una lectura de nuestra cedula de identidad, esta informacion es encriptada, me han dado la dll que desencripta y da los datos que necesito leer en un string separados por comas.

Mandaron el Dll y solo pusieron esto..

/*

cuenta con una librería denominada "BarCodeReader.dll" desarrollada en c++,
la cual cuenta con una unica funcion publica "LeeCodigoBarras" que recibe como argumento
la ruta de un archivo de texto, y retorna datos demográficos contenidos en la cédula de
identidad separados por comas(,). El archivo de texto debe contener
la lectura binaria de los 700 bytes contenidos en el código PDF417 que compone la cédula de identidad.
*/

Ya tengo el lector, este genera un archivo .BIN

dentro del dll esta la function.
Ahora tengo esto ..

static nHandle

Function Lector()
* Public oCedulatext := MEMOREAD("C:\proyectos\listbox\Bin\lecturas\lectura1.bin")
Public oCedulatext := "C:\proyectos\listbox\Bin\lecturas\lectura1.bin"

nHandle := Loadlibrary("BarCodeReader.dll")
msginfo(LeeCodigoBarras(oCedulatext))
FreeLibrary(nHandle)
return nil
*======================================================================
DLL FUNCTION LeeCodigoBarras(oCedulatext AS LPSTR) AS LPSTR LIB nHandle

Me da Una error
Microsoft Visual C++ Runtime Library
RunTime Error ¡¡

A alguien le ha pasado,, necesito ayuda, me enviaron solo el texto que ven arriba de informacion de la function.

Gracias
Busmatic de CR

[Antonio Linares]

Prueba asi:

DLL FUNCTION LeeCodigoBarras(oCedulatext AS LPSTR) AS LPSTR PASCAL LIB nHandle

[busmatic]

Bueno el error de runtime se quito, pero ahora me da un error,
Descripci¾n del detalle: Error BASE/1099 Error de argumento: STR
Argumentos:
[ 1] = U
[ 2] = U
[ 3] = U

Llamadas a la pila
==================
llamada desde: STR(0)
llamada desde: LEECODIGOBARRAS(0)
llamada desde: LECTOR(31)
llamada desde: ENTRADAS(70)



Pero lo aplique de esta manera

Function Lector()
* Public oCedulatext := MEMOREAD("C:\proyectos\listbox\Bin\lecturas\lectura1.bin")
* Public oCedulatext := "C:\proyectos\listbox\Bin\lecturas\lectura1.bin"
* Public oCedulatext := "C:\proyectos\listbox\Bin\lecturas\lectura2.txt"
* Public oCedulatext := "C:\proyectos\listbox\Bin\lecturas\lectura3.txt"
* nHandle := Loadlibrary("BarCodeReader.dll")
msginfo(LeeCodigoBarras(oCedulatext))
FreeLibrary(nHandle)
return nil
*======================================================================

DLL FUNCTION LeeCodigoBarras(oCedulatext AS LPSTR) AS LPSTR PASCAL LIB nHandle

Cualquier ayuda, los dioses los agradeceran

[busmatic]

Esque habia quitado la la variable de
nHandle := Loadlibrary("BarCodeReader.dll")
Por eso se da el SRT()

Aun no puedo dar con la solucion del problema.
Ayuda toda la posible.

Gracias

[Antonio Linares]

> Aun no puedo dar con la solucion del problema.

Cual es el problema ahora ? Que error da ?

[busmatic]

Igual el mismo problema. no tomes en cuenta mi segundo post

MISMO PROPBLEMA

Con lo que me enviaste no mejoro


Microsoft Visual C++ Runtime Library
RunTime Error ¡¡

Busmatic de CR
Gracias Ayuda.......

[Antonio Linares]

Estas usando alguna otra función de la DLL ?

Muéstrame como estas usandola ahora, gracias

[busmatic]

Mandaron el Dll y solo pusieron esto..

/*

cuenta con una librería denominada "BarCodeReader.dll" desarrollada en c++,
la cual cuenta con una unica funcion publica "LeeCodigoBarras" que recibe como argumento
la ruta de un archivo de texto, y retorna datos demográficos contenidos en la cédula de
identidad separados por comas(,). El archivo de texto debe contener
la lectura binaria de los 700 bytes contenidos en el código PDF417 que compone la cédula de identidad.
*/

Ya tengo el lector, este genera un archivo .BIN

bajar de el ftp el archivos.rar donde estan las .bin y .dll asi pudes hacer las pruebas dl caso.

http://www.incobus.com/pruebas/archivos.rar


dentro del BarCodeReader.dll esta la function. LeeCodigoBarras()

Ahora tengo esto ..

static nHandle

Function Lector()
* Public oCedulatext := ""C:\proyectos\listbox\Bin\lecturas\lectura1.bin")
Public oCedulatext := "C:\proyectos\listbox\Bin\lecturas\lectura1.bin"

nHandle := Loadlibrary("BarCodeReader.dll")

aqui es com la uso, es la unica function ke existe dentro de la .dll

msginfo(LeeCodigoBarras(oCedulatext))

FreeLibrary(nHandle)

return nil
*======================================================================
DLL FUNCTION LeeCodigoBarras(oCedulatext AS LPSTR) AS LPSTR LIB nHandle

Me da Una error
Microsoft Visual C++ Runtime Library
RunTime Error ¡¡

[Antonio Linares]

Has quitado la claúsula PASCAL.

Es necesaria ó se desalineará la pila (el stack) del procesador y por esa razón se produce el error de runtime.

[busmatic]

Function Lector()

* Public oCedulatext := MEMOREAD("C:\proyectos\listbox\Bin\lecturas\lectura1.bin")

http://www.incobus.com/pruebas/archivos.rar
** haber sbaja los archivos y pruebas y mcuentas

Public oCedulatext := "C:\proyectos\listbox\Bin\lecturas\lectura1.bin"

nHandle := Loadlibrary("BarCodeReader.dll")

msginfo(LeeCodigoBarras(oCedulatext))

FreeLibrary(nHandle)

return nil
*======================================================================


DLL FUNCTION LeeCodigoBarras(@oCedulatext AS LPSTR) AS LPSTR PASCAL LIB nHandle

EL mismo error ocurre, no cambia nada con Pascal o si en el mismo

ERROR

Microsoft Visual C++ Runtime Library
RunTime Error ¡¡

[busmatic]

Estimado Antonio Linares

Te explico, Esta dll toma una informacion que encriptada en el .bin que te envie.

http://www.incobus.com/pruebas/archivos.rar

He enviado los dll y los bin , puede descargarlos del linK arriba.


La informacion descencripta y me retorna la informacion en un string separado por comas.


Se supone que es muy simple segun la parte que desarrollo la dll, cosa que llevo ya 15 dias peliando dia y noche y no encuentro manera.
Este dll cuenta con una librería denominada "BarCodeReader.dll" desarrollada en c++, la cual cuenta con una unica funcion publica "LeeCodigoBarras" que recibe como argumento la ruta de un archivo de texto, y retorna datos demográficos contenidos en la cédula de
identidad separados por comas(,). El archivo de texto debe contener
la lectura binaria de los 700 bytes contenidos en el código PDF417 que compone la cédula de identidad.

He probado de todas maneras, formas , pero veo que no , seria posible tratar de hacer un pequeña aplicacion en C y talvez aplicarla en fivewin XH y provar..


Agradecieria cualquier ayuda esto esta fuera de mi alcanze.

ya le puse Pascal y no funciono da mismo error
/***********************************************
#include "fivewin.ch"
#include "dll.ch"
#include "Constant.ch"

static nHandle

Function Lector()

* Public oCedulatext := ""C:\proyectos\listbox\Bin\lecturas\lectura1.bin")

Public oCedulatext := "C:\proyectos\listbox\Bin\lecturas\lectura1.bin"

nHandle := Loadlibrary("BarCodeReader.dll")


?? LeeCodigoBarras(oCedulatext)

FreeLibrary(nHandle)

return nil

DLL FUNCTION LeeCodigoBarras(oCedulatext AS LPSTR) AS LPSTR PASCAL LIB nHandle

Error que dice es

MICROSOFT VISUAL C++ RUNTIME LIBRARY
RUNTIME ERROR ¡¡¡
Cual ayuda agradecieria.

Garcias desde ya.

[Antonio Linares]

Solo por asegurarnos, has comprobado la existencia del fichero ?

MsgInfo( File( oCedulatext ) )

Puede parecer una tonteria, pero en esas tonterias se esconden los bugs

[Antonio Linares]

Comprueba tambien que la DLL se cargue bien:

MsgInfo( nHandle )

[Antonio Linares]

Y por último, como tu mismo has comentado, habria que probar la función en C directamente, para asegurarnos de que no haya algún error en alguna parte.

[Antonio Linares]

He probado la función desde C y falla igualmente (GPF), y leyendo lo que comentas observo esto:

"El archivo de texto debe contener la lectura binaria de los 700 bytes"

Como se explica que tu fichero lectura1.bin mida 291 bytes ???

Imagino que por eso da el GPF