B4J Question How I can image in a ImageView?

[kris_audi]

I use bottom code:

Sub ReadBlob
Dim cursor1 As ResultSet
'Using ExecQuery2 is safer as it escapes special characters automatically.
'In this case it doesn't really matter.
cursor1 = sql1.ExecQuery2("SELECT image FROM table2 WHERE name = ?", Array As String("smiley"))
cursor1.NextRow
Dim Buffer() As Byte 'declare an empty byte array
Buffer = cursor1.GetBlob("image")
Dim InputStream1 As InputStream
InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)

Dim Bitmap1 As Image
Bitmap1.Initialize2(InputStream1)
InputStream1.Close
'ImageViewSQL.SetBackgroundImage(Bitmap1)
End Sub

How I can read a Blob field with image from a MySQL database and the image in a ImageView?

 

[Erel]

Please use [ code ] [ /code ] tags (without spaces) when posting code.

ImageViewSQL.SetImage(Bitmap1)

 

[StarinschiAndrei]

Hi Erel ,
could you please tell me what's wrong in my code ? how can i solve ?
Thank you
Error message :
B4J version 2.80
Parsing code. 0.01
Compiling code. Error
Error compiling program.
Error description: Cannot cast type: {Type=Byte,Rank=0, RemoteObject=True} to: {Type=Byte,Rank=1, RemoteObject=True}
Occurred on line: 54
inputstream1.InitializeFromBytesArray(buffer,0,buffer.lenght)
Word: buffer
My code :

Sub tvItems_SelectedRowChanged(Index As Int, Row() As Object)
Dim itemdetail As ResultSet
Dim buffer As Byte
itemdetail = dbFunction.itemList(Row(0))
buffer=itemdetail.GetBlob("iImg")
Dim inputstream1 As InputStream
inputstream1.InitializeFromBytesArray(buffer,0,buffer.lenght)
Dim bmp As Image
bmp.Initialize2(inputstream1)
ivItemImg.SetImage(bmp)
End Sub

 

[Daestrum]

Possibly this typo is the problem

inputstream1.InitializeFromBytesArray(buffer,0,buffer.lenght)

 

[StarinschiAndrei]

Possibly this typo is the problem

inputstream1.InitializeFromBytesArray(buffer,0,buffer.lenght)

Thank you ... the problem was here Dim buffer() As Byte i forgot ()