وب‌سرویس و JSON در بیسیک۴اندروید

با کتابخانه OkHttp2 هر وب‌سرویسی را صدا بزنید.

درخواست GET

Sub Globals
    Dim job As HttpJob
End Sub

Sub GetPrice
    job.Initialize("price", Me)
    job.Download("https://example.com/api/price")
End Sub

پارس پاسخ

Sub JobDone(job As HttpJob)
    If job.Success Then
        Dim p As JSONParser
        p.Initialize(job.GetString)
        Dim m As Map = p.NextObject
        Log("قیمت: " & m.Get("price"))
    End If
    job.Release
End Sub

نکته‌های مهم

• همیشه job.Release را صدا بزنید
• خطا را با job.ErrorMessage مدیریت کنید
• برای POST از job.PostString یا job.PostBytes استفاده کنید

همین الگو پایه ربات تلگرام هم هست — مقاله ساخت ربات تلگرام را ببینید.