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.
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)