Dim translate As Map
translate.Initialize
translate.Put("target", "fr") '-> language
translate.Put("q", "Good Morning) '- text translate
Dim json As JSONGenerator
json.Initialize(translate)
Dim job As HttpJob:job.Initialize("@request.json", Me)
Dim API_KEY As String="AIzxxxxxxxxxxxxxxxxxxxx" '<--APIKEY '
Dim poststr As String = "https://translation.googleapis.com/language/translate/v2?key=" & API_KEY
job.PostString(poststr, json.ToString)
job.GetRequest.SetContentType("application/json; charset=utf-8")
Wait For (job) JobDone(job As HttpJob)
If job.Success Then
Try
Dim jsonParser As JSONParser
jsonParser.Initialize(job.GetString)
Log(jsonParser.NextObject.Get("data")
Catch
Log(LastException)
End Try
Else
Log(job.ErrorMessage)
End If