B4J Question B4J JSON response from PHP Script.

Sub AppStart (Args() As String)
    Process
    StartMessageLoop
End Sub

Sub Process
    Dim job1 As HttpJob
    Dim URL As String = "https://oblongapps.com/fetch.php"
    job1.Initialize("JOB1", Me)
    job1.Download(URL)
       
    Wait for JobDone (Job As HttpJob)
    If Job.Success = True Then
    Log(Job.getstring)
        processJSON(Job.getstring)
    End If
End Sub

Sub processJSON(JSON As String)
    Dim parser As JSONParser
    parser.Initialize(JSON)
    Dim root As Map = parser.NextObject
    Dim slings As List = root.Get("slings")
    For Each colslings As Map In slings
        Dim color As String = colslings.Get("color")
        Dim serial As String = colslings.Get("serial")
        Dim is_out As String = colslings.Get("is_out")
        Dim length As String = colslings.Get("length")
        Dim ID As String = colslings.Get("ID")
        Dim TypeString As String = colslings.Get("type")
        Dim status As String = colslings.Get("status")
    Next
End Sub

Private Sub Button1_Click
    Dim Job1 As HttpJob
    'WebView1.LoadUrl("http://oblongapps.com/fetch.php")
    Job1.Initialize("", Me)
    Job1.Download("https://oblongapps.com/fetch.php")
    Wait For (Job1) JobDone(Job1 As HttpJob)
    If Job1.Success Then
        Log(Job1.GetString)
        Log("Success")
    End If
    Job1.Release
End Sub

Private Sub Button1_Click
    Dim BaseURL As String = "https://oblongapps.com/fetch.php"
    
    Wait For (APIGetURL(BaseURL)) Complete (DataResult As String)
    If DataResult = "" Then Return
'    Log(DataResult)
    
    Dim mRoot As Map = DataResult.As(JSON).ToMap
    Dim slings As List = mRoot.Get("slings")
    
    For Each colslings As Map In slings
        Dim ID As String = colslings.Get("ID")
'        Dim color As String = colslings.Get("color")
'        Dim serial As String = colslings.Get("serial")
'        Dim is_out As String = colslings.Get("is_out")
'        Dim length As String = colslings.Get("length")
'        Dim Type As String = colslings.Get("type")
'        Dim status As String = colslings.Get("status")
        Log(ID)
    Next
End Sub

Public Sub APIGetURL(URL As String) As ResumableSub
    Dim ResultURL As String
    Dim j As HttpJob
    Try
        j.Initialize("", Me)
        j.Download(URL)
        Wait For (j) JobDone(j As HttpJob)
        If j.Success Then
            ResultURL = j.GetString
        End If
    Catch
        Log(LastException.Message)
    End Try
    j.Release
    Return ResultURL
End Sub

Job.Download(URL)