(Xojo Plugin) Google Translate Text

See more Google Translate Examples

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim success As Boolean
success = False

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// --------------------------------------------------------------------------------
// IMPORTANT: 
// Don't forget you need to 1st enable the Cloud Translation API in your Google Developers Console at https://console.cloud.google.com
// --------------------------------------------------------------------------------

// It is assumed we previously obtained an OAuth2 access token.
// This example loads the JSON access token file 
Dim jsonToken As New Chilkat.JsonObject
success = jsonToken.LoadFile("qa_data/tokens/_googleTranslate.json")
If (success <> True) Then
    System.DebugLog("Failed to load _googleTranslate.json")
    Return
End If

Dim http As New Chilkat.Http

http.AuthToken = jsonToken.StringOf("access_token")

// The following JSON is sent in the request body.

// {
//     "q": "The quick brown fox jumped over the lazy dog.",
//     "source": "en",
//     "target": "es",
//     "format": "text"
// }

Dim json As New Chilkat.JsonObject
// The following code creates the JSON request body.
success = json.UpdateString("q","The quick brown fox jumped over the lazy dog.")
success = json.UpdateString("source","en")
success = json.UpdateString("target","es")
success = json.UpdateString("format","text")

json.EmitCompact = False
System.DebugLog(json.Emit())

Dim resp As New Chilkat.HttpResponse
success = http.HttpJson("POST","https://translation.googleapis.com/language/translate/v2",json,"application/json",resp)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

Dim jResp As New Chilkat.JsonObject
success = resp.GetBodyJson(jResp)
jResp.EmitCompact = False

System.DebugLog("Response Body:")
System.DebugLog(jResp.Emit())

Dim respStatusCode As Int32
respStatusCode = resp.StatusCode
System.DebugLog("Response Status Code = " + Str(respStatusCode))
If (respStatusCode >= 400) Then
    System.DebugLog("Response Header:")
    System.DebugLog(resp.Header)
    System.DebugLog("Failed.")
    Return
End If

// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)

// {
//   "data": {
//     "translations": [
//       {
//         "translatedText": "El zorro r�pida salt� sobre el perro perezoso."
//       }
//     ]
//   }
// }

Dim translatedText As String

Dim i As Int32
i = 0
Dim n As Int32
n = jResp.SizeOfArray("data.translations")
While i < n
    jResp.I = i
    translatedText = jResp.StringOf("data.translations[i].translatedText")
    System.DebugLog(translatedText)
    i = i + 1
Wend