Problemas biometria Sdk 2009 Griaule

[marca]

#Include "FiveWin.ch"
#Include "grFinger.ch"
**************************************//***************************************
FUNCTION BuscaDigital( cQualDedo , oImagemDedo )
**************************************//***************************************
LOCAL oDlgActiveX
LOCAL oFoto
LOCAL cFoto := oPub:wPathBmp + "DigitalVazia.bmp"
LOCAL cMyContextID := "0"
PRIVATE lEmOperacao := .F.

DEFINE DIALOG oDlgActiveX RESOURCE "SV_DIGITAL" TITLE "Capturar Digital" // FONT oWnd:oFont ICON oPub:oIconeSv BRUSH oPub:oBrushS TRANSPARENT

REDEFINE BITMAP oFoto ID 900 OF oDlgActiveX FILENAME cFoto ADJUST
REDEFINE BUTTON oBt ID 950 OF oDlgActiveX ACTION ( oDlgActivex:End() )

ACTIVATE DIALOG oDlgActiveX CENTERED ON INIT ( oDlgActiveX:lHelpIcon := .F. , GrFingerInitialize( oDlgActiveX ,oFoto ,oImagemDedo ,cMyContextID , cQualDedo ) ) ;
VALID GrFingerDestroyContext( cMyContextID )


**************************************//***************************************
STATIC FUNCTION GrFingerInitialize( oDlgActiveX ,oFoto ,oImagemDedo ,cMyContextID , cQualDedo )
**************************************//***************************************
LOCAL nErr,oFinger

IF IsActiveX("GrFingerX.GrFingerXCtrl.1")

oFinger := TActiveX():New( oDlgActiveX, "GrFingerX.GrFingerXCtrl.1",0,0,.2,.2)
oDlgActiveX:oClient = oFinger
nErr = oFinger:Do("Initialize")
If nErr = 0

oFinger:Do("CapInitialize")
oFinger:Do("CreateContext", cMyContextID )
oFinger:bOnEvent = { | event, aParams, pParams | EventInfo( event, aParams , oFinger ,oFoto ,oImagemDedo ,oDlgActiveX ,cMyContextID , cQualDedo ) }

ELSE

MSGSTOP("Não foi encontrado o controle activex GrFingerX.GrFingerXCtrl.",;
"Inicialização abortada...")
RETURN .F.

ENDIF

ELSE

MSGStop("Para utilização do Leitor Biométrico é necessário" + CRLF +;
"a instalação de seu SDK Gfinger","ATENÇÃO","STOP")

ENDIF

RETURN .T.

**************************************//***************************************
STATIC FUNCTION GrFingerDestroyContext( cMyContextID )
**************************************//***************************************
LOCAL nErr

oFinger:Do( "CapFinalize" )
oFinger:Do( "Finalize" )
oFinger:Do( "DestroyContext", MyContextID )

RETURN .T.

**************************************//***************************************
FUNCTION EventInfo( event, aParams , oFinger ,oFoto ,oImagemDedo ,oDlgActiveX ,cMyContextID , cQualDedo )
**************************************//***************************************
LOCAL cEvent := cValToChar( event )
LOCAL cTemplate, nTemplateSize, nRet


IF .NOT. lEmOperacao

IF cEvent == "SensorPlug" .and. aParams[1] != "File"

oFinger:Do("CapStartCapture",AllTrim(aParams[1]))

ENDIF


IF cEvent == "SensorUnplug"

oFinger:Do("CapStopCapture",AllTrim(aParams[1]))

ENDIF


IF cEvent == "ImageAcquired"

lEmOperacao := .T.
FERASE( oPub:wPathBmp + "Dedo.BMP" )


nTemplateSize := 10000
cTemplate := SPACE(10000)


*** Usando somente a Sintax do ActiveX


Em qualquer das sintax da o problema de vir zerado
* Assim funciona
* nIni := oFinger:ExtractEx( cImagem, aParams[2], aParams[ 3], 500, cTemplate, @nTemplateSize, 0, GR_FORMAT_ISO )

* nIni := oFinger:DO("Extract", aParams[4], aParams[2], aParams[ 3], 500, cTemplate, @nTemplateSize, cMyContextID )
nIni := oFinger:Extract( aParams[4], aParams[2], aParams[ 3], 500, cTemplate, @nTemplateSize, cMyContextID )

