Revisa esta dll e de fabrica ACR120U.dll
Function Main3()
local cVersion := SPACE(40) ,Puerto:=0
PUBLIC hDLL := LoadLibrary("libreriacreadaDLL")
?? iLeerDatosBono(Puerto,cVersion)
MsgInfo( cVersion )
FreeLibrary( hDLL )
return nil
DLL FUNCTION iLeerDatosBono( cResultA AS LPSTR , cResultB AS LPSTR ) AS LONG LIB "libreriacreeada.DLL"
/*
Leer Datos del Bono cargado en la tarjeta
FUNCION: int iLeerDatosBono(short sUsbPort,char *buffer_datos)
DESCRIPCION: Lee los Datos del bono tipo monedero de la tarjeta
IN: - shPuertoUSB: Num del puesto usb del lector.
OUT:- *buffer_datos: buffer de salida compuesto por los siguientes datos (sep
iCodBono1: Codigo del bono vigente (0=sin bono)
Estado1: Estado del bono (0-Activo/1-Agotado/2-Caducado/3-Inactivo
iSaldo: Saldo del bono
iViajesSer:Contador viajes por servicio para el bono
iViajesDia:Contador viajes por dia para el bono
Ejemplo Uso:
res=iLeerDatosBono(0,buffer);
. Leer Historico de uso de los bonos
*/
↧