Sub Process_Globals
Private API_KEY As String = "AIzaSyC..."
End Sub
Sub AppStart (Args() As String)
Translate("ניסיון אחת שתיים שלוש", "he", "en")
StartMessageLoop
End Sub
Sub Translate (Text As String, SourceLang As String, TargetLang As String)
Dim m As Map = CreateMap("q": Text, "source": SourceLang, "target": TargetLang, "format": "text")
Dim jg As JSONGenerator
jg.Initialize(m)
Dim j As HttpJob
j.Initialize("", Me)
j.PostString($"https://translation.googleapis.com/language/translate/v2?key=${API_KEY}"$, jg.ToString)
j.GetRequest.SetContentType("application/json")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Dim p As JSONParser
p.Initialize(j.GetString)
Dim result As Map = p.NextObject
Log(result)
Dim data As Map = result.Get("data")
Dim translations As List = data.Get("translations")
For Each t As Map In translations
Log(t.Get("translatedText"))
Next
End If
j.Release
End Sub