#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private IMGV As ImageView
Public DataServer As String = "http://*******"
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Main") 'Load the layout file.
MainForm.Show
ExecuteQuery_List
End Sub
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
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 Image
ByteBuffer=SU.DecodeBase64(Base64String)
Dim Inputstream1 As InputStream
Inputstream1.InitializeFromBytesArray( ByteBuffer,0,ByteBuffer.Length)
bm.Initialize2(Inputstream1)
IMGV.SetImage(bm)
If job.IsInitialized Then
job.Release
End If
'ProgressDialogHide
End If
End If
End Sub