topic-38374

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

Integrar SDK
Posted: Tue Jan 21, 2020 06:23 PM

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/Downloads/SDK#prettyPhoto

LEANDRO AREVALO

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

xmanuel

Posts: 817

Joined: Sun Jun 15, 2008 07:47 PM

Re: Integrar SDK
Posted: Tue Jan 21, 2020 10:57 PM

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.

______________________________________________________________________________

Sevilla - Andalucía

leandro

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

Re: Integrar SDK
Posted: Wed Jan 22, 2020 02:49 PM

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,

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Integrar SDK
Posted: Wed Jan 22, 2020 03:55 PM

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 (fw): Select all Collapse

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.

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

albeiroval

Posts: 400

Joined: Tue Oct 16, 2007 05:51 PM

Re: Integrar SDK
Posted: Wed Jan 22, 2020 10:19 PM

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

Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com

leandro

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

Re: Integrar SDK
Posted: Thu Jan 23, 2020 10:14 AM

Cesar, Albeiro, gracias por responder.

Albeiro, me puedes explicar un poco mas sobre el tema de hacer el wrapper? se debe compilar? :shock:

De antemano gracias

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

albeiroval

Posts: 400

Joined: Tue Oct 16, 2007 05:51 PM

Re: Integrar SDK
Posted: Thu Jan 23, 2020 01:21 PM

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 (fw): Select all Collapse

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() ); 
}

Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com

FiveTech Support Forums

Continue the discussion