Google translate API

Voici un code qui permet de traduire une chaine via l'API de Google.
Il faut au préalable vous inscrire sur Google :

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

pour obtenir votre clé API. C'est assez nébuleux et compliqué mais pas insurmontable...

Code (Text):

PROCEDURE TraduireViaGglTranslate(LOCAL sSourceATraduire est une chaîne UNICODE,sCodeLangueSource est une chaîne ="auto",sCodeLangueDest est une chaîne ="en" ):chaîne UNICODE

JSONRequest est une restRequête
JSONReponse est une restRéponse

//---------------------------------------------------------------------------------------
// !!!! ATTENTION ICI METTRE VOTRE CLE API !!!
GOOGLE_KEY_TRANSLATE_API est une chaîne = "insérez ici votre clé API"
//---------------------------------------------------------------------------------------

// configuration de la requête :

JSONRequest.ContentType = typeMimeJSON
JSONRequest.URL = "https://translation.googleapis.com/language/translate/v2?key=" + GOOGLE_KEY_TRANSLATE_API
JSONRequest.Contenu = [
    {"q":"%1",
    "source":"%2",
    "target":"%3",
    "format":"text"
    }
]

JSONRequest.Contenu = ChaîneConstruit(JSONRequest.Contenu,ChaîneVersUTF8(sSourceATraduire),sCodeLangueSource,sCodeLangueDest)
JSONReponse = RESTEnvoie(JSONRequest)
SI ErreurDétectée ALORS
    Erreur(ErreurInfo(errComplet))
    RENVOYER ""
FIN

soit v = JSONVersVariant(JSONReponse..Contenu)

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