Android Question How to read images from Panel1 control to array ar in b4a, where ar is of Byte type？

[bskotu555]

 

[Erel]

Please post code as text. Not screenshot.

Tip: you should never call StartService(Starter).

 

[bskotu555]

Please post code as text. Not screenshot.

Tip: you should never call StartService(Starter).

Dim bmp As Bitmap
        Dim outStream As OutputStream
        StartService(Starter)
        Dim tx As String=EditText1.Text
        bmp.InitializeMutable(Panel1.Width, Panel1.Height)
        'Panel1.DrawToBitmap(bmp)
        outStream.InitializeToBytesArray(0)
        bmp.WriteToStream(outStream, 100, "PNG")
        Dim ar() As Byte = outStream.ToBytesArray

 

[Erel]

Make sure that Panel1 is declared as B4XView and use Panel1.Snapshot to get a B4XBitmap with its content.

 

[bskotu555]

Make sure that Panel1 is declared as B4XView and use Panel1.Snapshot to get a B4XBitmap with its content.

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private Label1 As Label
    Private EditText1 As EditText
    Private smm As SimpleMediaManager
    Private chooser As MediaChooser
    Private Panel1 As B4XView
End Sub
Private Sub Button1_Click'拍照
    Wait For (chooser.CaptureImage) Complete (Result As MediaChooserResult)
    ShowMedia(Result)
End Sub

Private Sub ShowMedia (Result As MediaChooserResult)
    If Result.Success Then
        smm.SetMediaFromFile(Panel1, Result.MediaDir, Result.MediaFile, Result.Mime, Null)
    Else
        Panel1.RemoveAllViews
    End If
End Sub

 

[bskotu555]

Make sure that Panel1 is declared as B4XView and use Panel1.Snapshot to get a B4XBitmap with its content.

outStream.InitializeToBytesArray(0)
        Panel1.Snapshot.WriteToStream(outStream, 100, "PNG")
        Dim ar() As Byte = outStream.ToBytesArray
        just like this?

 

[Erel]

Use ImageToBytes and BytesToImage: https://www.b4x.com/android/forum/threads/b4x-bytes-to-file.70111/#post-445167

 

[bskotu555]

outStream.InitializeToBytesArray(0)
        Panel1.Snapshot.WriteToStream(outStream, 50, "PNG")
        Dim ar() As Byte = outStream.ToBytesArray

succeed