Digital persona 4500 - Forum de discussion

forum.acam.ca

Chargement en cours

Un instant svp...

Les Forums

Programmation avancée

Digital persona 4500

Message envoyé le 21-12-2023 par tototo (Tunisie)

Bonjour SVP qui travaillé sur Digital persona 4500 fingerprint reader sur windev, j'ai les codes source sur VB.net et C# mais j'ai pas pu le convertir ver windev.
qui peu m'aider SVP

Message envoyé le 01-01-2024 par rsolve (BR)

click Bot1

gnHinst=ChargeDLL("grfinger.dll")
gnRetorno=AppelDLL32("GrFinger.dll","_GrInitialize@0")
gnContexto=0
gnRetorno=AppelDLL32("grfinger.dll", "_GrCreateContext@4",&gnContexto)
gnRetorno=AppelDLL32("grfinger.dll","_GrCapInitialize@4",&Sensores)
BOT_ImpDigitalAtiv..State=Grayed
BTN_Salvar..Etat=Grisé
BTN_Confirmar..Etat=Grisé
gnfase=1

IMG_Imagebio1..Value=""
IMG_Imagebio2..Value=""

**********
PROCEDURE Sensores(lnEnder,lnIdevento)

LOCAL
     retorna est un entier
     sLeitor est un chaîne 10

sLeitor=ChaîneRécupère(lnEnder,crAdresseASCIIZ)
gsLeitor1=sLeitor
SI lnIdevento=21 ALORS


          retorna= AppelDLL32("grfinger.dll","_GrCapStartCapture@12",sLeitor,&Digital,&Imagem)
          SI retorna=0 ET gnfase=1 ALORS
               LIB_msg="COLOQUE O DEDO NO LEITOR"
          FIN
FIN

SI lnIdevento=20 ALORS


       retorna= AppelDLL32("grfinger.dll","_GrCapStopCapture@4",sLeitor)
        LIB_msg= " Desconectado"

FIN

********
PROCEDURE Digital(lnender,lnidevento)
LOCAL
nRetorna est un entier
dLeitor est un chaîne 10

dLeitor=ChaîneRécupère(lnender,crAdresseASCIIZ)

SI lnidevento=11 ALORS

          LIB_msg="CAPTURA CONCLUÍDA. "
          SI gnfase=1
             BTN_Confirmar..Etat=Actif
           // BTN_Captura..etat=grise
          SINON
              BTN_Confirmar..Etat=Grisé
          FIN

FIN
SI lnidevento=10 ALORS


FIN

*****************
PROCEDURE Imagem(lnender,lnlargura,lnaltura,lsimagem,lnresolucao)
LOCAL
     nRetornaI est un entier
     sleitor est une chaîne
     snome est une chaîne //nome da imagem para salvar
     nFormato est un entier
     nImagem est un entier
     nLargura est un entier
     nAltura est un entier
    bLAchou est un booléen
    nLScore est un entier
     ntemptam est un entier
     nresol est un entier
    sSdia est une chaîne
nImagem=lsimagem
nLargura=lnlargura
nAltura=lnaltura
nresol=lnresolucao
ntemptam=1000
nFormato=501


sleitor=ChaîneRécupère(lnender,crAdresseASCIIZ)
SI gnfase=1
snome=sleitor+".bmp"
SINON
     snome=sleitor+"b.bmp"
FIN


nRetornaI=AppelDLL32("GrFinger.dll","_GrCapSaveRawImageToFile@20",nImagem,nLargura,nAltura,snome,nFormato)

SI gnfase=1 ALORS
     IMG_Imagebio1..Valeur=""

IMG_Imagebio1..Valeur=snome
SINON
      IMG_Imagebio2..Valeur=""
      IMG_Imagebio2..Valeur=snome
FIN

SI gnfase=1
// nretornaI=AppelDLL32("GrFinger.dll","_GrExtract@28",lsimagem,nlargura,naltura,nresol,&gstempla,&ntemptam,gncontexto)
    nRetornaI=AppelDLL32("GrFinger.dll","_GrExtract@28",nImagem,nLargura,nAltura,nresol,&gsTempla,&ntemptam,gnContexto)
SINON
   nRetornaI=AppelDLL32("GrFinger.dll","_GrExtract@28",nImagem,nLargura,nAltura,nresol,&gsTempla2,&ntemptam,gnContexto)
   nRetornaI=AppelDLL32("GrFinger.dll","_GrIdentifyPrepare@8",&gsTempla2,gnContexto)
     gsTempFile=gsTempla
     nRetornaI=AppelDLL32("GrFinger.dll","_GrIdentify@12",&gsTempFile,&nLScore,gnContexto)
     SI nRetornaI=1 ALORS
          LIB_msg="DIGITAIS COINCIDENTES"
          BTN_Salvar..Etat=Actif
          BTN_Salvar..Libellé=""
          //BTN_Captura..ETAT=Grisé
          BTN_Confirmar..Etat=Grisé
        LIB_Salvar..Visible=Vrai
     SINON
          BTN_Confirmar..Etat=Grisé
          //BTN_Captura..Etat=Actif
          LIB_msg="AS MINÚCIAS CAPTURADAS NÃO SÃO IDÊNTICAS "
     FIN

FIN

*********

Notes:
only works until windev 18. Don´t know why
2007 Griaule SDk

Message envoyé le 06-01-2024 par javierlome (Mexique)

Bonjour, votre code est incomplet

sleitor=GetString(lnender,

Pouvez-vous compléter le code pour tester si je peux le faire fonctionner dans Windev 25

Message envoyé le 16-01-2024 par toto3d (Tunisie)

Salut,

Voila le code source+librerie dll+documentation en C#

SVP ya quelqu'un qui peu le convertir ver windev

https://www.mediafire.com/file/p0t80qptkw3o6iz/CSHARP+LIB+DOC.zip/file

Merci d'avance

Message envoyé le 17-01-2024 par popoy (France)

Salut toto3d,
Regarde cette page :
https://doc.windev.com/fr-FR/?2012008
Mais j'avais cru comprendre que ce n'était pas du C#
Faudrait savoir.

Pour répondre à ce message vous devez être membre

Entrée membre Enregistrer

	Retour	© 1996-2024 forum.acam.ca