**** Aqui da erro o Len(AllTrim(cTemplate)) da Zero
? "Extract",nIni,Len(AllTrim(cTemplate))
* Ou desta maneira
* nIni := oFinger:DO("ExtractEx", aParams[4], aParams[2], aParams[ 3], 500, cTemplate, @nTemplateSize, 0 , GR_FORMAT_DEFAULT ) // GR_FORMAT_ANSI
nIni := oFinger:ExtractEx( aParams[4], aParams[2], aParams[ 3], 500, cTemplate, @nTemplateSize, cMyContextID , GR_FORMAT_DEFAULT ) // GR_FORMAT_ANSI
? "ExtractEx",nIni,Len(AllTrim(cTemplate))

nIni := oFinger:Do("CapSaveRawImageToFile",aParams[ 4],aParams[ 2], aParams[ 3], oPub:wPathBmp + "Dedo.BMP",GRCAP_IMAGE_FORMAT_BMP)
*? "CapSaveRaw",nIni

oFoto:LoadBmp( oPub:wPathBmp + "Dedo.BMP" ) // cargo la imagen guardada en la anterior línea
oFoto:Refresh()

ret := oFinger:DO("IdentifyPrepare", cTemplate, cMyContextID )
*** Devido a isso da erro -5
? "IdentifyPrepare",ret

*ret := oFinger:Identify( cTemplate, @nIdScore , 0 )
ret := oFinger:DO("Identify", cTemplate, @nIdScore , cMyContextID )
? "Identify",ret


*** Ou usando a sintax das Dlls abaixo.

cLibFinger := LoadLibrary("GrFinger.dll")
GrInitialize()

TemplateSize := 10000
cTemplate := SPACE(10000)
* Assim com o @cTemplate
ret:= GrExtract( aParams[ 4], aParams[ 2], aParams[ 3], aParams[ 5], @cTemplate, @nTemplateSize, 0 )
Assim sem cTemplate
ret:= GrExtract( aParams[ 4], aParams[ 2], aParams[ 3], aParams[ 5], @cTemplate, @nTemplateSize, 0 )

select("Personal")
APPEND BLANK
IF Personal->(rlock())
REPLACE Huella WITH cTemplate
Personal->(dbcommit())
Personal->(dbunlock())
ENDIF
GO TOP

nIdScore := 0
WHILE !eof()

GrIdentifyPrepare( cTemplate, 0 )
nId:= GrIdentify( Personal->Huella, @nIdScore , 0 )
? nId é sempre 0 Zero
IF nId = 1
// Ok
msgwait("Digltal encontrada!","Atenção",1)
ELSE
msgwait("Digital não encontrado!","Atenção",1)
ENDIF

** oU
nId:= GrVerify( cTemplate , Personal->Huella, @nIdScore , 0 )
? "nId",nId
Skip
ENDDO


GrFinalize()
FreeLibrary(xLib)
ENDIF

ENDIF
RETURN NIL


DLL32 FUNCTION GrInitialize() AS LONG PASCAL FROM "_GrInitialize@0" LIB xLib
DLL32 FUNCTION GrFinalize() AS LONG PASCAL FROM "_GrFinalize@0" LIB xLib
DLL32 FUNCTION GrExtract( @rawImage AS LONG, width AS LONG, height AS LONG, res AS LONG, ttpt AS LPSTR, @ttptSize AS LONG , context AS LONG ) AS LONG PASCAL FROM "_GrExtract@28" LIB xLib
DLL32 FUNCTION GrIdentifyPrepare( ttpt AS LPSTR, context AS LONG ) AS LONG PASCAL FROM "_GrIdentifyPrepare@8" LIB xLib
DLL32 FUNCTION GrIdentify( @ttpt AS LPSTR, @Idscore AS LONG, context AS LONG ) AS LONG PASCAL FROM "_GrIdentify@12" LIB xLib
DLL32 FUNCTION GrVerify( ttpt AS LPSTR, qtpt AS LPSTR, @Idscore AS LONG, context AS LONG ) AS LONG PASCAL FROM "_GrVerify@16" LIB xLib



De maneira nenhuma vai.
Alguem poderia me orientar onde estou errando ?