Android Question Add logo image inside QR Code

[Tasyo28]

Hi,

May i ask how to add image in side QR Code as per this below QR Code generator by Erel?

[B4X] QRGenerator - Cross platform QR code generator

QRGenerator is a class that generates QR codes. It is written in B4X and it is compatible with B4A, B4i and B4J. iPhone default camera app recognizing the QR code displayed in a B4A app: Can create codes made of up to 2953 bytes. It depends on XUI library and B4XCollections v1.50+. It uses...

www.b4x.com

Thank you.

Regards,
Tasyo

 

[Erel]

It returns a bitmap. Use B4XCanvas to draw a logo in the middle.

 

[Tasyo28]

It returns a bitmap. Use B4XCanvas to draw a logo in the middle.

Hi Erel,

Thank you for reply, but I'm still new on this can you give me a sample how can i code it? thank you

Regards,

 

[Erel]

    Dim qrbmp As B4XBitmap = qr.Create(sb.ToString)
    Dim bmp As B4XBitmap = DrawLogoInMiddle(qrbmp, xui.LoadBitmap(File.DirAssets, "logo.png"))
    ImageView2.SetBitmap(bmp)


Sub DrawLogoInMiddle(bmp As B4XBitmap, logo As B4XBitmap) As B4XBitmap
    Dim cvs As B4XCanvas
    Dim p As B4XView = xui.CreatePanel("")
    p.SetLayoutAnimated(0, 0, 0, bmp.Width, bmp.Height)
    cvs.Initialize(p)
    cvs.DrawBitmap(bmp, cvs.TargetRect)
    Dim r As B4XRect
    r.Initialize(cvs.TargetRect.Width * 2 / 5, cvs.TargetRect.Height * 2 / 5, cvs.TargetRect.Width * 3 / 5, cvs.TargetRect.Height * 3 / 5)
    cvs.DrawBitmap(logo, r)
    Dim res As B4XBitmap = cvs.CreateBitmap
    cvs.Release
    Return res
End Sub

 

[Tasyo28]

Thank you very much Erel!!!! it works

Regards,
Tasyo

 

[TILogistic]

see:

How to add image/logo at center of a Qr code

Sub AppStart (Form1 As Form, Args() As String) MainForm = Form1 MainForm.RootPane.LoadLayout("1") 'Load the layout file. MainForm.Show Dim qr As QRGenerator qr.Initialize(ImageView1.Width) BmpQR = qr.Create("B4X QR Generator!!!") logo =...

www.b4x.com