QRCode PIX "borrado" em Android

Pegasus Aut e Desenv · 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;