Sub JSONResponse_StreamFinish (Success As Boolean, TaskId As Int)
Dim MarkersOverlay1 As MarkersOverlay
MarkersOverlay1.Initialize(MapView1, "MarkersOverlay1")
MapView1.AddOverlay(MarkersOverlay1)
MapView1.RemoveOverlay(MarkersOverlay1)
Dim Icon As BitmapDrawable
Icon.Initialize(LoadBitmap(File.DirAssets, "markerting.png"))
Dim a As Int
a = 0
Dim List1 As List
Dim JSON As JSONParser
JSON.Initialize(File.ReadString(File.DirInternalCache, jsonfile &".json"))
List1.Initialize
List1 = JSON.NextArray
Dim m As Map 'helper map for navigating
m = List1.Get(0)
Dim loc As Map
Dim Markers As List
Markers.Initialize
loc = m.Get("location")
For i = 0 To m.Size - 1
Dim Marker1 As Marker
Marker1.Initialize("", "", loc.Get ("longitude"), loc.Get ("latitude"), Icon)
Markers.Add(Marker1)
a = a + 1
Next
MarkersOverlay1.AddMarkers(Markers)
MapView1.AddOverlay(MarkersOverlay1)
If a > 0 Then
Else If a = 0 Then
ToastMessageShow("Lucky you! There is no crime in your area!", True)
Else
End If
HttpTimer.Enabled = False
jsonfile = Rnd(0, 9999999)
End Sub