1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Acesso métodos PcLink6

Discussão em 'Progress 4GL' iniciado por rodrigo.toaldo, Fevereiro 24, 2017.

  1. rodrigo.toaldo

    rodrigo.toaldo Membro Participativo

    Prezados, preciso desenvolver uma interface de comunicação com a Balança 9091 Toledo utilizando a linguagem Progress e também a DLL fornecida pela fabricante, PcLink6.dll para acessar a placa Firex pela rede o qual esta conectada.

    Gostaria de saber, se alguém já faz algo semelhante usando essa tecnologia e pode me fornecer algumas dicas ou exemplo?

    Agradeço a atenção.
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    eu fiz pra usar uma dll de biometria, acredito que a logica seja a mesma, me passa o seu e-mail que eu te mando o de biometria pra vc ter um inicio de idéia.
  3. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Seria legal postar o código aqui visto que facilitaria futuras dúvidas relacionadas.
  4. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Vamos ver .....
    Código:
    /*  ------------------------------------------------------------
        Programa .: grid2.utils.Biometria.CapturaVerifica.cls
        Autor ....: Richard Edgar - Imesul
        Data .....: 17/02/2016
        Descricao : Captura e verificacao de digitais
        ------------------------------------------------------------ */
        {grid2/error.i}
    
        class grid2.utils.Biometria.CapturaVerifica:
            define variable error       as ExceptionControl no-undo.
    
            define variable comHandle   as com-handle       no-undo.
            define variable dispositivo as com-handle       no-undo.
            define variable scanner     as com-handle       no-undo.
            define variable verificacao as com-handle       no-undo.
    
            define variable digitalOriginal    as character no-undo.
            define variable digitalVerificacao as character no-undo.
    
            constructor public CapturaVerifica():
                assign error = ExceptionControl:getInstance().
                desconectar().
            end constructor.
    
            destructor public CapturaVerifica():
                desconectar().
            end destructor.
    
            method public void conectar():
                create 'NBioBSPCOM.NBioBSP' comhandle.
    
                if not valid-handle(comHandle) then error:throwException('Biometria','Erro ao conectar','Leitor biometrico nÆo encontrado').
    
                assign dispositivo = comHandle:device
                       scanner     = comHandle:extraction
                       verificacao = comhandle:matching.
    
                if not valid-handle(dispositivo) then error:throwException('Biometria','Erro ao conectar','Leitor biometrico nÆo encontrado').
                dispositivo:open(255).
            end method.
    
            method private void desconectar():
                if valid-handle(dispositivo) then dispositivo:close(255).
    
                release object dispositivo no-error.
                release object scanner     no-error.
                release object verificacao no-error.
                release object comHandle   no-error.
            end method.
    
            method public character capturar():
                setDigitalOriginal('').
                scanner:Capture(0).
                if scanner:ErrorCode <> 0 then error:throwException('Biometria','Erro ao capturar digital','NÆo foi possivel capturar digital, tente novamente').
                setDigitalOriginal(scanner:TextEncodeFIR).
                return getDigitalOriginal().
            end method.
    
            method public logical capturar(campo as character):
                setDigitalVerificacao(campo).
                capturar().
                return verificar().
            end method.
    
            method public void setDigitalOriginal(campo as character):
                assign digitalOriginal = campo.               
            end method.
    
            method public character getDigitalOriginal():
                return digitalOriginal.
            end method.
    
            method public void setDigitalVerificacao(campo as character):
                assign digitalVerificacao = campo.
            end method.
    
            method public character getDigitalVerificacao():
                return digitalVerificacao.
            end method.
    
            method public logical verificar():
                verificacao:Verifymatch(getDigitalOriginal(), getDigitalVerificacao()).
                case int(verificacao:matchingResult):
                    when 1 then return true.
                    when 0 then return false.
                end case.
            end method.
    
            method public logical verificar(digitalOriginal as character, digitalVerificao as character):
                setDigitalOriginal(digitalOriginal).
                setDigitalVerificacao(digitalVerificacao).
                return verificar().
            end method.
        end class.
    
    
    ovneto curtiu isso.
  5. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    é no .zip eu coloco a DLL junto
  6. Cneves

    Cneves Membro Participativo

    @bootstrapmaster ,

    Consegue disponibilizar esse DLL para mim? quero fazer a leitura biometrica no Progress, mais não estou encontrando nada. cleytonricardo@gmail.com.

Compartilhe esta Página