Dalio Braga
Membros-
Total de ítens
4 -
Registro em
-
Última visita
Dalio Braga's Achievements
-
Uso da unit DelphiZXingQRCode
Dalio Braga replied to Dalio Braga's tópico in Dúvidas não relacionadas ao ACBr
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. -
Uso da unit DelphiZXingQRCode
Dalio Braga replied to Dalio Braga's tópico in Dúvidas não relacionadas ao ACBr
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. -
Uso da unit DelphiZXingQRCode
Dalio Braga replied to Dalio Braga's tópico in Dúvidas não relacionadas ao ACBr
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. -
Uso da unit DelphiZXingQRCode
um tópico no fórum postou Dalio Braga Dúvidas não relacionadas ao ACBr
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 ?