ClassGriaule.zip

[marca]

Good afternoon

Someone could use this class?
If so can you give me an example?

https://bitbucket.org/fivetech/fivewin- ... riaule.zip

[Antonio Linares]

search.php?st=0&sk=t&sd=d&sid=0&keywords=griaule

[marca]

Antonio thank you,
WHAT more could realize is that no one managed to work
I could not run more le my way player no
FS-80 Reader

[marca]

http://forums.fivetechsupport.com/search.php?st=0&sk=t&sd=d&sid=0&keywords=griaule

Good morning everyone.
Linares, I've seen all these topics and 95% of them use ActiveX to make the connection and not the class that I mention above and examples that attempt to use the class are in error. I could already compile and make the class work and I can not operate the player with it. With the ActiveX class triggers more time to make the comparison of the images does not make right. With this class there is some trick to make the reader start? Is there any way to configure the reader? My player is the FS-80

[lucasdebeltran]

This class did not work at all.

[marca]

This class did not work at all.

Using the class if you want to start with the player. Already using activex as below starts over recorded digital comparing error in the bank to read the player. Could someone please help?
#include "FiveWin.ch"

STATIC oWnd
STATIC ttptSize
STATIC ttpt

FUNCTION Main()
Local oFingerX
public x:=0

cStatus:= Space(1000)

DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"

oFingerX = TActiveX():New( oWnd, "GrFingerX.GrFingerXCtrl")
oWnd:oClient = oFingerX
oFingerX:Do("Initialize")
oFingerX:Do("CapInitialize")
oFingerX:bOnEvent = { | event, aParams, pParams | EventInfo( event, aParams, pParams, oFingerX) }
ACTIVATE WINDOW oWnd VALID SalirHuella(oFingerX)


RETURN NIL

FUNCTION SalirHuella(oFingerX)

oFingerX:Do("CapStopCapture",sensor)
oFingerX:Do("CapFinalize")
oFingerX:Do("Finalize")

RETURN ( .T. )

FUNCTION EventInfo( event, aParams, pParams, oFingerX )
Local cEvent

cEvent := cValToChar( event )

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

--->>>>here starta
oFingerX:Do("CapStartCapture",sensor)


ENDIF

IF cEvent == "SensorUnplug"
oFingerX:Do("CapStopCapture",sensor)
ENDIF

IF cEvent == "ImageAcquired"

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


ttptSize = 10000
ttpt = SPACE(10000)

ret:= GrExtract( aParams[ 4], aParams[ 2], aParams[ 3], aParams[ 5], @ttpt, @ttptSize, 0 )

msginfo(ttpt, "dados")

if (x==0)
public cAntes:=ttpt
public x:=1
else


-----> Here error is always digital regardless of whatever
nIdScore:= 0
nId:= GrVerify( ttpt , cAntes, @nIdScore , 0 )
public cAntes:=ttpt

oWnd:cTitle(Time()+" "+Str(ret)+" "+Str(nId)+" "+Str(nIdScore))

endif

GrFinalize()
FreeLibrary(xLib)

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





you know how to do this in class ??
oFingerX class: From ( "CapStartCapture" sensor)

[Antonio Linares]

Marcelo,

you know how to do this in class ??
oFingerX class: From ( "CapStartCapture" sensor)

I don't understand your question

[marca]

Marcelo,

you know how to do this in class ??
oFingerX class: From ( "CapStartCapture" sensor)

I don't understand your question

I'm trying to use the Test.prg source class ClassGriaule.zip and my player does not start


cSensor := ""
oGriaulle := TGrFinger():New()
//cSensor := oGriaulle:GetSensor("Ftrn0001") ??????
oGriaulle:Initialize()
oEnrollCtx := oGriaulle:CreateContext()
oSearchCtx := oGriaulle:GetContext(0) // default context
oGriaulle:bSensorPlug := {|oSensor,cId| OnSensorPlug( oSensor , cId ) }
oGriaulle:bSensorUnplug := {|oSensor,cId| OnSensorUnPlug( oSensor , cId ) }
oEnrollCtx:StartEnroll()
oGriaulle:CaptureInit()







whereas using activex this is where the reader will flash asking digital

FUNCTION EventInfo( event, aParams, pParams, oFingerX )

oFingerX:Do("CapStartCapture","Ftrn0001")



How do to trigger the reader more at source test.prg from class ClassGriaule.zip ?

[marca]

Hello everybody, descupem me for more precise insistence solve it.
Anyone know the creator of the class ClassGriaule ?

[lucasdebeltran]

As I told you, in the past i tried the class. I could compile it, start the object, but functions to save the capture and compare do not work at all.

[marca]

Disappointingly.
For several other languages ​​have demos and there are several options with which to xHarbour nothing

[karinha]

https://code.google.com/archive/p/fivewin-contributions/downloads?page=9

[Lailton]

Hi Marca,

I told you, The solution is not so simple and ActiveX is not a good way to take.
Few years ago I did a procedure in C/C++ to work with it.

I sent you a demo my procedures, and How you see it works.

[lucasdebeltran]

Hello Marcelo,

Before purchasing any source from Laiton, please check in the forum how he treated his customers, particulary on Fiveweb.

Also, Griaule has changed so much from old versions....

[marca]

Hi Marca,

I told you, The solution is not so simple and ActiveX is not a good way to take.
Few years ago I did a procedure in C/C++ to work with it.

I sent you a demo my procedures, and How you see it works.

Hello Lailton.
The example that u sent me only activates the player and that I can do. My problem is in the comparison of templates. they all have the same value. I believe in your solution that has been corrected what I'm trying to solve is that with the personal help forum here without having to pay for it understood? If I can not have to look for something like your solution.