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 ?