Erro Qr Code

[Dionatan Santos]

Pessoal atualizei o ACBR e na impressão do meu NFCE esta dando o seguinte erro:

 

---------------------------

WJ Informática - SISCOM - PDV

---------------------------

 Erro ao calcular Hash do QR-Code

---------------------------

OK   

---------------------------

 

 

So que engracado que se eu fechar o sistema e abrir novamente ele nao da erro..

 

Fui mais afundo para ver o problema:

 

Access violation at address 100468DA in module 'libeay32.dll'. Read of address 

 

Isso acontece sempre quando imprimo o segundo cupom...

 

Uso o procedimento:

 

 with ACBrNFe1.NotasFiscais.Items[0].NFe do

    begin

        Memo1.Text :=

            NotaUtil.GetURLQRCode(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF,

            ide.tpAmb,

            procNFe.chNFe,

            cDest,

            Ide.dEmi,

            Total.ICMSTot.vNF,

            Total.ICMSTot.vICMS,

            procNFe.digVal, '000001', FrmPrincipal.edtIdToken.Text);

    end;

 

O erro acontece em ACBRNFeUtil.pas

em class function NotaUtil.GetURLQRCode(const AUF : Integer; AAmbiente : TpcnTipoAmbiente;

 

 

O que pode estar acontecendo? como dito anteriormente se fecho a aplicação e mando imprimir o cupom sai normal, mas se imprimo o segundo dae da o erro...

 

 

Valeu..

 

 

 

[cantelli.r]

Também estou tendo esse problema.

O erro ocorre na função "InternalDigest" da unit ACBrEAD.pas, no momento em que é chamada a função "EVP_DigestUpdate( @md_ctx, Memory, BytesRead ) ;", que está na unit "libeay32.pas"

 

Como o Dionatan comentou, na primeira impressão funciona perfeitamente. Ao mandar outra impressão, o problema aparece.

 

Tentei atualizar a dll com a última que vem ao baixar os fontes, mas o problema permanece.

[Juliomar Marchetti]

Não é isso!

é algum ponto está sendo liberado a dll mas não está saindo da memoria e após é feito o carregamento de novo!

[Dionatan Santos]

Ta mas e o que podemos fazer Juliomar... Ja atualizei fontes... e tudo mais... e nada...

[Juliomar Marchetti]

Ta mas e o que podemos fazer Juliomar... Ja atualizei fontes... e tudo mais... e nada...

A primeira coisa é debugar e tentar achar o ponto! ou o problema!

depois posta aqui que ajudamos! não tenho como ver agora pois estou trabalhando com outras coisas !

mas assim que possível vou dar uma olhada!

[André Ferreira de Moraes]

Deixe os componentes relacionados a NFe em um DataModule que seja criado na abertura do sistema e destruído apenas qdo o sistema for finalizado.

Não crie cópias do datamodule ou componente e nem adicione o mesmo em vários forms do seu projeto.

[Dionatan Santos]

Pessoal valeu pelas dicas.... Não sei se foi a melhor solução... Mas resolveu meus problemas...

 

Vejam na unit ACBRNfeUtil.pas

 

    if fsHashQRCode <> nil then

    begin

        try

            fsHashQRCode.FreeOnRelease;

        except

        end;

 

        try

            fsHashQRCode := nil;

        except

        end;

    end;

 

  // Passo 5 calcular o SHA-1 da string sEntrada

    if fsHashQRCode = nil then

        fsHashQRCode := TACBrEAD.Create(nil);

    try

        cHashQRCode := fsHashQRCode.CalcularHash(sEntrada + sToken, dgstSHA1);

    except

        raise Exception.Create('Erro ao calcular Hash do QR-Code');

    end;

 

Não deus mais erro e esta funcionando 100%...

 

Valeu...

[Karlo Uchoa]

Obrigado Dionatan.b   Estava precisando muito mesmo. Valeu parceiro!