Free Databases in the Window Azure Marketplace: Listing 1.

Accessing the Microsoft Translator Data Feed via fixed query.

 
'Imports System.Data.Services.Client
'Custom class to obtain the needed Windows Azure Marketplace CustomerID and AccessKey
Dim Credentials = New AzureMarketplaceCredentials

'Credentials required to access any Windows Azure Marketplace data feed, even free ones
If (Credentials.CustomerID.Length > 0 AndAlso Credentials.AccessKey.Length > 0) Then

  'The Service Uri is provided by each data feed under the Detail tab at the bottom of the page
  Dim ServiceUri = New Uri(My.Settings.ServiceURI_BingTranslator)

  'The TranslatorContainer was converted from the provided C# class on the data feed page
  Dim BingService = New AzureMarketplaceVB.BingTranslator.TranslatorContainer(ServiceUri)
  BingService.Credentials = New System.Net.NetworkCredential(Credentials.CustomerID, Credentials.AccessKey)

  'Translate to Spanish from English. 
  'Language codes can be found at: http://go.microsoft"/?linkid=9783676
  Dim Translation = _
BingService.Translate("Good Morning. Today will be a beautiful day", "es", "en")

  'Convert result from a DataServiceQuery to a more usable List() object
  Dim Result = Translation.ToList()
  'The translated text will be a single string in Result(0) 
  End If

. . . . . .

Public Function Translate(ByVal [Text] As String, ByVal [To] As String, ByVal From As String) _
As DataServiceQuery(Of Translation)
  Dim query As DataServiceQuery(Of Translation) = _
MyBase.CreateQuery(Of Translation)("Translate")
  query = query.AddQueryOption("Text", ("’" & Uri.EscapeDataString([Text]) & "’"))
  query = query.AddQueryOption("To", ("’" & Uri.EscapeDataString([To]) & "’"))
  query = query.AddQueryOption("From", ("’" & Uri.EscapeDataString(From) & "’"))
  Return query
End Function

About the Author

Joe Kunk is a Microsoft MVP in Visual Basic, three-time president of the Greater Lansing User Group for .NET, and developer for Dart Container Corporation of Mason, Michigan. He's been developing software for over 30 years and has worked in the education, government, financial and manufacturing industries. Kunk's co-authored the book "Professional DevExpress ASP.NET Controls" (Wrox Programmer to Programmer, 2009). He can be reached via email at [email protected].

comments powered by Disqus

Featured

  • VS Code Now Has Apple Silicon Builds for Native Mac Development

    Goodbye Rosetta, hello M1. Visual Studio Code has been updated with new builds that let it run natively on machines with Apple Silicon (M1), the company's own ARM64 chips.

  • Visual Studio 2019 for Mac v8.9 Ships with .NET 6 Preview 1 Support

    During its Ignite 2021 online event for IT pros and developers this week, Microsoft shipped Visual Studio 2019 for Mac v8.9, arriving with out-of-the-box support for .NET 6 Preview 1, which the company also released recently.

  • Analyst: TypeScript Now Firmly in Top 10 Echelon (Ruby, Not So Much)

    RedMonk analyst Stephen O'Grady believes TypeScript has achieved the rare feat of firmly ensconcing itself into the top 10 echelon of his ranking, now questioning how high it might go.

  • Black White Wave IMage

    Neural Regression Using PyTorch: Training

    The goal of a regression problem is to predict a single numeric value, for example, predicting the annual revenue of a new restaurant based on variables such as menu prices, number of tables, location and so on.

Upcoming Events