@LucaMs, lo so ma quel codice che ho postato da risultati con la trasformazione da db a imageview
Sub imageblobget(value As Object) As Image
Try
Dim Buffer() As Byte
Buffer = value
Dim InputStream1 As InputStream
InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
Dim Bitmap1 As Image
Bitmap1.Initialize2(InputStream1)
InputStream1.Close
Return Bitmap1
Catch
Log(LastException)
End Try
End Sub
Chiuedo un consiglio perche non mi è chiara la cosa in zucca, dovrebbe essere molto più semplice ma in realtà la trovo un poco bordellain, al momento gira tutto alla perfezione ma avendo visto che in
.SetBitmap in B4XView che in ImageView funziona perfettamente, qui mi mi fa crash, a questo punto ho fatto un codice per una cosa e un codice per l'altra, ma trovo la cosa una CAGATA che vorrei sistemare.
Dim imgw As ImageView
imgw.Initialize("")
imgw.SetImage(imvalue.Get(14))
imgw.PrefHeight = 24
imgw.PrefWidth = 24
SetGraphic(bt, imgw)
qui invece devo aggiungere imageview su un pannello cosa che vorrei fare nel pannello senza imageview
If v Is B4XView And v.Tag = "icona" Then
Dim pn As Pane = v
If lsTemp.Get(14) <> Null Then
Try
Log(lsTemp.Get(14))
Dim imgw As ImageView
imgw.Initialize("")
imgw.SetImage(lsTemp.Get(14))
imgw.PrefHeight = 128
imgw.PrefWidth = 128
pn.AddNode(imgw,0,0,128,128)
'------------------------------------------
Catch
Log(LastException)
End Try
End If
End If
Ora che
@Star-Dust ha sollevato il "
NO NON VA BENE" voglio capire