Chamando o Google Translate do ASP.NET Usando o Post

Chamando o Google Tradutor do ASP.NET usando o POST para documentos mais longos do seu código por trás.

Introdução

A Google Translate API é boa para realizar traduções bastante complexas, e, embora não seja perfeita, ele irá, pelo menos, dar aos seus leitores uma compreensão básica do que você está tentando transmitir.

Embora o documento seja muito bom para explicar o que acontece quando você usa Java Script, que pode traduzir cerca de 500 caracteres, há muito pouco para quando você precisa traduzir documentos maiores.

Ao usar o POST você pode aumentar isso para 5000 caracteres, então desenvolvemos nosso próprio código para enviar uma solicitação de publicação para a API do Google e, em seguida, receber a tradução.

Primeiro o código, para aqueles que só querem isso.

VB

Protected Function GetTranslation(ByVal key As String, ByVal source As String, ByVal target As String, ByVal Text As String) As String

Dim TranslatedString As String = ""
Text = "q=" + Text
Dim TranslateRequest As New Uri(String.Format("https://www.googleapis.com/language/translate/v2?key={0}&source={1}&target={2}&format=html", key, source, target))
Dim Req As WebRequest = WebRequest.Create(TranslateRequest)
Req.Method = "POST"
Req.Headers.Add("X-https-Method-Override", "GET")
Req.ContentType = "application/x-www-form-urlencoded"
Using wriream As Stream = Req.GetRequestStream()
Dim encoding As New UTF8Encoding()
Dim bytes As Byte() = encoding.GetBytes(Text)
wriream.Write(bytes, 0, bytes.Length)
End Using
Dim ReturnStr As String
Using sr = New StreamReader(Req.GetResponse.GetResponseStream)
ReturnStr = sr.ReadToEnd()
End Using
Dim Reader As New JavaScriptSerializer
Dim TranslateJSON As Dictionary(Of String, Object) = Reader.DeserializeObject(ReturnStr)
Dim TranslateData As Dictionary(Of String, Object)
If TranslateJSON.ContainsKey("data") Then
TranslateData = TranslateJSON("data")
If TranslateData.ContainsKey("translations") Then
For Each pair In TranslateData.Item("translations")(0)
TranslatedString = pair.Value.ToString()
Next
End If
End If
Return TranslatedString
End Function

Introdução

E agora para uma breve explicação. A função requer quatro entradas, estas são a sua chave, o idioma, o idioma e o texto que deseja traduzir.

Em seguida, declaramos uma string de retorno, crie uma string de URL de solicitação que é rapidamente analisada em uma nova solicitação web (Req).

Em seguida, configuramos o tipo de solicitação, o tipo de conteúdo e, mais importante, adicionamos um cabeçalho para substituir o método get .

Uma vez que isso é feito, enviamos os dados como um fluxo para o Google (wriream).

Agora, declaramos uma string de retorno (ReturnStr) para manter o JSON retornado do Google e leia a string de resposta nela.

O próximo passo é criar um JavaScriptSerializer, esse bit provavelmente foi o mais confuso, pois esta é a área mais fraca das minhas habilidades de desenvolvimento. O que essa última seção faz é extrair cada seção de texto até chegar à área que queremos, e define o nosso texto de retorno como o valor retornado pelo Google. Este pode não ser o código mais elaborado do mundo, então, se você resolver uma maneira de arrumar, então me avise.

Você poderia facilmente colocar este código em uma classe compartilhada e reutilizá-lo, no entanto, havia apenas uma seção do site em que precisávamos, então foi incorporado na página.

O exemplo abaixo preenche um editor de texto AJAX Toolkit com o conteúdo de outro. Observe a decodificação dupla (do editor e do Google), e tem duas caixas de texto que denotam o idioma de e para.

VB

Protected Sub TranslateDoc_Click(sender As Object, e As EventArgs) Handles TranslateDoc.Click
  Dim key As String = "Your Key"
  Dim source As String = LanguageBase.SelectedItem.Text.ToString
  Dim target As String = LanguageTrans.SelectedItem.Text.ToString
  Dim PageText As String = httpsUtility.HtmlDecode(ContentText.Content)
  Try
ContentTextTran.Content = httpsUtility.HtmlDecode(GetTranslation(key, source, target, PageText))
Str.Text = "Translated"
  Catch
Str.Text = key + "," + source + "," + target + ""
  End Try
End Sub