iOS Question Blob (Image) from a MYSQL using B4i

'Code module
#Region  Project Attributes
    #ApplicationLabel: Emeralds
    #Version: 1.0.0
    'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
    #iPhoneOrientations: Portrait, LandscapeLeft, LandscapeRight
    #iPadOrientations: Portrait, LandscapeLeft, LandscapeRight, PortraitUpsideDown
    #Target: iPhone, iPad
    #ATSEnabled: True
    #MinVersion: 7
#End Region
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'Public variables can be accessed from all modules.
    Public App As Application
    Public NavControl As NavigationController
    Private Page1 As Page
    Private CLV As CustomListView
    Private lblInfo_Insert_1 As Label
    Private img_Insert_1 As ImageView
    Private btn_Insert_1 As Button
    Dim Data As DataClass
End Sub
Private Sub Application_Start (Nav As NavigationController)
    'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
    NavControl = Nav
 
    Page1.Initialize("Main")
    Page1.RootPanel.LoadLayout("Main")
    Page1.Title = "Emerald QLD"
    Page1.RootPanel.Color = Colors.Blue
 
    NavControl.ShowPage(Page1)
 
 
 
    CLV.AddTextItem("EMERGINCY SERVICES","")
    Data.Initialize
    wait for (Data.GetEmergincyList)Complete(bList As List)
If bList.IsInitialized=True Then
    For I = 0 To bList.Size-1
   
 
        Dim M As Map
    M.Initialize
    M=bList.get(I)
            Log(M)
            File.WriteMap(File.DirDocuments,"imagemap",M)
       
    Dim SU As StringUtils
    Dim bm1 As Bitmap
            bm1.Initialize(File.DirAssets,"emeraldLogo.png")
       
            Dim Base64String As String = m.Get("image")
       
            Dim ByteBuffer() As Byte
            Dim bm As Bitmap
            If Base64String.Length > 4 Then
                File.WriteString(File.DirDocuments,"Base64File.txt",Base64String)
                ByteBuffer=SU.DecodeBase64(Base64String)
                Dim Inputstream1 As InputStream
                Inputstream1.InitializeFromBytesArray( ByteBuffer,0,ByteBuffer.Length)
           
                'File.Copy2( File.OpenInput(File.DirDocuments,"aimg.jpg"),Inputstream1)
                bm.Initialize2(Inputstream1)
           
           
           
           
                Inputstream1.Close
                Sleep(100)
            Else
                bm.Initialize(File.DirAssets,"emeraldLogo.png")
            End If
 
    If bm.IsInitialized=True Then
    CLV.Clear
                CLV.Add(CreateListItem(bm,m.Get("Type") & CRLF & m.Get("Number") ,"2"),200,2)
    End If
    Next
    CLV.AddTextItem("BUSINESS","")
    CLV.AddTextItem("TOURISM","")
 
    End If
End Sub
Sub CreateListItem(IMAGE As Bitmap, TEXT As String, itemNum As String) As Panel
Dim p As Panel
p.Initialize("")
p.LoadLayout("CLV_Insert_1")
p.Color = Colors.White
img_Insert_1.Bitmap=IMAGE
lblInfo_Insert_1.Text=TEXT
Return p
End Sub
Private Sub Page1_Resize(Width As Int, Height As Int)
 
End Sub
Private Sub Application_Background
 
End Sub
Sub btn_Insert_1_Click
 
End Sub
Sub img_Insert_1_Click
 
End Sub
Sub lblInfo_Insert_1_Click
 
End Sub

Sub GetEmergincyList() As ResumableSub
    Try
        Dim Query As String ="Select `ID`, IFNULL(`Type`,'UNKNOWN'), IFNULL(`Number`,0),IFNULL(`Address`,'UNKNOWN'), IFNULL(`lon`,0) , IFNULL(`lat`,0), IFNULL(`postal_code`,0) , IFNULL(TO_BASE64(`image`),'00') As image FROM `Emergency`"
        '"SELECT `ID`, `category`, TO_BASE64(`image`) as image FROM `business_category`"    TO_BASE64(`image`) as image,
        wait for (ExecuteQuery_List(Query))complete(lList As List)
        If lList.IsInitialized=True Then
            Return lList
        End If
    Catch
        hud.ProgressDialogHide
        Log(LastException.Message)
    End Try
End Sub

private Sub ExecuteQuery_List(Query As String ) As ResumableSub
    hud.ProgressDialogShow("Loading Data...")
    Try
        Dim job As HttpJob
        Dim ListResults As List
        job.Initialize("job",Me)
        job.PostString(Global.DataServer, Query)
        Wait For (job) JobDone(job As HttpJob)
        If job.Success Then
            Dim parser As JSONParser
            Log(job.GetString)
            parser.Initialize(job.GetString)
            ListResults = parser.NextArray 'returns a list with maps
            If ListResults.Size=0 Then
                If job.IsInitialized Then
                    job.Release
                End If
                hud.ProgressDialogHide
                Return ListResults
            Else
                If job.IsInitialized Then
                    job.Release
                End If
                hud.ProgressDialogHide
                Return  ListResults
            End If
        Else
            Log(job.ErrorMessage)
            If job.IsInitialized Then
                job.Release
            End If
            hud.ProgressDialogHide
            Return ListResults
        End If
 
    Catch
        hud.ProgressDialogHide
        Log(LastException.Message)
        Return Null
    End Try
