Dim translate As Map
translate.Initialize
translate.Put("source",srclang)
translate.Put("target", dst)
Log(dst)
Log(srclang)
translate.Put("q", texto)
Dim json As JSONGenerator
json.Initialize(translate)
Dim job As HttpJob:job.Initialize("@request.json", Me)
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 traductor As JSONParser
Dim mapa_traductor As Map
mapa_traductor.Initialize
traductor.Initialize(job.GetString)
Dim parser As JSONParser
parser.Initialize(job.GetString)
Dim root As Map = parser.NextObject
Dim data As Map = root.Get("data")
Dim translations As List = data.Get("translations")
For Each coltranslations As Map In translations
Dim translatedText As String = coltranslations.Get("translatedText")
Next
Catch
Log(LastException)
End Try
Else
Log(job.ErrorMessage)
End If
job.Release
