Bonjour Patrick,
Est-ce que vous développez une application Windows Forms ou Windows Presentation Foundation ? Pour vous inscrire dans le but d’accèder gratuitement à l’API Translator Text, je vous propose de suivre cet article :
Getting Started With Microsoft Azure Cognitive Services - Translator Text API
En ce qui concerne le code, je vous propose de tester un exemple que j’ai trouvé et converti de C# en Visual Basic :
Imports System.Net.Http
' Obtenir un jeton d’accès de manière asynchrone
' Le paremètre subscriptionKey contient la clé nécessaire pour l’authentication. Cf. le Resource Manager du premier lien pour plus de précisions en ce qui concerne les clés.
' La valeur de retour, c’est le jeton d’accès.
Private Async Function GetAccessTokenAsync(subscriptionKey As String) As Task(Of String)
Using client = New HttpClient()
Using request = New HttpRequestMessage()
request.Method = HttpMethod.Post
request.RequestUri = New Uri("https://api.cognitive.microsoft.com/sts/v1.0/issueToken")
request.Content = New StringContent(String.Empty)
request.Headers.TryAddWithoutValidation("Ocp-Apim-Subscription-Key", subscriptionKey)
Using response = Await client.SendAsync(request)
response.EnsureSuccessStatusCode()
Dim token = Await response.Content.ReadAsStringAsync()
Trace.WriteLine("token=" & token)
Return token
End Using
End Using
End Using
End Function
' Traduire le texte
' Le paramètre token est nécessaire pour l’API.
' fromLang : langue d’origine ; toLang : langue cible
Private Async Function TranslateText(token As String, text As String, fromLang As String, toLang As String) As Task(Of String)
Using client = New HttpClient()
Using request = New HttpRequestMessage()
Dim escapeText = Uri.EscapeDataString(text)
Trace.WriteLine("escapeText=" & escapeText)
Dim uriStr = "http://api.microsofttranslator.com/V2/Http.svc/Translate?" + "text=" & escapeText & "&from=" & fromLang & "&to=" & toLang
request.Method = HttpMethod.Get
request.RequestUri = New Uri(uriStr)
request.Headers.Authorization = New AuthenticationHeaderValue("Bearer", token)
Using response = Await client.SendAsync(request)
response.EnsureSuccessStatusCode()
Dim resultText = Await response.Content.ReadAsStringAsync()
' On utilise XDocument parce que le format ressemble à <string>XXXXXX</string>
Dim xdoc As XDocument = XDocument.Parse(resultText)
Trace.WriteLine("xdoc=" & xdoc.ToString())
' Pour le but de la vérification au cas où les séquences d’échappement XML ne seront pas converties
correctement
Return xdoc.Descendants().First().Value
End Using
End Using
End Using
End Function
Private Async Sub button_Click(sender As Object, e As EventArgs)
' Insérez ici le KEY1 qui est nécessaire pour l’authentification
Dim subscriptionKey As String = "XXXXXXXXX"
' On obtient le jeton d’accès. Le temps valide est d’environ dix minutes.
Dim token = Await GetAccessTokenAsync(subscriptionKey)
' Affichez le texte traduit.
textBoxOutput.Text = Await TranslateText(token, textBoxInput.Text, textBoxLangFrom.Text, textBoxLangTo.Text)
End Sub
Source: Traduire un texte en utilisant l’API Translator Text via un programme (en japonais)
Si vous développez un projet WPF, vous trouverez l’extrait de code XAML dans la source ci-dessus. Dans ce cas, déclarez button_Click comme :
Private Async Sub button_Click(sender As Object, e As RoutedEventArgs)
'...
End Sub
Cordialement,
Dimitar
