B4J Question How Change Byte() to Image

[Snger]

Hi , How can I do It ?
please, Give your Answer

 

[Erel]

[B4X] Bytes To File

This code is no longer needed. Use File.WriteBytes / ReadBytes. Write an array of bytes to a file and read a file into an array of bytes. Sub BytesToFile (Dir As String, FileName As String, Data() As Byte) Dim out As OutputStream = File.OpenOutput(Dir, FileName, False)...

www.b4x.com

 

[Snger]

Thankyou Erel.

 

[emexes]

This example of reading an image from a SQL BLOB might be relevant:

https://www.b4x.com/android/forum/threads/how-to-click-a-button-to-select-an-image-and-determine-if-the-image-size-is-greater-than-600kb.165316/page-2#post-1013911

Private Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
    Dim Cursor1 As Cursor = SQL1.ExecQuery("SELECT * FROM cakes")
    If Cursor1.RowCount > 0 Then
        If Value < Cursor1.RowCount Then
            Cursor1.Position = Value
        Else
            Cursor1.Position = Cursor1.RowCount - 1
        End If
    
        Dim CakePicture() As Byte = Cursor1.GetBlob("picture")

        Dim In As InputStream
        In.InitializeFromBytesArray(CakePicture, 0, CakePicture.Length)
        Dim bmp As Bitmap
        bmp.Initialize2(In)
        In.Close

        ImageView1.Bitmap = bmp
    End If
End Sub

 

[Erel]

You can use the same sub for this:

 Dim CakePicture() As Byte = Cursor1.GetBlob("picture")
ImageView1.SetBitmap(BytesToImage(CakePicture))

And it will work in all three platforms.