如何在basic4android中解析json？

Question

我想解析JSON从网址到basic4android的安卓标签。

我试了一下，但不起作用：

Sub Activity_Create(FirstTime As Boolean)
Dim Label1 As Label
Dim job As HttpJob

job.Initialize("Job", Me)
job.Download("http://api.tvmaze.com/shows/82")


If job.Success = True Then

Dim parser As JSONParser
parser.Initialize(job.GetString)
Dim root As Map = parser.NextObject

Dim name As String = root.Get("name")
Label1.Text = Title
End if

Answer 1

在应该是Label1.Text = name的地方有了Label1.Text = Title