Coleta de CPF no PinPad, travando em Produção

[Andrei Ricardo]

Bom dia pessoal,

Me desculpem se abri algum tópico duplicado, mas procurei em todo fórum e não encontrei ninguém com este mesmo problema que eu.

Estou tentando implementar a captura de CPF pelo Pinpad mas estou enfrentando problemas em ambiente de produção.

Fiz todo processo de implementação utilizando o ambiente de homologação como Simulador Sitef da Software Express e funcionou tudo certinho, o sistema captura o CPF e traz tudo OK.

Quando coloco meu sistema para rodar em produção nos meus clientes, começa a travar a aplicação.
Maioria dos meus clientes utilizam o TEF Nuvem da Skytef. 

Analisaram LOG da Clisitef, dizem que com a DLL está tudo correto e o problema está no meu sistema. 
Entrei em contato com eles mas eles teimam em dizer que lá funciona e tenho que deixar meu sistema igual ao exemplo que eles me mandaram, ou voltar a utilizar o Delphi 7 (que é inviável pra mim).

Alguém mais aqui teve problema igual ao meu?
Poderia me ajudar a resolver meu problema?
Já até atualizei as DLLs da Clisitef para versão 7.0.116.1.r1 mas mesmo assim não funciona, fica travando.

 

Desde já agradeço a todos.

[Juliomar Marchetti]

Bom dia.

está usando o ACBrTEFD e o método implementado nele?

consegue ver se a assinatura do metodo está igual ao exemplo que eles mandaram?

[Andrei Ricardo]

Bom dia Juliomar, 

Estou utilizando sim o ACBrTEFD como o método implementado no ACBrTEFDCliSiTef.

A assinatura do exemplo deles está diferente da assinatura no ACBrTEFDCliSiTef.

A deles estão assim: 

fClienteObtemDadoPinPadDiretoEx: function(lpcChaveAcesso: PChar; lpcChaveSecreta: PChar; lpcEntrada: PChar;
      lpcSaida: PChar): integer; stdcall;

function ClienteObtemDadoPinPadDiretoEx(sChaveAcesso: ANSIstring; sChaveSecreta: ANSIstring): ANSIstring;

No ACBrTEFDCliSiTef esta assim:

xObtemDadoPinPadDiretoEx: function(ChaveAcesso: PAnsiChar; Identificador: PAnsiChar; Entrada: PAnsiChar; var Saida: array of Byte): Integer;
     {$IFDEF LINUX} cdecl {$ELSE} stdcall {$ENDIF};
   
function ObtemDadoPinPadDiretoEx(TipoDocumento: Integer; ChaveAcesso: PAnsiChar;
       Identificador: PAnsiChar): AnsiString;   

 

Já tentei alterar o ACBrTEFDCliSiTef para ficar igual do exemplo deles, mas nada de funcionar.

 

Obs: Estou utilizando o Delphi 10.3.3 Rio

 

[Juliomar Marchetti]

Seria preciso modificar e testar, como a sitef não disponibiliza código para testar teria que você compatibilizar as chamadas do ACBrTEFD e testar

[Andrei Ricardo]

Boa tarde, 

Novamente insistindo um suporte como pessoal da Skytef, eles me orientaram como chamar corretamente a função da DLL e parar este travamento.

Fiz a implementação no ACBrTEFDCliSiTef, testei e funcionou corretamente.

Segue anexo minha contribuição para a comunidade.

 

Moderadores, favor fechar este tópico.

E novamente obrigado pela ajuda de sempre.

ACBrTEFDCliSiTef.pas

 

Editado 27 Maio, 2020 por Andrei Ricardo

[Daniel Simoes]

Fiquei um pouco confuso, pois existem diferenças significativas na sua Unit, em relação a Unit atual no SVN...

Existem na sua Unit, dois métodos para captura de dados no teclado... qual delas é a funcional ? Seria essa ?

     function ObtemDadoPinPad(TipoDocumento: Integer; ChaveAcesso: PAnsiChar;
       Identificador: PAnsiChar; out Resultado: String): Boolean;

 

[Andrei Ricardo]

Oh Daniel me desculpe, esta função ObtemDadoPinPad fiz para testar a implementação mas acabei esquecendo de remover ela antes de postar a Unit aqui.

Já corrigi a Unit e segue abaixo.

 

ACBrTEFDCliSiTef.pas

[Daniel Simoes]

Enviei ajustes ao SVN, baseado em suas sugestões... Também enviei em conjunto o refactoring que venho trabalhando...

Citar

-- ACBrTEFDCliSitef, ACBrTEFCliSiTefComum --
[*] Refactoring, movendo toda carga de DLL e uso da API do SiTef, para
    ACBrTEFCliSiTefComum
[+] Novas propriedades, para permitir o uso do método "CDP"
     property PinPadChaveAcesso: AnsiString
     property PinPadIdentificador: AnsiString
[+] Método "TACBrTEFDCliSiTef.CDP", implementado, em modo de compatibilidade.
[*] Simplificação na implementação do método "ObtemDadoPinPadDiretoEx"
    (por: DSA)