Variable del Tipo Byte en Xailer

[Michael Pavlich]

Como se puede hacer para utilizar una Variable del Tipo Byte en Xailer
************************************************************ *****En Xailer - Importando el Active La Clase queda asi :
CLASS CDFP FROM TOcx
CDFATT Object
PROPERTY cCLSID INIT "fppfrintr.FKATT.1"
PUBLISHED:
etc..
PUBLIC:
METHOD GetUser( nMachine, nuser, nindex, @nTmpData, @nTmpLength ) as
logical ID 15
METHOD GetTime( nMachine, @nYear, @nMonth, @nDay, @nHour, @nMinute,
@nSecond ) as logical ID 15
etc...
EndClass
************************************************
Un pequeño ejemplo del uso
*******************************************
CLASS TManhuella FROM TForm
COMPONENT oCDFP
METHOD mExtraehora()
METHOD mExtraehuella()
ENDCLASS
Method : mExtraehuella()
Local nMaquina:=1,nUser:=1,nHuella:=1, nTmpLength :=0
//Como defino : nTmpData como variable tipo Byte
//Equivalente a la instruccion VB (Dim tmpData(1024) As Byte)
//Necesito pasarla como variable contenedora
WITH OBJECT :: oCDFP := CDFP:New(SELF)
:create()
END
if ::oCDFP: GetUser( nMaquina, nuser, nindex, @nTmpData, @nTmpLength )
Msginfo ("Extraccion Correcta ")
else
msginfo("fallo ")
endif
Return nil
************************************************************ ************
Method : mExtraehora() ( Funciona perfectamente )
Local nMaquina:=1,nyear:=0,nMes:=0,nDia:=0,nMinuto:=0,nSegundo:=0
WITH OBJECT :: oCDFP := CDFP:New(SELF)
:create()
END
if ::oCDFP:GetTime( nMaquina, @nYear, @nMes, @ndia, @nHora, @nMinuto,
@nSegundo )
Msginfo ("Extraccion Correcta ")
Nota la funcion trabaja perfectamente
else
msginfo("fallo ")
endif
Return nil
************************************************************ **********************[/size][/size][/size][/font][/font][/f ont]
ADJUNTO UNA MUESTRA EN CODIGO VISUAL BASIC
************************************************************ ************************
Function GetUser
En Visual Basic :
VARIANT_BOOL GetUser([in] LONG nMachine, [in] LONG nUser, [in] LONG nIndex,
[in,out] BYTE* TmpData, [in,out] LONG *TmpLength);
[Proposito] : Extraer datos de Usuario y Huella Digital
[Parametros]
nMachine
Numero de dispositivo
nUser
Numero de Usuario.
nIndex
Numero de Huella, rango 0-9 .
TmpData
(The Byte array of the fingerprint template.) -- (Huella Digital) Como se
hace para Xailer??
TmpLength
Longitud del tamaño de la huella
[Return Value]
Retorna Verdadero si fue correcto , o Falso si no hay dato
[Ejemplo] ( En Visual Basic )
Dim dwEnrollNumber
Dim nIndexIndex
Dim tmpData(1024) As Byte
Dim tmpLength As Long
Dim nMachine
nuser = 1
nindex = 0
nmachine = 1
// CDFP( Es la Clase )
CDFP.GetUser nMachine, nuser, nIndex, tmpData(0), tmpLength

[ignacio]

//Equivalente a la instruccion VB (Dim tmpData(1024) As Byte)
Por lo que comenta realmente no es una variable del tipo byte, sino más bien una matriz de tipo byte. En este caso lo más sencillo es que lo trate como una simple cadena o buffer. Algo así­:
METHOD GetUser( nMachine, nuser, nindex, @cBuffer, @nTmpLength )
FUNCTION ...
cBuffer := Space( 1024 )
MiObj:GetUser( ..,..,..,@cBuffer, .. )
Un saludo