TRADUCTEUR GOOGLE : INTERFACE WINFORM POUR LE SERVICE DE TRADUCTION DE GOOGLE
gillardg
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
-
13 avril 2009 à 12:57
blq Messages postés 97 Date d'inscription vendredi 22 octobre 1999 Statut Membre Dernière intervention 13 juin 2016 - 30 oct. 2012 à 14:20
blq Messages postés 97 Date d'inscription vendredi 22 octobre 1999 Statut Membre Dernière intervention 13 juin 2016 - 30 oct. 2012 à 14:20
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/49799-traducteur-google-interface-winform-pour-le-service-de-traduction-de-google
https://codes-sources.commentcamarche.net/source/49799-traducteur-google-interface-winform-pour-le-service-de-traduction-de-google
30 oct. 2012 à 14:20
11 oct. 2010 à 09:15
IE : Outils : Options Internet... : Avancé : Navigation : Cocher :
"Désactiver le débogage des scripts (autres applications)"
18 mai 2010 à 21:30
27 mars 2010 à 09:34
19 avril 2009 à 13:03
16 avril 2009 à 16:33
13 avril 2009 à 13:50
Le code provient de :
www.codeproject.com/KB/aspnet/Translate_Your_Website.aspx
et il est récent, je vais voir cela, merci.
13 avril 2009 à 12:57
Private Function Translate(ByVal stringToTranslate As String, ByVal fromLanguage As String, ByVal toLanguage As String) As String
' make sure that the passed string is not empty or null
If (Not String.IsNullOrEmpty(stringToTranslate)) Then
' per google's terms of use, we can only translate
' a string of up to 5000 characters long
If stringToTranslate.Length <= 5000 Then
Const bufSizeMax As Integer = 65536
Const bufSizeMin As Integer = 8192
Try
' by default format? is text. so we don't need to send a format? key
Dim requestUri As String = "http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=" & stringToTranslate & "&langpair=" & fromLanguage & "%7C" & toLanguage
' execute the request and get the response stream
Dim request As HttpWebRequest = CType(WebRequest.Create(requestUri), HttpWebRequest)
Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
Dim responseStream As Stream = response.GetResponseStream()
' get the length of the content returned by the request
Dim length As Integer = CInt(Fix(response.ContentLength))
Dim bufSize As Integer = bufSizeMin
If length > bufSize Then
If length > bufSizeMax Then
bufSize = bufSizeMax
Else
bufSize = length
End If
End If
' allocate buffer and StringBuilder for reading response
Dim buf(bufSize - 1) As Byte
Dim sb As New StringBuilder(bufSize)
' read the whole response
length = responseStream.Read(buf, 0, buf.Length)
Do While length <> 0
sb.Append(Encoding.UTF8.GetString(buf, 0, length))
length = responseStream.Read(buf, 0, buf.Length)
Loop
' the format of the response is like this
' {"responseData": {"translatedText":"¿Cómo estás?"}, "responseDetails": null, "responseStatus": 200}
' so now let's clean up the reponse by manipulating the string
Dim translatedText As String = sb.Remove(0, 36).ToString()
translatedText = translatedText.Substring(0, translatedText.IndexOf("""},"))
Return translatedText
Catch
Return "Cannot get the translation. Please try again later."
End Try
Else
Return "String to translate must be less than 5000 characters long."
End If
Else
Return "String to translate is empty."
End If
End Function