Usa una DLL

[Fernando Leal]

nHandle := HB_LibLoad( "UFScanner.DLL" )
¿Solo es para DLL creadas desde xailer?
Tengo un Biometrico BioMini de Suprema y los DLL para usar el lector no se
registran.
// Add Suprema UFScanner library (binSuprema.UFScanner.dll)
using browse tap in the Add References dialog
// Add following statements in the source
using Suprema
Quiero ver si este tipo de DLL se puede usar desde xailer
Saludos
Fernando Leal

[Fernando Leal]

Como información adicional.
La UFScanner.dll puede ser llamada desde
Visual C++
Visual Basic 6.0
Visual C#
Visual Basic .NET
Como dije, no hay que registrar la DLL
La pregunta en concreto es ¿Se puede usar este tipo de DLL con Xailer?
Gracias
Fernando

[jrcpoli-quitar]

Saludos:
Yo tengo un fichero que figura como una DLL pero que no es tal DLL
porque no sale en la lista de "importar activeX" por lo tanto lo que
hago es abrirlo con TOleAuto, lo uso para un aparato externo que recoge
datos.
para usarlo según las las peticiones que quiera hacer uso DATAS.
Por ejemplo.
** Instanciamos Licencia
::oLic := TOleAuto():New("GPSToolsXP.License")
::oLic:LicenseKey := "******************" // clave de licencia
* Instanciamos Versión
::oVer := TOleAuto():New("GPSToolsXP.GpsToolsVersion")
oSender:cText += " GpsToolsXp " + Str(::oVer:Major,1,0) + "." + ;
Str(::oVer:Minor,1,0) + "." + Str(::oVer:Revision,1,0) + "." + ;
Str(::oVer:Build,3,0)
//LogDisplay(::oVer:Major,::oVer:Minor,::oVer:Revision,::oVe r:Build)
*
** Instanciamos Posicion
::oPos := TOleAuto():New("GpsToolsXP.Position")
** Datos del sistema del 1
::oPos:Datum := Val(SubStr(::oDBCBSistema1:GetText(),1,2))
*
** Datos para la coordenada del 1
::oPos:SetLatitudeDMS(::oLa_Grados:Value,::oLa_Minutos:Value , ;
::oLa_Segundos:Value,SubStr(::oLa_Hemisf:GetText(),1,1))
::oPos:SetLongitudeDMS(::oLo_Grados:Value,::oLo_Minutos:Valu e,;
::oLo_Segundos:Value,SubStr(::oLo_Hemisf:GetText(),1,1))
*
******* Resultados *************
*
** Datos del sistema del 2
::oPos:Grid := Val(SubStr(::oDBCBSistema2:GetText(),1,2))
*

::oCoordX:Value := ::oPos:Easting
::oCoordY:Value := ::oPos:Northing
::oCBZona2:nIndex := Val(SubStr(::oPos:Zone,1,2))
Puede que tu DLL use un sistema parecido a este, en que cada una de las
instrucciones van dentro de la DLL y son accesibles instanciando una
llamada a través de TOleAuto():New(nombre de la DLL.método a utilizar)
Espero que te sirva.
José Ramón Castro.
El 28/12/2009 20:39, Fernando Leal escribió:
> nHandle := HB_LibLoad( "UFScanner.DLL" )
>
> ¿Solo es para DLL creadas desde xailer?
>
> Tengo un Biometrico BioMini de Suprema y los DLL para usar el lector no
> se registran.
>
> // Add Suprema UFScanner library (binSuprema.UFScanner.dll)
> using browse tap in the Add References dialog
> // Add following statements in the source
> using Suprema
>
>
> Quiero ver si este tipo de DLL se puede usar desde xailer
>
> Saludos
> Fernando Leal

[Fernando Leal]

Hola,
¿No tuviste que registrar esa DLL en la PC ?
Por que para usar
> ** Instanciamos Posicion
> ::oPos := TOleAuto():New("GpsToolsXP.Position")
Debiste de haber inicializado el DLL.
Gracias por contestar.
Fernando

[Fernando Leal]

Una será usar
hLib := LoadLibrary( "Suprema.UFScanner.dll" )
Pero
Dll Function UFS_Init() AS LONG PASCAL FROM "UFScanner" Lib cargadll
Esto ya no va.
La otra es usar
hLib := HB_LibLoad( "Suprema.UFScanner.dll" )
oObj := TOleAuto():New( PointerToInt( hLib ) )
ya que regresa un puntero,
pero da un bonito GPF

[nospam]

Fernando:
No es chamba de Xailer, xHarbour tiene la capacidad de usar las
funciones de cualquier DLL:
*Para cargar la DLL:
UFScanner := LoadLibrary("UFScanner")
* para definir las funciones:
IMPORT UFScanner FUNCTION <TIPO> NombreFuncion (parametro:Tipo,...)
IMPORT UFScanner FUNCTION <TIPO> NombreFuncion (parameto:Tipo....)
.....
* para liberar la DLL:
FreeLibrary(UFScanner)
Saludos
Rene Flores
http://www.ciber-tec.com
Leal escribió:
> Como información adicional.
>
> La UFScanner.dll puede ser llamada desde
>
> Visual C++
> Visual Basic 6.0
> Visual C#
> Visual Basic .NET
>
> Como dije, no hay que registrar la DLL
>
> La pregunta en concreto es ¿Se puede usar este tipo de DLL con Xailer?
>
> Gracias
> Fernando
>

[jrcpoli-quitar]

El 30/12/2009 21:26, Fernando Leal escribió:
> Hola,
>
> ¿No tuviste que registrar esa DLL en la PC ?
SI
>
> Por que para usar
>> ** Instanciamos Posicion
>> ::oPos := TOleAuto():New("GpsToolsXP.Position")
>
> Debiste de haber inicializado el DLL.
Con TOleAuto no hace falta en mi caso, que puede ser diferente al tuyo.
He estado mirando el manual que existe en esta dirección
http://www.suprema.co.za/pdf/pc/UFEngin ... eManual_V3. 0.pdf , que
no sé si es el que usas, si es este yo probarí­a registrando la dll en
Windows a hacer esto.
DATA oUFScanner
Local nScannerNumber := 0
::oUFScanner := TOleAuto():New("Suprema.UFScanner.dll")
nScannerNumber := ::oUFScanner:UFS_GetScannerNumber()
Es una idea, aunque puede que lo mejor sea probar como te ha dicho Rene
Flores.
>
>
> Gracias por contestar.
> Fernando
>
José Ramón Castro.

[Fernando Leal]

Hola,
Eso del IMPORT no me lo sabí­a,
Gracias
Fernando

[Fernando Leal]

En efecto, el toleauto no carga dll de esa manera.
Saludos
Fernando