Private Sub Button1_Click
hitAPI("https://world.openfoodfacts.net/api/v2/product/301762401070?fields=product_name,nutriscore_data") ' the product bar code (301762401070) is deliberately wrong to test API error response.
End Sub
Sub hitAPI (url As String)
Dim dnr As Int =1
Dim job As HttpJob
pb.Visible=True
'logoProgress("start")
job.Initialize("",Me)
job.Download(url)
job.GetRequest.SetHeader("User-Agent", "com.personalapps.nutriscore - Android - Version 1.0 - www.testwebsite.com")
Wait for (job) JobDone(job As HttpJob)
'logoProgress("stop")
If job.Success Then
pb.Visible=False
'start nutri_score code
Dim parser As JSONParser
parser.Initialize(job.GetString)
Dim jRoot As Map = parser.NextObject
Try
Dim product As Map = jRoot.Get("product")
Catch
Log("JSON Parse Error" & LastException)
xui.MsgboxAsync(LastException,"ERROR IN FETCHING DATA")
Return
End Try