ACBrLibAbecsPinpad - Erro ao executar metodo AbecsPinpad_GCD

[UPDI Engenharia de Sistema]

Boa Tarde assim como conversado no Discord, ao componente gera erro ao executar este método, alguns outros métodos estão funcionando normalmente.

Declaração:

Private Declare Function AbecsPinpad_GCD _
                Lib "ACBrAbecsPinpad32.dll" (ByVal aMSGIDX As Integer, ByVal aTimeOut As Integer, sResposta As String, esTamanho As Integer) As Long

 

Em testes ao alterar a declaracao, esTamanho para Long, os dados digitados do pinpad ja aparecem no log, mas o sistema fecha.

Private Declare Function AbecsPinpad_GCD _
                Lib "ACBrAbecsPinpad32.dll" (ByVal aMSGIDX As Integer, ByVal aTimeOut As Integer, sResposta As String, esTamanho As Long) As Long

Log, como Integer:

Log alterado para LONG:

 

 

[antonio.carlos]

25 minutos atrás, UPDI Engenharia de Sistema disse:

Boa Tarde assim como conversado no Discord, ao componente gera erro ao executar este método, alguns outros métodos estão funcionando normalmente.

Declaração:

Private Declare Function AbecsPinpad_GCD _
                Lib "ACBrAbecsPinpad32.dll" (ByVal aMSGIDX As Integer, ByVal aTimeOut As Integer, sResposta As String, esTamanho As Integer) As Long

 

Em testes ao alterar a declaracao, esTamanho para Long, os dados digitados do pinpad ja aparecem no log, mas o sistema fecha.

Private Declare Function AbecsPinpad_GCD _
                Lib "ACBrAbecsPinpad32.dll" (ByVal aMSGIDX As Integer, ByVal aTimeOut As Integer, sResposta As String, esTamanho As Long) As Long

Log, como Integer:

Log alterado para LONG:

 

 

Foi criada uma TK para analise do caso #TK-5841..

Nos testes que fiz com o programa exemplo em C# e Java, não obtive problemas..

Classe que tenho implementada aqui é esta:
ACBrAbecsPinpad.cls

No momento estou criando o programa exemplo para VB6.. então logo devo fazer os testes.. e te dou um retorno.

[antonio.carlos]

56 minutos atrás, UPDI Engenharia de Sistema disse:

Boa Tarde assim como conversado no Discord, ao componente gera erro ao executar este método, alguns outros métodos estão funcionando normalmente.

Declaração:

Private Declare Function AbecsPinpad_GCD _
                Lib "ACBrAbecsPinpad32.dll" (ByVal aMSGIDX As Integer, ByVal aTimeOut As Integer, sResposta As String, esTamanho As Integer) As Long

 

Em testes ao alterar a declaracao, esTamanho para Long, os dados digitados do pinpad ja aparecem no log, mas o sistema fecha.

Private Declare Function AbecsPinpad_GCD _
                Lib "ACBrAbecsPinpad32.dll" (ByVal aMSGIDX As Integer, ByVal aTimeOut As Integer, sResposta As String, esTamanho As Long) As Long

Log, como Integer:

Log alterado para LONG:

 

 

Realizei alguns testes com essa classe que anexei, usando o VB6.. também não obtive problemas no uso do método..


Veja trecho do Log:

08/08/24 18:55:14:929 - AbecsPinpad_Ativar
08/08/24 18:55:14:930 - Travar
08/08/24 18:55:15:089 -    SetRetorno(0, )
08/08/24 18:55:15:089 - Destravar
08/08/24 18:55:16:343 - AbecsPinpad_GCD(22,60 )
08/08/24 18:55:16:344 - Travar
08/08/24 18:55:22:649 -    MoverStringParaPChar. StrLen:43, BufLen:1024
08/08/24 18:55:22:649 -    SetRetorno(0, [RespostaGCD]
RespostaGCD=280591
STAT=0
)
08/08/24 18:55:22:658 - Destravar
08/08/24 18:55:25:784 - LIB_Finalizar
08/08/24 18:55:25:784 - Finalizar

Não ocorreu o fechamento da aplicação.. método foi chamado corretamente..

Olhando a chamada do método que você escreveu, me parece um pouco diferente do que te enviei..
faça um teste com a classe que anexei, veja se ainda ocorre o mesmo comportamento de fechar aplicação e etc.

[UPDI Engenharia de Sistema]

ok, vou verificar e posiciono

 

[UPDI Engenharia de Sistema]

Boa Tarde, Resolvido utilizando a classe que me enviou. Muito Obrigado.

[antonio.carlos]

2 minutos atrás, UPDI Engenharia de Sistema disse:

Boa Tarde, Resolvido utilizando a classe que me enviou. Muito Obrigado.

Obrigado por avisar ! 
Qualquer novidade só reportar.
Nos próximos dias devo estar disponibilizando um exemplo para o VB6 no SVN.

[antonio.carlos]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.