Page 1 of 1
Integrar SDK
Posted: Tue Jan 21, 2020 6:23 pm
by leandro
Buenas tardes para todos,
En este momento me surge la necesidad de integrar a nuestra aplicación un SDK (Camaras Lectura Placas), con le fin de automatizar algunos procesos.
El proveedor de las cámaras HIKVISION, me hace entrega de archivos .dll y archivos .lib, alguien sabe por donde puedo arrancar? Como se debe iniciar un proyecto de estos? si tengo xharbour 32 bits el SDK también debe ser 32 bits?
De antemano gracias
Uno de los SDK se puede descargar en el siguiente link:
https://www.hikvision.com/es-la/Support ... rettyPhoto
LEANDRO AREVALO
Re: Integrar SDK
Posted: Tue Jan 21, 2020 10:57 pm
by xmanuel
Hola Leandro.
- Además de los archivos .dll y archivos .lib, tienes que tener un manual de todas las funciones que se incluyen en esa DLL donde se describa cada uno de los parámetros que recibe y lo que devuelven. Además se necesita el fichero .h donde se define el prototipo.
- Una vez tengas eso deberías de hacer wrappers de las funciones que vas a usar en tus programas.
- si tienes xharbour 32 bits el SDK también debe ser 32 bits.
Espero haberte ayudado.
Re: Integrar SDK
Posted: Wed Jan 22, 2020 2:49 pm
by leandro
Manuel, gracias por responder:
Me ayudaste bastante, pero me gustaría molestarte y saber si puedes publicar algo de código, ya que no se como se deben integrar los archivos dll, ni tampoco como manipularlos, se deben manejar como objetos?, como hago que funcionen desde nuestra aplicación?
De antemano gracias,
Re: Integrar SDK
Posted: Wed Jan 22, 2020 3:55 pm
by cmsoft
Hola Leandro:
Tal cual te comenta Manuel, lo mas importante es tener que funciones tiene la dll y que parametros hay que pasarle a dichas funciones..
Para que tengas una idea te tiro un poco de codigo que uso con una dll.
Code: Select all
METHOD New( nPort) CLASS TFiscal
LOCAL s := FI_VACIO
DEFAULT nPort := 1
::nHandler := CallDll32( "OpenComFiscal" , "WINFIS32.DLL" , nPort , 1 )
// Como ves aca, llamo a la funcion OpenComFiscal de la dll WINFIS32.DLL y le paso dos parametros, y el resultado de la funcion lo guardo en ::nHandler
::lStatusFiscal := .f.
::lStatusPrinter := .f.
::lStatusLogico := .f.
::aUltimaRta := {}
::nPort := nPort
::lClienteCargado := .f.
::cDescriptionError := ""
IF ::nHandler >= 0
CallDll32( "InitFiscal" , "WINFIS32.DLL" , ::nHandler )
CallDll32 ( "UltimaRespuesta" , "WINFIS32.DLL" , ::nHandler, @s )
// En este caso le paso un valor por referencia
::aUltimaRta := Fi_ConvertRta(s)
ELSE
::lStatusLogico := .t.
::cDescriptionError := "El impresor fiscal no esta conectado al puerto " + STR(nPort)
RETURN nil
ENDIF
RETURN Self
METHOD End() CLASS TFiscal
CallDll32( "CloseComFiscal" , "WINFIS32.DLL" , ::nHandler )
RETURN .t.
METHOD ErrorStatus() CLASS TFiscal
LOCAL s := FI_CONSULTAR_ESTADO
CallDll32 ( "MandaPaqueteFiscal" , "WINFIS32.DLL" , ::nHandler , s )
s := FI_VACIO
CallDll32 ( "UltimaRespuesta" , "WINFIS32.DLL" , ::nHandler, @s )
IF !empty(::aUltimaRta) .AND. LEN(::aUltimaRta) > 2
::GetErrors(::aUltimaRta[1],::aUltimaRta[2])
ELSE
::lStatusFiscal := .f.
::lStatusPrinter := .f.
ENDIF
RETURN ::lStatusFiscal .or. ::lStatusPrinter
Espero te sirva.
Re: Integrar SDK
Posted: Wed Jan 22, 2020 10:19 pm
by albeiroval
hola leandro.
Para este caso como lo comentan los otros colegas debes tener un manual descriptivo de las funciones,
y adicional a eso debes tener conocimiento de como hacer el wrapper de la libreria en C para que lo puedas usar
con harbour y fivewin.
Si necesitas mas informacion me puedes escribir a mi correo, albeiroval arroba gmail punto com
Re: Integrar SDK
Posted: Thu Jan 23, 2020 10:14 am
by leandro
Cesar, Albeiro, gracias por responder.
Albeiro, me puedes explicar un poco mas sobre el tema de hacer el wrapper? se debe compilar?
De antemano gracias
Re: Integrar SDK
Posted: Thu Jan 23, 2020 1:21 pm
by albeiroval
leandro.
El wrapper es envolver unas funciones echas en "C" o "C++" para que puedan ser compilados por Borland C (que es lo que uso en mi caso BCC) o Microsoft Visual C, ellos generan un archivo ".obj" el cual agregas tu proyecto.
Aqui un ejemplo :
Code: Select all
extern HINSTANCE hadleDll;
/*-------------------------------------
Variable para Controlar la Salida
del Magnetic Read
---------------------------------------*/
BOOL bExitReadMag;
//-------------------------------------//
HB_FUNC( MAG_OPEN )
{
if ( hadleDll != 0 )
{
MAGOPEN pFunc = (MAGOPEN) GetProcAddress( hadleDll, "MagOpen" );
if ( pFunc )
pFunc();
else
Msg( "Error Funcion Dll MagOpen" );
}
else
Msg( "No Encontro Archivo Dll" );
hb_ret();
}
//-------------------------------------//
HB_FUNC( MAG_CLOSE )
{
if ( hadleDll != 0 )
{
MAGCLOSE pFunc = (MAGCLOSE) GetProcAddress( hadleDll, "MagClose" );
if ( pFunc )
pFunc();
else
Msg( "Error Funcion Dll MagClose" );
}
else
Msg( "No Encontro Archivo Dll" );
hb_ret();
}
//-------------------------------------//
HB_FUNC( MAG_RESET )
{
if ( hadleDll != 0 )
{
MAGRESET pFunc = (MAGRESET) GetProcAddress( hadleDll, "MagReset" );
if ( pFunc )
pFunc();
else
Msg( "Error Funcion Dll MagClose" );
}
else
Msg( "No Encontro Archivo Dll" );
hb_ret();
}
//-------------------------------------//
HB_FUNC( MAG_SWIPED )
{
hb_retl( MagSwiped() );
}