Procedure Translate_Msg(sText is ANSI string, sLang_Target is string)

sKey is string = "xxxxxxxxxxxxxxxxxxxxxxxxx" // Chave do google Cloud
sURL is ANSI string = "https://translation.googleapis.com/language/translate/v2"
sParam is ANSI string = "?target=" + sLang_Target + "&q=" + sText + "&key=" + sKey

// Lista de idiomas: https://cloud.google.com/translate/docs/languages


// Translate
vCallWS is httpRequest
vCallWS.Method = httpPost
vCallWS.URL = sURL + URLEncode(sParam)
ResponseWS is restResponse = RESTSend(vCallWS)

//
//IF NOT Response_Verify(ResponseWS) THEN
// RESULT False
//END

IF ResponseWS..StatusCode = 200 THEN
RESULT ResponseWS.Content // json
ELSE
RESULT ""
END

Procedure Translate_msgX(LOCAL TextoaTraduzir is string UNICODE,IdiomaOrigem is string,IdiomaDestino is string ):chaîne UNICODE

// Definicao dos Objetos REST
JSONRequest is httpRequest
JSONReponse is httpResponse

GOOGLE_KEY_TRANSLATE_API is string = "xxxxxxxxxxxxxxxxxxxxxxxx"


JSONRequest.ContentType = typeMimeJSON
JSONRequest.URL = "https://translation.googleapis.com/language/translate/v2?key=" + GOOGLE_KEY_TRANSLATE_API
JSONRequest.Content = [
{"q":"%1",
"source":"%2",
"target":"%3",
"format":"text"
}
]
// Monta Conteudo
JSONRequest.Content = StringBuild(JSONRequest.Content,StringToUTF8(TextoaTraduzir),IdiomaOrigem,IdiomaDestino)

JSONReponse = RESTSend(JSONRequest)

IF ErrorOccurred THEN
Error(ErrorInfo(errFullDetails))
RETURN ""
END
// Usei variant pq achei mais facil
let v = JSONToVariant(JSONReponse.Content)

// Usando este método é que o objeto v do tipo da variante deve conter
// toda a estrutura de árvore do objeto de retorno (que Windev reconstitui por si mesmo)


RETURN "" + v.data.translations[1].translatedText