QRCODE no Delphi Rio Intraweb

14/10/2021

0

Boa Noite Amigos!

Alguem tem alguma dica de como gerar QrCode no Delphi 10.3 Intraweb 15.1.9?

Tentei levar esse código do link abaixo e que funciona para o VCL, porém, para o intraweb, dá erro.
https://www.devmedia.com.br/qrcode-codigo-de-barras-bidimensional-delphi/24122

O erro é nessa linha abaixo. O interessante é que durante o debug (F8) não dá erro ao passar pela linha, porem ao dar F9 gerar o erro:
"Error message: Cannot assign a TPNGObject to a TPngImage"

IWImage1.Picture.Assign(PngImage.ImageNormal);

Quando eu comento a linha acima e coloco o código abaixo, vem a imagem na tela do QRCODE porem o conteudo texto gerado para o QRCODE fica vazio quando faço a leitura com um app de ler qrcode :
ImageStream.Position := 0;
IWImage1.Picture.LoadFromStream(ImageStream); //OK

Se alguem puder me ajudar, agradeço imensamente!

Rogério.
Rogerio Nascimento

Rogerio Nascimento

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar