Membros Pro Pegasus Aut e Desenv Postado 8 Abril Membros Pro Compartilhar Postado 8 Abril Bom dia, estou usando o ACBRPIXCD para o Banco do Brasil, já em produção, tudo perfeito. Mas estou com um problema na geração da Imagem do QRCODE em FMX Android. Se alguem puder me dar uma luz. Como podem ver nas fotos anexas, em FMX Windows o QRCOde sai perfeito, limpo, mas no equipamento Tectoy V2 a imagem sai borrada. Consegue ler a imagem no V2, testei com iPhones e celulares mais simples, mas fica feio, rs. Uso o seguinte código para gerar o qrcode. var QRCode: TDelphiZXingQRCode; Row, Column: Integer; pixelColor : TAlphaColor; vBitMapData : TBitmapData; rSrc, rDest : TRectF; s : widestring; QRCodeBitmap : TBitmap; begin QRCode := TDelphiZXingQRCode.Create; QRCodeBitmap := TBitmap.Create; try QRCode.Data := TextoQrCode; QRCode.Encoding := TQRCodeEncoding(0); QRCode.QuietZone := 4; QRCodeBitmap.SetSize(QRCode.Rows, QRCode.Columns); for Row := 0 to QRCode.Rows - 1 do begin for Column := 0 to QRCode.Columns - 1 do begin if (QRCode.IsBlack[Row, Column]) then pixelColor := TAlphaColors.Black else pixelColor := TAlphaColors.White; if QRCodeBitmap.Map(TMapAccess.Write, vBitMapData) then try vBitMapData.SetPixel(Column, Row, pixelColor); finally QRCodeBitmap.Unmap(vBitMapData); end; end; end; imgQRCode.Bitmap := QrCodeBitmap; imgQRCode.DisableInterpolation := true; imgQRCode.WrapMode := TImageWrapMode.Fit; imgQRCode.Bitmap.SetSize(QRCodeBitmap.Width, QRCodeBitmap.Height); rSrc := TRectF.Create(0, 0, QRCodeBitmap.Width, QRCodeBitmap.Height); rDest := TRectF.Create(0, 0, imgQRCode.Bitmap.Width, imgQRCode.Bitmap.Height); if imgQRCode.Bitmap.Canvas.BeginScene then try imgQRCode.Bitmap.Canvas.Clear(TAlphaColors.White); imgQRCode.Bitmap.Canvas.DrawBitmap(QRCodeBitmap, rSrc, rDest, 1); finally imgQRCode.Bitmap.Canvas.EndScene; end; finally QRCode.Free; QRCodeBitmap.Free; end; Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Daniel InfoCotidiano Postado 8 Abril Consultores Compartilhar Postado 8 Abril 53 minutos atrás, Pegasus Aut e Desenv disse: imgQRCode.Bitmap.SetSize(QRCodeBitmap.Width, QRCodeBitmap.Height); se vc tentar setar na mao largura e altura um pouco menor, apenas p teste... ele modifica o comportamento? Daniel de Morais (Infocotidiano) Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Discord Link para o comentário Compartilhar em outros sites More sharing options...
Administradores Juliana Tamizou Postado 15 Abril Administradores Compartilhar Postado 15 Abril Tópico fechado por falta de retorno do usuário Juliana Tamizou Gerente de Projetos ACBr / Diretora de Marketing AFRAC Ajude o Projeto ACBr crescer - Seja Pro (15) 2105-0750 (15)99790-2976. Discord Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !! Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts