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 Copilot Previews New GPT-4o AI Code Completion Model

    The 4o upgrade includes additional training on more than 275,000 high-quality public repositories in over 30 popular programming languages, said Microsoft-owned GitHub, which created the original "AI pair programmer" years ago.

  • Microsoft's Rust Embrace Continues with Azure SDK Beta

    "Rust's strong type system and ownership model help prevent common programming errors such as null pointer dereferencing and buffer overflows, leading to more secure and stable code."

  • Xcode IDE from Microsoft Archrival Apple Gets Copilot AI

    Just after expanding the reach of its Copilot AI coding assistant to the open-source Eclipse IDE, Microsoft showcased how it's going even further, providing details about a preview version for the Xcode IDE from archrival Apple.

  • Introduction to .NET Aspire

    Two Microsoft experts will present on the cloud-native application stack designed to simplify the development of distributed systems in .NET at the Visual Studio Live! developer conference coming to Las Vegas next month.

  • Microsoft Previews Copilot AI for Open-Source Eclipse IDE

    Catering to Java jockeys, Microsoft is yet again expanding the sprawling reach of its Copilot-branded AI assistants, previewing a coding tool for the open-source Eclipse IDE.

Subscribe on YouTube

Upcoming Training Events