Uso da unit DelphiZXingQRCode

[Dalio Braga]

Olá.

Estou usando a unit  DelphiZXingQRCode para gerar o QrCode para NFCe. Não tenho o ACBr instalado. Estou encontrando Range Check Error na execução da função TEncoder.ApplyMaskPenaltyRule3.

<code>

    for X := 0 to Width - 1 do
    begin
      if ((X + 6 < Width) and
          (TheArray[Y][X] = 1) and
          (TheArray[Y][X + 1] = 0) and
          (TheArray[Y][X + 2] = 1) and
          (TheArray[Y][X + 3] = 1) and
          (TheArray[Y][X + 4] = 1) and
          (TheArray[Y][X + 5] = 0) and
          (TheArray[Y][X + 6] = 1) and
          (((X + 10 < Width) and
              (TheArray[Y][X + 7] = 0) and
              (TheArray[Y][X + 8] = 0) and
              (TheArray[Y][X + 9] = 0) and
              (TheArray[Y][X + 10] = 0)) or
              ((x - 4 >= 0) and
                  (TheArray[Y][X -  1] = 0) and
                  (TheArray[Y][X -  2] = 0) and
                  (TheArray[Y][X -  3] = 0) and
                  (TheArray[Y][X -  4] = 0)))) then
      begin
        Inc(Penalty, 40);
      end;
      if ((Y + 6 < Height) and
          (TheArray[Y][X] = 1)  and
          (TheArray[Y + 1][X] = 0) and
          (TheArray[Y + 2][X] = 1)  and
          (TheArray[Y + 3][X] = 1)  and
          (TheArray[Y + 4][X] = 1)  and
          (TheArray[Y + 5][X] = 0) and
          (TheArray[Y + 6][X] = 1) and
          (((Y + 10 < Height) and
              (TheArray[Y + 7][X] = 0) and
              (TheArray[Y + 8][X] = 0) and
              (TheArray[Y + 9][X] = 0) and
              (TheArray[Y + 10][X] = 0)) or
              ((Y - 4 >= 0) and
                  (TheArray[Y - 1][X] = 0) and
                  (TheArray[Y - 2][X] = 0) and
                  (TheArray[Y - 3][X] = 0) and
                  (TheArray[Y - 4][X] = 0)))) then
      begin
        Inc(Penalty, 40);
      end;
    end;
</code>

Já tentei desativar usando {$R-}, mais au o erro muda para ACCESS VIOLATION.

Alguem já se deparou com esse erro ?

 

 

 

 

[Juliomar Marchetti]

Chegou a olhar dentro dos fontes como ele é utilizado?

ACBrDFeReport.pas

  procedure PintarQRCode(

[Dalio Braga]

Olá. Obrigado por responder. Não tenho mais os fontes e não estou conseguindo localizar no site o link. Tenho o ACBrInstall_Trunk2.exe mas quando executo ele trava informando que  está faltando ACBr_synapse.dpk.

[Juliomar Marchetti]

Veja aqui mesmo no fórum tu acha o link do svn: https://projetoacbr.com.br/fontes/

se tens o ACBrInstall o erro mencionado é que o path que está informando lá na primeira tab não corresponde com o local onde tu tem os fontes em seu micro

[Dalio Braga]

Obrigado pela atenção.  Peguei o código no arquivo que você mencionou, mas continuou a ocorrer o mesmo erro. Estou desconfiado que seja alguma configuração da minha ide - XE3.

[Juliomar Marchetti]

faça um projeto de exemplo compacte e anexe ao tópico para que possa lhe ajudar

[Dalio Braga]

Boa tarde Juliomar, achei uma solução aqui. Simplesmente desativei o código da procedure que estava travando, citada no primeiro tópico, deixando o result = 0,  e o processo concluiu e gerou o QRCode de forma correta. Já gastei muito tempo analisando aqueles testes lógicos da procedure e não consegui enter a razão do erro.  Obrigado. Por mim pode fechar o assunto.

[Juliomar Marchetti]

Obrigado por reportar.

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