Tamanho do bitmap do QRCode

[Danilo Grespan]

Prezados

Estou gerando o QRCode utilizando a função "PintarQRCode" com a seguinte sintaxe:

PintarQRCode(CopiaECola, imgQRCodeBMP, qrUTF8BOM);

onde CopiaECola é o "copia-e-cola" do PIX e imgQRCodeBMP é uma variável TBitmap (já inicializada).

Após esse procedimento, preciso salvar a imagem fisicamente, o que estou fazendo com o SaveToFile e tudo está dando certo. O único problema é que a imagem está MUITO pequena e eu precisaria de algo maior, algo como 400px X 400px. Há alguma maneira de gerar esse QRCode, por essa função, alterando as dimensões finais?

Grato.

Danilo Grespan

 

[Juliomar Marchetti]

Tu pode tentar redimensionar o BitMap antes de salvar.

algo assim

https://stackoverflow.com/questions/61309826/tbitmap-savetofile-is-changing-a-bitmap

[Danilo Grespan]

Boa tarde Juliomar.

Agradeço pela dica! Eu tinha ido por um caminho parecido, mas achei que não seria ruim verificar se não tinha uma maneira mais "oficial" rs... 

Eu precisei aumentar o bitmap do QRCode porque estou gerando faturas de pagamento por PIX com o Fast Report (impresso, PDF) e também enviando por email, e o tamanho original é extremamente pequeno para este fim (sim, antes de tudo eu ainda converto para JPG). 

Vou postar a função que montei para redimensionar o QRCode e, se alguém quiser, sinta-se a vontade para usar e melhorar:

function tamanhoQRCode(imagemOriginal: TBitmap; tamanho: integer): TBitmap;
var
    novaImg : TBitmap;
begin
    novaImg := TBitmap.Create;
    try
        novaImg.SetSize(tamanho, tamanho);
        novaImg.Canvas.StretchDraw(Rect(0, 0, tamanho, tamanho), imagemOriginal);
        TamanhoQRCode := novaImg;
    finally
        novaImg.Free;
    end;
end;

Um abraço para todos.

Danilo Grespan

 

[Juliomar Marchetti]

Obrigado por reportar.

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