End Sub

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region
#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Public DataServer As String = "http://webforce.app*******"
End Sub
Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
 
    Private IMGV As ImageView
End Sub
Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Main")
 
End Sub
Sub Activity_Resume
ExecuteQuery_List
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
private Sub ExecuteQuery_List( )
    ProgressDialogShow("Loading Data...")
        Dim SU As StringUtils
        Dim job As HttpJob
        Dim ListResults As List
        job.Initialize("job",Me)
        Dim Query As String ="Select `ID`, IFNULL(`Type`,'UNKNOWN'), IFNULL(`Number`,0),IFNULL(`Address`,'UNKNOWN'), IFNULL(`lon`,0) , IFNULL(`lat`,0), IFNULL(`postal_code`,0) , IFNULL(TO_BASE64(`image`),'00') As image FROM `Emergency` where `ID`=1"
        'Please note the blob is converted to bas64 in the select statement
        job.PostString(DataServer, Query)
        Wait For (job) JobDone(job As HttpJob)
        If job.Success Then
            Dim parser As JSONParser
            Log(job.GetString)
            parser.Initialize(job.GetString)
            ListResults = parser.NextArray 'returns a list with maps
            If ListResults.Size>0 Then
            Dim M As Map
            M.Initialize
            M= ListResults.Get(0)
            Dim Base64String As String = m.Get("image")
            Dim ByteBuffer() As Byte
            Dim bm As Bitmap
            ByteBuffer=SU.DecodeBase64(Base64String)
            Dim Inputstream1 As InputStream
            Inputstream1.InitializeFromBytesArray( ByteBuffer,0,ByteBuffer.Length)
            bm.Initialize2(Inputstream1)
            IMGV.Bitmap=bm
           
           
                If job.IsInitialized Then
                    job.Release
                End If
                ProgressDialogHide
           
            End If
        End If
End Sub

'Code module
#Region  Project Attributes
    #ApplicationLabel: B4i Example
    #Version: 1.0.0
    'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
    #iPhoneOrientations: Portrait, LandscapeLeft, LandscapeRight
    #iPadOrientations: Portrait, LandscapeLeft, LandscapeRight, PortraitUpsideDown
    #Target: iPhone, iPad
    #ATSEnabled: True
    #MinVersion: 7
#End Region
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'Public variables can be accessed from all modules.
    Public App As Application
    Public NavControl As NavigationController
    Private Page1 As Page
    Private IMGV As ImageView
    Public DataServer As String = "https://webforce.app*******"
    Dim HUDD As HUD
End Sub
Private Sub Application_Start (Nav As NavigationController)
    'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
    NavControl = Nav
    Page1.Initialize("Page1")
    Page1.Title = "Page 1"
    Page1.RootPanel.Color = Colors.White
    NavControl.ShowPage(Page1)
    Page1.RootPanel.LoadLayout("Page1")
    ExecuteQuery_List
End Sub
Private Sub Page1_Resize(Width As Int, Height As Int)
 
End Sub
Private Sub Application_Background
 
End Sub
private Sub ExecuteQuery_List( )
    HUDD.ProgressDialogShow("Loading Data...")
    Dim SU As StringUtils
    Dim job As HttpJob
    Dim ListResults As List
    job.Initialize("job",Me)
    Dim Query As String ="Select `ID`, IFNULL(`Type`,'UNKNOWN'), IFNULL(`Number`,0),IFNULL(`Address`,'UNKNOWN'), IFNULL(`lon`,0) , IFNULL(`lat`,0), IFNULL(`postal_code`,0) , IFNULL(TO_BASE64(`image`),'00') As image FROM `Emergency` where `ID`=1"
    'Please note the blob is converted to bas64 in the select statement
    job.PostString(DataServer, Query)
    Wait For (job) JobDone(job As HttpJob)
    If job.Success Then
        Dim parser As JSONParser
        Log(job.GetString)
        parser.Initialize(job.GetString)
        ListResults = parser.NextArray 'returns a list with maps
        If ListResults.Size>0 Then
            Dim M As Map
            M.Initialize
            M= ListResults.Get(0)
            Dim Base64String As String = m.Get("image")
            Dim ByteBuffer() As Byte
            Dim bm As Bitmap
            ByteBuffer=SU.DecodeBase64(Base64String)
            Dim Inputstream1 As InputStream
            Inputstream1.InitializeFromBytesArray( ByteBuffer,0,ByteBuffer.Length)
            bm.Initialize2(Inputstream1)  '<---- Crash Here
            IMGV.Bitmap=bm
           
           
            If job.IsInitialized Then
                job.Release
            End If
            HUDD.ProgressDialogHide
           
        End If
    End If
End Sub