Android Question [RESOLVED] Download image BLOB and insert into SQLite DB

    Dim o As OutputStream
Log(File.DirInternal)
    o = File.OpenOutput(File.DirInternal,"Test.dat",False)
    o.WriteBytes(....
    o.Close

Dim Buffer() As Byte

JSON data:
{
    "items": [
        {
            "AnimalName": "Aries",
            "Picture": "/9j/4AAQSkZJRgABAgAAAQABA continuation of image data... Fw/wCIlJpwxrU2+KmK4bHUpg0Ot4jdm+jzK9t6iiur4n//2Q==",
        }
    ]
}

'from an Activity module that calls the web service:
Sub btnDownload_Click
   ExecuteWS("AnimalProfile", URL)   'you will have to preset the URL value for your situation
End Sub

Sub ExecuteWS(QueryName as String, URL as String)
    ProgressDialogShow("Starting download...")
    Dim Job As HttpJob
    Job.Initialize(QueryName,Me)
    Job.PostString(URL,"")
End Sub

Sub JobDone(Job as HTTPJOB)
    If Job.Success Then
        Dim res as String = Job.GetString
        Select Job.Name
            Case "AnimalProfile"
                WriteAnimalProfile(res)

        End Select
    End If
    Job.Release
    ProgressDialogHide
End Sub

Sub WriteAnimalProfile(res as String)
   Dim strSQL as String = "INSERT INTO AnimalProfile (AnimalName, Picture) VALUES(?,?)"
   Dim AnimalName as String
   Dim Picture as String
   Dim parser as JSONParser
   parser.Initialize(res)
   Dim root as Map
   Dim items as List

   root.Initialize
   items.Intialize

   root = parser.NetxObject
   items = root.Get("items")

   SQL.BeginTransaction
   For Each colitems as Map in items
      AnimalName = colitems.Get("AnimalName")
      Picture = colitems.Get("Picture")

      SQL.ExecNonQuery2(strSQL, Array As Object(AnimalName, Picture))
   Next
   SQL.TransactionSuccessful
   SQL.EndTransaction
End Sub

'from an Activity module that will display the image BLOB from the SQLite database
Sub Globals
   Private lblAnimalName as Label
   Private ImageView1 as ImageView
End Sub

'you will need two controls/views on the layout: Label and ImageView
Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("animal_profile_detail")  
End Sub

Sub Activity_Resume
   Dim AP() as String = GetAnimalProfile(1)
   Dim Picture as String
   Dim bmp As Bitmap
   lblAnimalName.Text = AP(0)
   Picture = AP(1)

   If Picture.Length > 4 Then      'check that we do really have an image
      bmp = GetAnimalProfileImage(Picture)

      If bmp <> Null Then
         ImageView1.SetBackgroundImage(bmp)
      End If
    
   End If
End Sub

Sub GetAnimalProfile(AnimalID as Int) as String()
   Dim sProfile() as String
   Dim cr as Cursor
   Dim strSQL as String = "SELECT AnimalName, Picture FROM AnimalProfile WHERE AnimalID=" & AnimalID

   Dim AnimalName as String
   Dim Picture as String

   cr = SQL.ExecQuery(strSQL)
   cr.Position = 0
   If cr.RowCount > 0 then
      AnimalName = cr.GetString("AnimalName")
      Picture = cr.GetString("Picture")
     
      sProfile = Array As String(AnimalName, Picture)
   Else
      sProfile = Null
   End If
   Return sProfile
End Sub

Sub GetAnimalProfileImage(s As String) As Bitmap
    Dim su As StringUtils
    Dim bytes() As Byte = su.DecodeBase64(s)
    Dim in As InputStream
    in.InitializeFromBytesArray(bytes, 0, bytes.Length)
    Dim bmp As Bitmap
    bmp.Initialize2(in)
    in.Close
    Return bmp
End Sub

'convert a file content to a bitmap
Sub BytesToBitmap(Data() As Byte) As Bitmap
    
    Dim InputStream As InputStream
    InputStream.InitializeFromBytesArray(Data,0,Data.Length)
    
    Dim NewBitmap As Bitmap
    NewBitmap.Initialize2(InputStream)
    
    InputStream.Close
    
    Return NewBitmap
    
End Sub

'make a jpg as bytes
Public Sub BitmapToBytes(Bmp As Bitmap) As Byte()
    Dim Out As OutputStream
    Out.InitializeToBytesArray(0)
    Bmp.WriteToStream(Out, 100, "JPEG")
    Out.Close
    Return Out.ToBytesArray
End Sub