Last active
October 6, 2015 18:28
-
-
Save t2-support-gists/3035504 to your computer and use it in GitHub Desktop.
Speech RESTful Vb App 1
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ****************************************************************************************** | |
| * Licensed by AT&T under 'Software Development Kit Tools Agreement.' 2013 | |
| * Copyright 2013 AT&T Intellectual Property. All rights reserved. http://developer.att.com | |
| * For more information contact developer.support@att.com<mailto:developer.support@att.com> | |
| ****************************************************************************************** | |
| AT&T API Samples - Speech app 1 | |
| -------------------------------- | |
| This application allows the user to send an audio file for speech to text | |
| transcription, and get the transcribed text. | |
| This file describes how to set up, configure and run the VB Applications of the | |
| AT&T .Net Restful sample applications. | |
| It covers all steps required to register the application on developer site and, based | |
| on the generated API keys and secrets, create and run one's own full-fledged | |
| sample applications. | |
| 1. Configuration | |
| 2. Installation | |
| 3. Parameters | |
| 4. Running the application | |
| 1. Configuration | |
| Configuration consists of a few steps necessary to get an application registered | |
| on developer site with the proper services and endpoints, depending on the type of | |
| client-side application (autonomous/non-autonomous). | |
| To register an application, go to https://developer.att.com/ and login with | |
| your valid username and password. Next, choose "My Apps" from the bar at the top | |
| of the page and click the "Setup a New Application" button. | |
| Fill in the form, in particular all fields marked as "required". | |
| NOTE: You MUST select Speech in the list of services under field 'Services' in | |
| order to use this sample application code. | |
| Having your application registered, you will get back an important pair of data: | |
| an API key and Secret key. They are necessary to get your applications working | |
| with the AT&T Platform APIs. | |
| Initially your newly registered application is restricted to the "Sandbox" | |
| environment only. To move it to production, you may promote it by clicking the | |
| "Promote to production" button. Notice that you will get a different API key and | |
| secret, so these values in your application should be adjusted accordingly. | |
| Depending on the kind of authentication used, an application may be based on | |
| either the Autonomous Client or the Web-Server Client OAuth flow. | |
| 2. Installation | |
| ** Requirements | |
| To run the examples you need an IIS Server. | |
| Download the application files from the download link published in AT&T portal | |
| into webdomain of your IIS server. | |
| 3. Parameters | |
| Each sample application contains an web.config file. This file | |
| is located in the 'app' folder. This file holds configurable | |
| parameters described in an easy-to-read format. Please modify the | |
| web.config file using the comments specified within the file. | |
| Note: If your application is promoted from Sandbox environment to Production | |
| environment and you decide to use production application settings, you must | |
| update parameters as per production application details. | |
| 4. Running the application | |
| Suppose you copied the sample app files in your IIS server webroot/speech/app1/ folder. | |
| In order to run the sample application, type in'http://IIS_HOSTNAME:8080/speech/app1/Default.aspx' | |
| (assuming you're using a HOSTNAME machine with IIS Server and have not changed the | |
| default port number, otherwise adjust accordingly) on your browser. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <%@ Page Language="VB" AutoEventWireup="true" CodeFile="Default.aspx.vb" Inherits="Speech_App1" %> | |
| <!DOCTYPE html> | |
| <!-- | |
| Licensed by AT&T under 'Software Development Kit Tools Agreement.' 2013 | |
| TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION: http://developer.att.com/sdk_agreement/ | |
| Copyright 2013 AT&T Intellectual Property. All rights reserved. http://developer.att.com | |
| For more information contact developer.support@att.com | |
| --> | |
| <!--[if lt IE 7]> <html class="ie6" lang="en"> <![endif]--> | |
| <!--[if IE 7]> <html class="ie7" lang="en"> <![endif]--> | |
| <!--[if IE 8]> <html class="ie8" lang="en"> <![endif]--> | |
| <!--[if gt IE 8]><!--> | |
| <html lang="en"> | |
| <!--<![endif]--> | |
| <head> | |
| <title>AT&T Sample Speech Application - Speech to Text (Generic) </title> | |
| <meta content="text/html; charset=UTF-8" http-equiv="Content-Type" /> | |
| <meta id="viewport" name="viewport" content="width=device-width,minimum-scale=1,maximum-scale=1" /> | |
| <meta http-equiv="content-type" content="text/html; charset=UTF-8" /> | |
| <link rel="stylesheet" type="text/css" href="style/common.css" /> | |
| <script type="text/javascript"> | |
| var _gaq = _gaq || []; | |
| _gaq.push(['_setAccount', 'UA-33466541-1']); | |
| _gaq.push(['_trackPageview']); | |
| (function () { | |
| var ga = document.createElement('script'); | |
| ga.type = 'text/javascript'; | |
| ga.async = true; | |
| ga.src = ('https:' == document.location.protocol ? 'https://ssl' | |
| : 'http://www') | |
| + '.google-analytics.com/ga.js'; | |
| var s = document.getElementsByTagName('script')[0]; | |
| s.parentNode.insertBefore(ga, s); | |
| })(); | |
| </script> | |
| </head> | |
| <body> | |
| <div id="pageContainer" class="pageContainer"> | |
| <div id="header"> | |
| <div class="logo" id="top"> | |
| </div> | |
| <div id="menuButton" class="hide"> | |
| <a id="jump" href="#nav">Main Navigation</a> | |
| </div> | |
| <ul class="links" id="nav"> | |
| <li><a href="#" target="_blank">Full Page<img src="images/max.png" alt="" /></a> <span | |
| class="divider">| </span> </li> | |
| <li><a id="SourceLink" runat="server" target="_blank">Source<img src="images/source.png" | |
| alt="" /> | |
| </a><span class="divider">| </span> </li> | |
| <li><a id="DownloadLink" runat="server" target="_blank">Download<img src="images/download.png" | |
| alt="" /> | |
| </a><span class="divider">| </span> </li> | |
| <li><a id="HelpLink" runat="server" target="_blank">Help </a></li> | |
| <li id="back"><a href="#top">Back to top</a></li> | |
| </ul> | |
| </div> | |
| <form id="form1" runat="server"> | |
| <div class="content"> | |
| <div class="contentHeading"> | |
| <h1> | |
| AT&T Sample Application - Speech to Text</h1> | |
| <div id="introtext"> | |
| <div> | |
| <b>Server Time: </b><%= String.Format("{0:ddd, MMMM dd, yyyy HH:mm:ss}", DateTime.UtcNow) + " UTC" %> | |
| </div> | |
| <div> | |
| <b>Client Time:</b> | |
| <script language="JavaScript" type="text/javascript"> | |
| var myDate = new Date(); | |
| document.write(myDate); | |
| </script> | |
| </div> | |
| <div> | |
| <b>User Agent:</b> | |
| <script language="JavaScript" type="text/javascript"> | |
| document.write("" + navigator.userAgent); | |
| </script> | |
| </div> | |
| </div> | |
| </div> | |
| <div class="formBox" id="formBox"> | |
| <div id="formContainer" class="formContainer"> | |
| <div id="formData"> | |
| <h3> | |
| Speech Context: | |
| </h3> | |
| <asp:DropDownList ID="SpeechContext" runat="server" AutoPostBack="true"> | |
| </asp:DropDownList> | |
| <h3> | |
| Audio File: | |
| </h3> | |
| <asp:DropDownList ID="audio_file" runat="server"> | |
| </asp:DropDownList> | |
| <br /> | |
| <div id="chunked"> | |
| <b>Send Chunked:</b> | |
| <asp:CheckBox ID="chkChunked" runat="server" /> | |
| </div> | |
| <h3> | |
| X-Arg: | |
| </h3> | |
| <asp:TextBox ID="x_arg" runat="server" type="text" TextMode="MultiLine" Enabled="False" Rows="4" name="x_arg"></asp:TextBox> | |
| <br /> | |
| <h3>X-SpeechSubContext</h3> | |
| <asp:TextBox ID="x_subContext" type="text" runat="server" TextMode="MultiLine" Enabled="False" Rows="4" name="x_subContext"></asp:TextBox> | |
| <br /> | |
| <button id="btnSubmit" onserverclick="BtnSubmit_Click" runat="server" name="SpeechToText" | |
| type="submit"> | |
| Submit</button> | |
| </div> | |
| </div> | |
| </div> | |
| <br clear="all" /> | |
| <% If Not String.IsNullOrEmpty(speechSuccessMessage) Then%> | |
| <div class="successWide" align="left"> | |
| <strong>SUCCESS:</strong> | |
| <br /> | |
| Response parameters listed below. | |
| </div> | |
| <table class="kvp"> | |
| <thead> | |
| <tr> | |
| <th class="label">Parameter</th> | |
| <th class="label">Value</th> | |
| </tr> | |
| </thead> | |
| <tbody> | |
| <tr> | |
| <td class="cell" align="center"><em>ResponseId</em></td> | |
| <td class="cell" align="center"><em><%= speechResponseData.Recognition.ResponseId %></em></td> | |
| </tr> | |
| <tr> | |
| <td class="cell" align="center"><em>Status</em></td> | |
| <td class="cell" align="center"><em><%= speechResponseData.Recognition.Status %></em></td> | |
| </tr> | |
| <% | |
| If (speechResponseData.Recognition.NBest IsNot Nothing) AndAlso (speechResponseData.Recognition.NBest.Count > 0) Then | |
| For Each nbest As NBest In speechResponseData.Recognition.NBest%> | |
| <tr> | |
| <td class="cell" align="center"><em>Hypothesis</em></td> | |
| <td class="cell" align="center"><em><%= nbest.Hypothesis %></em></td> | |
| </tr> | |
| <tr> | |
| <td class="cell" align="center"><em>LanguageId</em></td> | |
| <td class="cell" align="center"><em><%= nbest.LanguageId%></em></td> | |
| </tr> | |
| <tr> | |
| <td class="cell" align="center"><em>Confidence</em></td> | |
| <td class="cell" align="center"><em><%= nbest.Confidence %></em></td> | |
| </tr> | |
| <tr> | |
| <td class="cell" align="center"><em>Grade</em></td> | |
| <td class="cell" align="center"><em><%= nbest.Grade %></em></td> | |
| </tr> | |
| <tr> | |
| <td class="cell" align="center"><em>ResultText</em></td> | |
| <td class="cell" align="center"><em><%= nbest.ResultText %></em></td> | |
| </tr> | |
| <tr> | |
| <td class="cell" align="center"><em>Words</em></td> | |
| <td class="cell" align="center"><em><%= string.Join(", ", nbest.Words.ToArray())%></em></td> | |
| </tr> | |
| <tr> | |
| <td class="cell" align="center"><em>WordScores</em></td> | |
| <td class="cell" align="center"><em><%= string.Join(", ", nbest.WordScores.ToArray())%></em></td> | |
| </tr> | |
| <% Next%> | |
| <% If speechResponseData.Recognition.Info IsNot Nothing Then | |
| If Not String.IsNullOrEmpty(speechResponseData.Recognition.Info.version) Then | |
| %> | |
| <tr> | |
| <td class="cell" align="center"><em>version</em></td> | |
| <td class="cell" align="center"><em><%= speechResponseData.Recognition.Info.version%></em></td> | |
| </tr> | |
| <%End If%> | |
| <% If Not String.IsNullOrEmpty(speechResponseData.Recognition.Info.actionType) Then | |
| %> | |
| <tr> | |
| <td class="cell" align="center"><em>actionType</em></td> | |
| <td class="cell" align="center"><em><%= speechResponseData.Recognition.Info.actionType%></em></td> | |
| </tr> | |
| <%End If%> | |
| <% Dim count As Integer | |
| If speechResponseData.Recognition.Info.metrics IsNot Nothing Then | |
| For Each keyitem In speechResponseData.Recognition.Info.metrics | |
| If count = 0 Then | |
| %> | |
| <tr> | |
| <td class="cell" align="center"><em>metrics</em></td> | |
| <td class="cell" align="center"><em></em></td> | |
| </tr> | |
| <%End If%> | |
| <tr> | |
| <td class="cell" align="center"><em><%=keyitem.Key%></em></td> | |
| <td class="cell" align="center"><em><%=keyitem.Value%></em></td> | |
| </tr> | |
| <%count = count + 1 | |
| Next | |
| count = 0 | |
| End If%> | |
| <% If speechResponseData.Recognition.Info.interpretation IsNot Nothing Then | |
| For Each keyitem In speechResponseData.Recognition.Info.interpretation | |
| If count = 0 Then | |
| %> | |
| <tr> | |
| <td class="cell" align="center"><em>interpretation</em></td> | |
| <td class="cell" align="center"><em></em></td> | |
| </tr> | |
| <%End If%> | |
| <tr> | |
| <td class="cell" align="center"><em><%=keyitem.Key%></em></td> | |
| <td class="cell" align="center"><em><%=keyitem.Value%></em></td> | |
| </tr> | |
| <% count = count + 1 | |
| Next | |
| count = 0 | |
| End If%> | |
| <% If Not String.IsNullOrEmpty(speechResponseData.Recognition.Info.recognized) Then | |
| %> | |
| <tr> | |
| <td class="cell" align="center"><em>recognized</em></td> | |
| <td class="cell" align="center"><em><%= speechResponseData.Recognition.Info.recognized%></em></td> | |
| </tr> | |
| <%End If%> | |
| <% If speechResponseData.Recognition.Info.search IsNot Nothing Then | |
| If speechResponseData.Recognition.Info.search.meta IsNot Nothing Then | |
| For Each keyitem In speechResponseData.Recognition.Info.search.meta | |
| If count = 0 Then | |
| %> | |
| <tr> | |
| <td class="cell" align="center"><em>meta</em></td> | |
| <td class="cell" align="center"><em></em></td> | |
| </tr> | |
| <%End If%> | |
| <tr> | |
| <td class="cell" align="center"><em><%=keyitem.Key%></em></td> | |
| <td class="cell" align="center"><em><%=keyitem.Value%></em></td> | |
| </tr> | |
| <%count = count + 1 | |
| Next | |
| count = 0 | |
| End If%> | |
| <% If speechResponseData.Recognition.Info.search.programs IsNot Nothing Then | |
| For Each keyitem In speechResponseData.Recognition.Info.search.programs | |
| If count = 0 Then | |
| %> | |
| <tr> | |
| <td class="cell" align="center"><em>programs</em></td> | |
| <td class="cell" align="center"><em></em></td> | |
| </tr> | |
| <%End If%> | |
| <tr> | |
| <td class="cell" align="center"><em><%=keyitem.Key%></em></td> | |
| <td class="cell" align="center"><em><%=keyitem.Value%></em></td> | |
| </tr> | |
| <%count = count + 1 | |
| Next | |
| count = 0 | |
| End If%> | |
| <% If speechResponseData.Recognition.Info.search.showTimes IsNot Nothing Then | |
| For Each keyitem In speechResponseData.Recognition.Info.search.showTimes | |
| If count = 0 Then | |
| %> | |
| <tr> | |
| <td class="cell" align="center"><em>showTimes</em></td> | |
| <td class="cell" align="center"><em></em></td> | |
| </tr> | |
| <%End If%> | |
| <tr> | |
| <td class="cell" align="center"><em><%=keyitem.Key%></em></td> | |
| <td class="cell" align="center"><em><%=keyitem.Value%></em></td> | |
| </tr> | |
| <%count = count + 1 | |
| Next | |
| count = 0 | |
| End If%> | |
| <%End If%> | |
| <%End If%> | |
| <%End If%> | |
| </tbody> | |
| </table> | |
| <%End If%> | |
| <% If Not String.IsNullOrEmpty(speechErrorMessage) Then%> | |
| <div class="errorWide"> | |
| <strong>ERROR:</strong> | |
| <br /> | |
| <%= speechErrorMessage %> | |
| </div> | |
| <% End If%> | |
| </div> | |
| </form> | |
| <div id="footer"> | |
| <div id="ft"> | |
| <div id="powered_by"> | |
| Powered by AT&T Cloud Architecture | |
| </div> | |
| <p> | |
| The Application hosted on this site are working examples intended to be used for | |
| reference in creating products to consume AT&T Services and not meant to be | |
| used as part of your product. The data in these pages is for test purposes only | |
| and intended only for use as a reference in how the services perform. | |
| <br /> | |
| <br /> | |
| For download of tools and documentation, please go to <a href="https://developer.att.com/" | |
| target="_blank">https://developer.att.com</a> | |
| <br /> | |
| For more information contact <a href="mailto:developer.support@att.com">developer.support@att.com</a> | |
| <br /> | |
| <br /> | |
| © 2013 AT&T Intellectual Property. All rights reserved. <a href="https://developer.att.com/" | |
| target="_blank">https://developer.att.com</a> | |
| </p> | |
| </div> | |
| <!-- end of ft --> | |
| </div> | |
| <!-- end of footer --> | |
| </div> | |
| </body> | |
| </html> | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ' <copyright file="Default.aspx.vb" company="AT&T"> | |
| ' Licensed by AT&T under 'Software Development Kit Tools Agreement.' 2013 | |
| ' TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION: http://developer.att.com/sdk_agreement/ | |
| ' Copyright 2013 AT&T Intellectual Property. All rights reserved. http://developer.att.com | |
| ' For more information contact developer.support@att.com | |
| ' </copyright> | |
| #Region "References" | |
| Imports System.Collections.Generic | |
| Imports System.Configuration | |
| Imports System.IO | |
| Imports System.Net | |
| Imports System.Net.Security | |
| Imports System.Security.Cryptography.X509Certificates | |
| Imports System.Text | |
| Imports System.Web.Script.Serialization | |
| Imports System.Web.UI.WebControls | |
| Imports System.Collections.Specialized | |
| Imports System.Web | |
| Imports System.Web.UI.HtmlControls | |
| #End Region | |
| ''' <summary> | |
| ''' Speech application | |
| ''' </summary> | |
| Partial Public Class Speech_App1 | |
| Inherits System.Web.UI.Page | |
| #Region "Class variables and Data structures" | |
| ''' <summary> | |
| ''' Temporary variables for processing | |
| ''' </summary> | |
| Private fqdn As String, accessTokenFilePath As String | |
| ''' <summary> | |
| ''' Temporary variables for processing | |
| ''' </summary> | |
| Private apiKey As String, secretKey As String, accessToken As String, scope As String, refreshToken As String, refreshTokenExpiryTime As String, _ | |
| accessTokenExpiryTime As String | |
| ''' <summary> | |
| ''' variable for having the posted file. | |
| ''' </summary> | |
| Private SpeechFilesDir As String | |
| ''' <summary> | |
| ''' Gets or sets the value of refreshTokenExpiresIn | |
| ''' </summary> | |
| Private refreshTokenExpiresIn As Integer | |
| Public speechErrorMessage As String = String.Empty | |
| Public speechSuccessMessage As String = String.Empty | |
| Public speechResponseData As SpeechResponse = Nothing | |
| ''' <summary> | |
| ''' Access Token Types | |
| ''' </summary> | |
| Public Enum AccessType | |
| ''' <summary> | |
| ''' Access Token Type is based on Client Credential Mode | |
| ''' </summary> | |
| ClientCredential | |
| ''' <summary> | |
| ''' Access Token Type is based on Refresh Token | |
| ''' </summary> | |
| RefreshToken | |
| End Enum | |
| #End Region | |
| #Region "Events" | |
| ''' <summary> | |
| ''' This function is called when the applicaiton page is loaded into the browser. | |
| ''' This function reads the web.config and gets the values of the attributes | |
| ''' </summary> | |
| ''' <param name="sender">Button that caused this event</param> | |
| ''' <param name="e">Event that invoked this function</param> | |
| Protected Sub Page_Load(sender As Object, e As EventArgs) | |
| 'ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf CertificateValidationCallBack) | |
| Me.BypassCertificateError() | |
| Me.ReadConfigFile() | |
| Me.setXArgsContent() | |
| End Sub | |
| Private Sub BypassCertificateError() | |
| Dim bypassSSL As String = ConfigurationManager.AppSettings("IgnoreSSL") | |
| If (Not String.IsNullOrEmpty(bypassSSL)) AndAlso (String.Equals(bypassSSL, "true", StringComparison.OrdinalIgnoreCase)) Then | |
| ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf CertificateValidationCallBack) | |
| End If | |
| End Sub | |
| ''' <summary> | |
| ''' Method that calls SpeechToText api when user clicked on submit button | |
| ''' </summary> | |
| ''' <param name="sender">sender that invoked this event</param> | |
| ''' <param name="e">eventargs of the button</param> | |
| Protected Sub BtnSubmit_Click(sender As Object, e As EventArgs) | |
| Try | |
| Dim IsValid As Boolean = True | |
| IsValid = Me.ReadAndGetAccessToken(speechErrorMessage) | |
| If IsValid = False Then | |
| speechErrorMessage = "Unable to get access token" | |
| Return | |
| End If | |
| Dim chunkValue = False | |
| If chkChunked.Checked Then | |
| chunkValue = True | |
| End If | |
| Dim speechFile = Me.SpeechFilesDir & audio_file.SelectedValue.ToString() | |
| Me.ConvertToSpeech(Me.fqdn & "/speech/v3/speechToText", Me.accessToken, SpeechContext.SelectedValue.ToString(), x_arg.Text, speechFile, chunkValue) | |
| Catch ex As Exception | |
| speechErrorMessage = ex.Message | |
| Return | |
| End Try | |
| End Sub | |
| #End Region | |
| #Region "Access Token Related Functions" | |
| ''' <summary> | |
| ''' Read parameters from configuraton file | |
| ''' </summary> | |
| ''' <returns>true/false; true if all required parameters are specified, else false</returns> | |
| Private Function ReadConfigFile() As Boolean | |
| Me.accessTokenFilePath = ConfigurationManager.AppSettings("AccessTokenFilePath") | |
| If String.IsNullOrEmpty(Me.accessTokenFilePath) Then | |
| Me.accessTokenFilePath = "~\SpeechApp1AccessToken.txt" | |
| End If | |
| Me.fqdn = ConfigurationManager.AppSettings("FQDN") | |
| If String.IsNullOrEmpty(Me.fqdn) Then | |
| speechErrorMessage = "FQDN is not defined in configuration file" | |
| Return False | |
| End If | |
| Me.apiKey = ConfigurationManager.AppSettings("api_key") | |
| If String.IsNullOrEmpty(Me.apiKey) Then | |
| speechErrorMessage = "api_key is not defined in configuration file" | |
| Return False | |
| End If | |
| Me.secretKey = ConfigurationManager.AppSettings("secret_key") | |
| If String.IsNullOrEmpty(Me.secretKey) Then | |
| speechErrorMessage = "secret_key is not defined in configuration file" | |
| Return False | |
| End If | |
| Me.scope = ConfigurationManager.AppSettings("scope") | |
| If String.IsNullOrEmpty(Me.scope) Then | |
| Me.scope = "SPEECH" | |
| End If | |
| Dim refreshTokenExpires As String = ConfigurationManager.AppSettings("refreshTokenExpiresIn") | |
| If Not String.IsNullOrEmpty(refreshTokenExpires) Then | |
| Me.refreshTokenExpiresIn = Convert.ToInt32(refreshTokenExpires) | |
| Else | |
| Me.refreshTokenExpiresIn = 24 | |
| End If | |
| If Not String.IsNullOrEmpty(ConfigurationManager.AppSettings("SourceLink")) Then | |
| SourceLink.HRef = ConfigurationManager.AppSettings("SourceLink") | |
| Else | |
| ' Default value | |
| SourceLink.HRef = "#" | |
| End If | |
| If Not String.IsNullOrEmpty(ConfigurationManager.AppSettings("DownloadLink")) Then | |
| DownloadLink.HRef = ConfigurationManager.AppSettings("DownloadLink") | |
| Else | |
| ' Default value | |
| DownloadLink.HRef = "#" | |
| End If | |
| If Not String.IsNullOrEmpty(ConfigurationManager.AppSettings("HelpLink")) Then | |
| HelpLink.HRef = ConfigurationManager.AppSettings("HelpLink") | |
| Else | |
| ' Default value | |
| HelpLink.HRef = "#" | |
| End If | |
| If Not String.IsNullOrEmpty(ConfigurationManager.AppSettings("SpeechFilesDir")) Then | |
| Me.SpeechFilesDir = Request.MapPath(ConfigurationManager.AppSettings("SpeechFilesDir")) | |
| End If | |
| If Not IsPostBack Then | |
| If Not String.IsNullOrEmpty(ConfigurationManager.AppSettings("SpeechContext")) Then | |
| Dim speechContexts As String() = ConfigurationManager.AppSettings("SpeechContext").ToString().Split(";"c) | |
| For Each speechContext__1 As String In speechContexts | |
| SpeechContext.Items.Add(speechContext__1) | |
| Next | |
| If speechContexts.Length > 0 Then | |
| SpeechContext.Items(0).Selected = True | |
| End If | |
| End If | |
| If Not String.IsNullOrEmpty(ConfigurationManager.AppSettings("X-ArgGeneric")) Then | |
| x_arg.Text = ConfigurationManager.AppSettings("X-ArgGeneric") | |
| End If | |
| If Not String.IsNullOrEmpty(SpeechFilesDir) Then | |
| Dim filePaths As String() = Directory.GetFiles(Me.SpeechFilesDir) | |
| For Each filePath As String In filePaths | |
| audio_file.Items.Add(Path.GetFileName(filePath)) | |
| Next | |
| If filePaths.Length > 0 Then | |
| audio_file.Items(0).Selected = True | |
| End If | |
| End If | |
| End If | |
| Return True | |
| End Function | |
| Private Sub setXArgsContent() | |
| x_subContext.Text = "" | |
| If IsPostBack Then | |
| If String.Compare(SpeechContext.SelectedValue, "TV") = 0 Then | |
| x_arg.Text = ConfigurationManager.AppSettings("X-ArgGeneric") + "," + ConfigurationManager.AppSettings("X-ArgTV") | |
| ElseIf String.Compare(SpeechContext.SelectedValue, "SocialMedia") = 0 Then | |
| x_arg.Text = ConfigurationManager.AppSettings("X-ArgGeneric") + "," + ConfigurationManager.AppSettings("X-ArgGenericSocialMedia") | |
| ElseIf String.Compare(SpeechContext.SelectedValue, "Gaming") = 0 Then | |
| x_arg.Text = ConfigurationManager.AppSettings("X-ArgGeneric") + "," + ConfigurationManager.AppSettings("X-ArgGenericGaming") | |
| x_subContext.Text = ConfigurationManager.AppSettings("X-SpeechSubContext") | |
| End If | |
| End If | |
| End Sub | |
| ' | |
| ' private string setXArgDataForRequest() | |
| ' { | |
| ' string xargDataString = string.Empty; | |
| ' string[] keyValue = x_arg.Text.Split(','); | |
| ' KeyValuePair<string, string> keyvalueSeparated = new KeyValuePair<string, string>(); | |
| ' | |
| ' return xargDataString; | |
| ' } | |
| ' | |
| ''' <summary> | |
| ''' This function reads the Access Token File and stores the values of access token, expiry seconds | |
| ''' refresh token, last access token time and refresh token expiry time | |
| ''' This funciton returns true, if access token file and all others attributes read successfully otherwise returns false | |
| ''' </summary> | |
| ''' <param name="panelParam">Panel Details</param> | |
| ''' <returns>Returns boolean</returns> | |
| Private Function ReadAccessTokenFile(ByRef message As String) As Boolean | |
| Dim fileStream As FileStream = Nothing | |
| Dim streamReader As StreamReader = Nothing | |
| Try | |
| fileStream = New FileStream(Request.MapPath(Me.accessTokenFilePath), FileMode.OpenOrCreate, FileAccess.Read) | |
| streamReader = New StreamReader(fileStream) | |
| Me.accessToken = streamReader.ReadLine() | |
| Me.accessTokenExpiryTime = streamReader.ReadLine() | |
| Me.refreshToken = streamReader.ReadLine() | |
| Me.refreshTokenExpiryTime = streamReader.ReadLine() | |
| Catch ex As Exception | |
| message = ex.Message | |
| Return False | |
| Finally | |
| If streamReader IsNot Nothing Then | |
| streamReader.Close() | |
| End If | |
| If fileStream IsNot Nothing Then | |
| fileStream.Close() | |
| End If | |
| End Try | |
| If (Me.accessToken Is Nothing) OrElse (Me.accessTokenExpiryTime Is Nothing) OrElse (Me.refreshToken Is Nothing) OrElse (Me.refreshTokenExpiryTime Is Nothing) Then | |
| Return False | |
| End If | |
| Return True | |
| End Function | |
| ''' <summary> | |
| ''' This function validates the expiry of the access token and refresh token. | |
| ''' function compares the current time with the refresh token taken time, if current time is greater then returns INVALID_REFRESH_TOKEN | |
| ''' function compares the difference of last access token taken time and the current time with the expiry seconds, if its more, returns INVALID_ACCESS_TOKEN | |
| ''' otherwise returns VALID_ACCESS_TOKEN | |
| ''' </summary> | |
| ''' <returns>string, which specifies the token validity</returns> | |
| Private Function IsTokenValid() As String | |
| Try | |
| Dim currentServerTime As DateTime = DateTime.UtcNow.ToLocalTime() | |
| If currentServerTime >= DateTime.Parse(Me.accessTokenExpiryTime) Then | |
| If currentServerTime >= DateTime.Parse(Me.refreshTokenExpiryTime) Then | |
| Return "INVALID_ACCESS_TOKEN" | |
| Else | |
| Return "REFRESH_TOKEN" | |
| End If | |
| Else | |
| Return "VALID_ACCESS_TOKEN" | |
| End If | |
| Catch | |
| Return "INVALID_ACCESS_TOKEN" | |
| End Try | |
| End Function | |
| ''' <summary> | |
| ''' This function get the access token based on the type parameter type values. | |
| ''' If type value is 1, access token is fetch for client credential flow | |
| ''' If type value is 2, access token is fetch for client credential flow based on the exisiting refresh token | |
| ''' </summary> | |
| ''' <param name="type">Type as integer</param> | |
| ''' <param name="panelParam">Panel details</param> | |
| ''' <returns>Return boolean</returns> | |
| Private Function GetAccessToken(type As AccessType, ByRef message As String) As Boolean | |
| Dim fileStream As FileStream = Nothing | |
| Dim postStream As Stream = Nothing | |
| Dim streamWriter As StreamWriter = Nothing | |
| ' This is client credential flow | |
| If type = AccessType.ClientCredential Then | |
| Try | |
| Dim currentServerTime As DateTime = DateTime.UtcNow.ToLocalTime() | |
| Dim accessTokenRequest As WebRequest = System.Net.HttpWebRequest.Create(String.Empty & Me.fqdn & "/oauth/token") | |
| accessTokenRequest.Method = "POST" | |
| Dim oauthParameters As String = String.Empty | |
| If type = AccessType.ClientCredential Then | |
| oauthParameters = "client_id=" & Me.apiKey & "&client_secret=" & Me.secretKey & "&grant_type=client_credentials&scope=" & Me.scope | |
| Else | |
| oauthParameters = "grant_type=refresh_token&client_id=" & Me.apiKey & "&client_secret=" & Me.secretKey & "&refresh_token=" & Me.refreshToken | |
| End If | |
| accessTokenRequest.ContentType = "application/x-www-form-urlencoded" | |
| Dim encoding As New UTF8Encoding() | |
| Dim postBytes As Byte() = encoding.GetBytes(oauthParameters) | |
| accessTokenRequest.ContentLength = postBytes.Length | |
| postStream = accessTokenRequest.GetRequestStream() | |
| postStream.Write(postBytes, 0, postBytes.Length) | |
| Dim accessTokenResponse As WebResponse = accessTokenRequest.GetResponse() | |
| Using accessTokenResponseStream As New StreamReader(accessTokenResponse.GetResponseStream()) | |
| Dim jsonAccessToken As String = accessTokenResponseStream.ReadToEnd().ToString() | |
| Dim deserializeJsonObject As New JavaScriptSerializer() | |
| Dim deserializedJsonObj As AccessTokenResponse = DirectCast(deserializeJsonObject.Deserialize(jsonAccessToken, GetType(AccessTokenResponse)), AccessTokenResponse) | |
| Me.accessToken = deserializedJsonObj.access_token | |
| Me.accessTokenExpiryTime = currentServerTime.AddSeconds(Convert.ToDouble(deserializedJsonObj.expires_in)).ToString() | |
| Me.refreshToken = deserializedJsonObj.refresh_token | |
| Dim refreshExpiry As DateTime = currentServerTime.AddHours(Me.refreshTokenExpiresIn) | |
| If deserializedJsonObj.expires_in.Equals("0") Then | |
| Dim defaultAccessTokenExpiresIn As Integer = 100 | |
| ' In Yearsint yearsToAdd = 100; | |
| Me.accessTokenExpiryTime = currentServerTime.AddYears(defaultAccessTokenExpiresIn).ToLongDateString() & " " & currentServerTime.AddYears(defaultAccessTokenExpiresIn).ToLongTimeString() | |
| End If | |
| Me.refreshTokenExpiryTime = refreshExpiry.ToLongDateString() & " " & refreshExpiry.ToLongTimeString() | |
| fileStream = New FileStream(Request.MapPath(Me.accessTokenFilePath), FileMode.OpenOrCreate, FileAccess.Write) | |
| streamWriter = New StreamWriter(fileStream) | |
| streamWriter.WriteLine(Me.accessToken) | |
| streamWriter.WriteLine(Me.accessTokenExpiryTime) | |
| streamWriter.WriteLine(Me.refreshToken) | |
| streamWriter.WriteLine(Me.refreshTokenExpiryTime) | |
| ' Close and clean up the StreamReader | |
| accessTokenResponseStream.Close() | |
| Return True | |
| End Using | |
| Catch we As WebException | |
| Dim errorResponse As String = String.Empty | |
| Try | |
| Using sr2 As New StreamReader(we.Response.GetResponseStream()) | |
| errorResponse = sr2.ReadToEnd() | |
| sr2.Close() | |
| End Using | |
| Catch | |
| errorResponse = "Unable to get response" | |
| End Try | |
| message = errorResponse & Environment.NewLine & we.ToString() | |
| Catch ex As Exception | |
| message = ex.Message | |
| Return False | |
| Finally | |
| If postStream IsNot Nothing Then | |
| postStream.Close() | |
| End If | |
| If streamWriter IsNot Nothing Then | |
| streamWriter.Close() | |
| End If | |
| If fileStream IsNot Nothing Then | |
| fileStream.Close() | |
| End If | |
| End Try | |
| ElseIf type = AccessType.RefreshToken Then | |
| Try | |
| Dim currentServerTime As DateTime = DateTime.UtcNow.ToLocalTime() | |
| Dim accessTokenRequest As WebRequest = System.Net.HttpWebRequest.Create(String.Empty & Me.fqdn & "/oauth/token") | |
| accessTokenRequest.Method = "POST" | |
| Dim oauthParameters As String = "grant_type=refresh_token&client_id=" & Me.apiKey & "&client_secret=" & Me.secretKey & "&refresh_token=" & Me.refreshToken | |
| accessTokenRequest.ContentType = "application/x-www-form-urlencoded" | |
| Dim encoding As New UTF8Encoding() | |
| Dim postBytes As Byte() = encoding.GetBytes(oauthParameters) | |
| accessTokenRequest.ContentLength = postBytes.Length | |
| postStream = accessTokenRequest.GetRequestStream() | |
| postStream.Write(postBytes, 0, postBytes.Length) | |
| Dim accessTokenResponse As WebResponse = accessTokenRequest.GetResponse() | |
| Using accessTokenResponseStream As New StreamReader(accessTokenResponse.GetResponseStream()) | |
| Dim accessTokenJSon As String = accessTokenResponseStream.ReadToEnd().ToString() | |
| Dim deserializeJsonObject As New JavaScriptSerializer() | |
| Dim deserializedJsonObj As AccessTokenResponse = DirectCast(deserializeJsonObject.Deserialize(accessTokenJSon, GetType(AccessTokenResponse)), AccessTokenResponse) | |
| Me.accessToken = deserializedJsonObj.access_token.ToString() | |
| Dim accessTokenExpiryTime As DateTime = currentServerTime.AddMilliseconds(Convert.ToDouble(deserializedJsonObj.expires_in.ToString())) | |
| Me.refreshToken = deserializedJsonObj.refresh_token.ToString() | |
| fileStream = New FileStream(Request.MapPath(Me.accessTokenFilePath), FileMode.OpenOrCreate, FileAccess.Write) | |
| streamWriter = New StreamWriter(fileStream) | |
| streamWriter.WriteLine(Me.accessToken) | |
| streamWriter.WriteLine(Me.accessTokenExpiryTime) | |
| streamWriter.WriteLine(Me.refreshToken) | |
| ' Refresh token valids for 24 hours | |
| Dim refreshExpiry As DateTime = currentServerTime.AddHours(24) | |
| Me.refreshTokenExpiryTime = refreshExpiry.ToLongDateString() & " " & refreshExpiry.ToLongTimeString() | |
| streamWriter.WriteLine(refreshExpiry.ToLongDateString() & " " & refreshExpiry.ToLongTimeString()) | |
| accessTokenResponseStream.Close() | |
| Return True | |
| End Using | |
| Catch we As WebException | |
| Dim errorResponse As String = String.Empty | |
| Try | |
| Using sr2 As New StreamReader(we.Response.GetResponseStream()) | |
| errorResponse = sr2.ReadToEnd() | |
| sr2.Close() | |
| End Using | |
| Catch | |
| errorResponse = "Unable to get response" | |
| End Try | |
| message = errorResponse & Environment.NewLine & we.ToString() | |
| Catch ex As Exception | |
| message = ex.Message | |
| Return False | |
| Finally | |
| If postStream IsNot Nothing Then | |
| postStream.Close() | |
| End If | |
| If streamWriter IsNot Nothing Then | |
| streamWriter.Close() | |
| End If | |
| If fileStream IsNot Nothing Then | |
| fileStream.Close() | |
| End If | |
| End Try | |
| End If | |
| Return False | |
| End Function | |
| ''' <summary> | |
| ''' Neglect the ssl handshake error with authentication server | |
| ''' </summary> | |
| Function CertificateValidationCallBack( _ | |
| ByVal sender As Object, _ | |
| ByVal certificate As X509Certificate, _ | |
| ByVal chain As X509Chain, _ | |
| ByVal sslPolicyErrors As SslPolicyErrors _ | |
| ) As Boolean | |
| Return True | |
| End Function | |
| ''' <summary> | |
| ''' This function is used to read access token file and validate the access token | |
| ''' this function returns true if access token is valid, or else false is returned | |
| ''' </summary> | |
| ''' <param name="panelParam">Panel Details</param> | |
| ''' <returns>Returns Boolean</returns> | |
| Private Function ReadAndGetAccessToken(ByRef responseString As String) As Boolean | |
| Dim result As Boolean = True | |
| If Me.ReadAccessTokenFile(responseString) = False Then | |
| result = Me.GetAccessToken(AccessType.ClientCredential, responseString) | |
| Else | |
| Dim tokenValidity As String = Me.IsTokenValid() | |
| If tokenValidity = "REFRESH_TOKEN" Then | |
| result = Me.GetAccessToken(AccessType.RefreshToken, responseString) | |
| ElseIf String.Compare(tokenValidity, "INVALID_ACCESS_TOKEN") = 0 Then | |
| result = Me.GetAccessToken(AccessType.ClientCredential, responseString) | |
| End If | |
| End If | |
| If Me.accessToken Is Nothing OrElse Me.accessToken.Length <= 0 Then | |
| Return False | |
| Else | |
| Return result | |
| End If | |
| End Function | |
| #End Region | |
| #Region "Display status Functions" | |
| Private Sub DrawPanelForSuccess(control As HtmlGenericControl) | |
| control.Attributes.Add("class", "successWide") | |
| control.InnerHtml = "<strong>SUCCESS:</strong><br/>" & "Response parameters listed below." | |
| control.Visible = True | |
| End Sub | |
| #End Region | |
| #Region "Speech Service Functions" | |
| ''' <summary> | |
| ''' Content type based on the file extension. | |
| ''' </summary> | |
| ''' <param name="extension">file extension</param> | |
| ''' <returns>the Content type mapped to the extension"/> summed memory stream</returns> | |
| Private Function MapContentTypeFromExtension(extension As String) As String | |
| Dim extensionToContentTypeMapping As New Dictionary(Of String, String)() From { _ | |
| {".amr", "audio/amr"}, _ | |
| {".wav", "audio/wav"}, _ | |
| {".awb", "audio/amr-wb"}, _ | |
| {".spx", "audio/x-speex"} _ | |
| } | |
| If extensionToContentTypeMapping.ContainsKey(extension) Then | |
| Return extensionToContentTypeMapping(extension) | |
| Else | |
| Throw New ArgumentException("invalid attachment extension") | |
| End If | |
| End Function | |
| ''' <summary> | |
| ''' This function invokes api SpeechToText to convert the given wav amr file and displays the result. | |
| ''' </summary> | |
| Private Sub ConvertToSpeech(parEndPoint As String, parAccessToken As String, parXspeechContext As String, parXArgs As String, parSpeechFilePath As String, parChunked As Boolean) | |
| Dim postStream As Stream = Nothing | |
| Dim audioFileStream As FileStream = Nothing | |
| Try | |
| audioFileStream = New FileStream(parSpeechFilePath, FileMode.Open, FileAccess.Read) | |
| Dim reader As New BinaryReader(audioFileStream) | |
| Dim binaryData As Byte() = reader.ReadBytes(CInt(audioFileStream.Length)) | |
| reader.Close() | |
| audioFileStream.Close() | |
| If binaryData IsNot Nothing Then | |
| Dim httpRequest As HttpWebRequest = DirectCast(WebRequest.Create(String.Empty & parEndPoint), HttpWebRequest) | |
| httpRequest.Headers.Add("Authorization", "Bearer " & parAccessToken) | |
| httpRequest.Headers.Add("X-SpeechContext", parXspeechContext) | |
| If Not String.IsNullOrEmpty(parXArgs) Then | |
| httpRequest.Headers.Add("X-Arg", parXArgs) | |
| End If | |
| Dim contentType As String = Me.MapContentTypeFromExtension(Path.GetExtension(parSpeechFilePath)) | |
| httpRequest.ContentLength = binaryData.Length | |
| httpRequest.ContentType = contentType | |
| httpRequest.Accept = "application/json" | |
| httpRequest.Method = "POST" | |
| httpRequest.KeepAlive = True | |
| httpRequest.SendChunked = parChunked | |
| postStream = httpRequest.GetRequestStream() | |
| postStream.Write(binaryData, 0, binaryData.Length) | |
| postStream.Close() | |
| Dim speechResponse As HttpWebResponse = DirectCast(httpRequest.GetResponse(), HttpWebResponse) | |
| Using streamReader As New StreamReader(speechResponse.GetResponseStream()) | |
| Dim speechRequestResponse As String = streamReader.ReadToEnd() | |
| 'if (string.Compare(SpeechContext.SelectedValue, "TV") == 0) | |
| ' { | |
| ' speechErrorMessage = speechRequestResponse; | |
| ' streamReader.Close(); | |
| ' return; | |
| ' } | |
| If Not String.IsNullOrEmpty(speechRequestResponse) Then | |
| Dim deserializeJsonObject As New JavaScriptSerializer() | |
| Dim deserializedJsonObj As SpeechResponse = DirectCast(deserializeJsonObject.Deserialize(speechRequestResponse, GetType(SpeechResponse)), SpeechResponse) | |
| If deserializedJsonObj IsNot Nothing Then | |
| speechResponseData = New SpeechResponse() | |
| speechResponseData = deserializedJsonObj | |
| 'speechErrorMessage = speechRequestResponse; | |
| speechSuccessMessage = "true" | |
| Else | |
| speechErrorMessage = "Empty speech to text response" | |
| End If | |
| Else | |
| speechErrorMessage = "Empty speech to text response" | |
| End If | |
| streamReader.Close() | |
| End Using | |
| Else | |
| speechErrorMessage = "Empty speech to text response" | |
| End If | |
| Catch we As WebException | |
| Dim errorResponse As String = String.Empty | |
| Try | |
| Using sr2 As New StreamReader(we.Response.GetResponseStream()) | |
| errorResponse = sr2.ReadToEnd() | |
| sr2.Close() | |
| End Using | |
| Catch | |
| errorResponse = "Unable to get response" | |
| End Try | |
| speechErrorMessage = errorResponse | |
| Catch ex As Exception | |
| speechErrorMessage = ex.ToString() | |
| Finally | |
| If postStream IsNot Nothing Then | |
| postStream.Close() | |
| End If | |
| End Try | |
| End Sub | |
| #End Region | |
| End Class | |
| #Region "Access Token and Speech Response Data Structures" | |
| ''' <summary> | |
| ''' Access Token Data Structure | |
| ''' </summary> | |
| Public Class AccessTokenResponse | |
| ''' <summary> | |
| ''' Gets or sets Access Token ID | |
| ''' </summary> | |
| Public Property access_token() As String | |
| Get | |
| Return m_access_token | |
| End Get | |
| Set(value As String) | |
| m_access_token = Value | |
| End Set | |
| End Property | |
| Private m_access_token As String | |
| ''' <summary> | |
| ''' Gets or sets Refresh Token ID | |
| ''' </summary> | |
| Public Property refresh_token() As String | |
| Get | |
| Return m_refresh_token | |
| End Get | |
| Set(value As String) | |
| m_refresh_token = Value | |
| End Set | |
| End Property | |
| Private m_refresh_token As String | |
| ''' <summary> | |
| ''' Gets or sets Expires in milli seconds | |
| ''' </summary> | |
| Public Property expires_in() As String | |
| Get | |
| Return m_expires_in | |
| End Get | |
| Set(value As String) | |
| m_expires_in = Value | |
| End Set | |
| End Property | |
| Private m_expires_in As String | |
| End Class | |
| ''' <summary> | |
| ''' Speech Response to an audio file | |
| ''' </summary> | |
| Public Class SpeechResponse | |
| ''' <summary> | |
| ''' Gets or sets the Recognition value returned by api | |
| ''' </summary> | |
| Public Property Recognition() As Recognition | |
| Get | |
| Return m_Recognition | |
| End Get | |
| Set(value As Recognition) | |
| m_Recognition = Value | |
| End Set | |
| End Property | |
| Private m_Recognition As Recognition | |
| End Class | |
| ''' <summary> | |
| ''' Recognition returned by the server for Speech to text request. | |
| ''' </summary> | |
| Public Class Recognition | |
| ''' <summary> | |
| ''' Gets or sets a unique string that identifies this particular transaction. | |
| ''' </summary> | |
| Public Property ResponseId() As String | |
| Get | |
| Return m_ResponseId | |
| End Get | |
| Set(value As String) | |
| m_ResponseId = Value | |
| End Set | |
| End Property | |
| Private m_ResponseId As String | |
| ''' <summary> | |
| ''' Gets or sets NBest Complex structure that holds the results of the transcription. Supports multiple transcriptions. | |
| ''' </summary> | |
| Public Property NBest() As List(Of NBest) | |
| Get | |
| Return m_NBest | |
| End Get | |
| Set(value As List(Of NBest)) | |
| m_NBest = Value | |
| End Set | |
| End Property | |
| Private m_NBest As List(Of NBest) | |
| ''' <summary> | |
| ''' Gets or sets the Status of the transcription. | |
| ''' </summary> | |
| Public Property Status() As String | |
| Get | |
| Return m_Status | |
| End Get | |
| Set(value As String) | |
| m_Status = Value | |
| End Set | |
| End Property | |
| Private m_Status As String | |
| '''<summary> | |
| ''' Gets or sets the Info | |
| ''' </summary> | |
| Public Property Info() As SpeechInfo | |
| Get | |
| Return m_Info | |
| End Get | |
| Set(value As SpeechInfo) | |
| m_Info = Value | |
| End Set | |
| End Property | |
| Private m_Info As SpeechInfo | |
| End Class | |
| Public Class SpeechInfo | |
| Public Property version() As String | |
| Get | |
| Return m_version | |
| End Get | |
| Set(value As String) | |
| m_version = Value | |
| End Set | |
| End Property | |
| Private m_version As String | |
| Public Property actionType() As String | |
| Get | |
| Return m_actionType | |
| End Get | |
| Set(value As String) | |
| m_actionType = Value | |
| End Set | |
| End Property | |
| Private m_actionType As String | |
| Public Property metrics() As Dictionary(Of String, String) | |
| Get | |
| Return m_metrics | |
| End Get | |
| Set(value As Dictionary(Of String, String)) | |
| m_metrics = Value | |
| End Set | |
| End Property | |
| Private m_metrics As Dictionary(Of String, String) | |
| Public Property interpretation() As Dictionary(Of String, String) | |
| Get | |
| Return m_interpretation | |
| End Get | |
| Set(value As Dictionary(Of String, String)) | |
| m_interpretation = Value | |
| End Set | |
| End Property | |
| Private m_interpretation As Dictionary(Of String, String) | |
| Public Property recognized() As String | |
| Get | |
| Return m_recognized | |
| End Get | |
| Set(value As String) | |
| m_recognized = Value | |
| End Set | |
| End Property | |
| Private m_recognized As String | |
| Public Property search() As SpeechSearch | |
| Get | |
| Return m_search | |
| End Get | |
| Set(value As SpeechSearch) | |
| m_search = Value | |
| End Set | |
| End Property | |
| Private m_search As SpeechSearch | |
| End Class | |
| Public Class SpeechSearch | |
| Public Property meta() As Dictionary(Of String, String) | |
| Get | |
| Return m_meta | |
| End Get | |
| Set(value As Dictionary(Of String, String)) | |
| m_meta = Value | |
| End Set | |
| End Property | |
| Private m_meta As Dictionary(Of String, String) | |
| Public Property programs() As Dictionary(Of String, String) | |
| Get | |
| Return m_programs | |
| End Get | |
| Set(value As Dictionary(Of String, String)) | |
| m_programs = Value | |
| End Set | |
| End Property | |
| Private m_programs As Dictionary(Of String, String) | |
| Public Property showTimes() As Dictionary(Of String, String) | |
| Get | |
| Return m_showTimes | |
| End Get | |
| Set(value As Dictionary(Of String, String)) | |
| m_showTimes = Value | |
| End Set | |
| End Property | |
| Private m_showTimes As Dictionary(Of String, String) | |
| End Class | |
| ''' <summary> | |
| ''' Complex structure that holds the results of the transcription. Supports multiple transcriptions. | |
| ''' </summary> | |
| Public Class NBest | |
| ''' <summary> | |
| ''' Gets or sets the transcription of the audio. | |
| ''' </summary> | |
| Public Property Hypothesis() As String | |
| Get | |
| Return m_Hypothesis | |
| End Get | |
| Set(value As String) | |
| m_Hypothesis = Value | |
| End Set | |
| End Property | |
| Private m_Hypothesis As String | |
| ''' <summary> | |
| ''' Gets or sets the language used to decode the Hypothesis. | |
| ''' Represented using the two-letter ISO 639 language code, hyphen, two-letter ISO 3166 country code in lower case, e.g. “en-us”. | |
| ''' </summary> | |
| Public Property LanguageId() As String | |
| Get | |
| Return m_LanguageId | |
| End Get | |
| Set(value As String) | |
| m_LanguageId = Value | |
| End Set | |
| End Property | |
| Private m_LanguageId As String | |
| ''' <summary> | |
| ''' Gets or sets the confidence value of the Hypothesis, a value between 0.0 and 1.0 inclusive. | |
| ''' </summary> | |
| Public Property Confidence() As Double | |
| Get | |
| Return m_Confidence | |
| End Get | |
| Set(value As Double) | |
| m_Confidence = Value | |
| End Set | |
| End Property | |
| Private m_Confidence As Double | |
| ''' <summary> | |
| ''' Gets or sets a machine-readable string indicating an assessment of utterance/result quality and the recommended treatment of the Hypothesis. | |
| ''' The assessment reflects a confidence region based on prior experience with similar results. | |
| ''' accept - the hypothesis value has acceptable confidence | |
| ''' confirm - the hypothesis should be independently confirmed due to lower confidence | |
| ''' reject - the hypothesis should be rejected due to low confidence | |
| ''' </summary> | |
| Public Property Grade() As String | |
| Get | |
| Return m_Grade | |
| End Get | |
| Set(value As String) | |
| m_Grade = Value | |
| End Set | |
| End Property | |
| Private m_Grade As String | |
| ''' <summary> | |
| ''' Gets or sets a text string prepared according to the output domain of the application package. | |
| ''' The string will generally be a formatted version of the hypothesis, but the words may have been altered through | |
| ''' insertions/deletions/substitutions to make the result more readable or usable for the client. | |
| ''' </summary> | |
| Public Property ResultText() As String | |
| Get | |
| Return m_ResultText | |
| End Get | |
| Set(value As String) | |
| m_ResultText = Value | |
| End Set | |
| End Property | |
| Private m_ResultText As String | |
| ''' <summary> | |
| ''' Gets or sets the words of the Hypothesis split into separate strings. | |
| ''' May omit some of the words of the Hypothesis string, and can be empty. Never contains words not in hypothesis string. | |
| ''' </summary> | |
| Public Property Words() As List(Of String) | |
| Get | |
| Return m_Words | |
| End Get | |
| Set(value As List(Of String)) | |
| m_Words = Value | |
| End Set | |
| End Property | |
| Private m_Words As List(Of String) | |
| ''' <summary> | |
| ''' Gets or sets the confidence scores for each of the strings in the words array. Each value ranges from 0.0 to 1.0 inclusive. | |
| ''' </summary> | |
| Public Property WordScores() As List(Of Double) | |
| Get | |
| Return m_WordScores | |
| End Get | |
| Set(value As List(Of Double)) | |
| m_WordScores = Value | |
| End Set | |
| End Property | |
| Private m_WordScores As List(Of Double) | |
| Public Property NluHypothesis() As Dictionary(Of String, String) | |
| Get | |
| Return m_NluHypothesis | |
| End Get | |
| Set(value As Dictionary(Of String, String)) | |
| m_NluHypothesis = Value | |
| End Set | |
| End Property | |
| Private m_NluHypothesis As Dictionary(Of String, String) | |
| End Class | |
| #End Region |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| | |
| Microsoft Visual Studio Solution File, Format Version 11.00 | |
| # Visual Studio 2010 | |
| Project("{E24C65DC-7377-472B-9ABA-BC803B73C61A}") = "app1", ".", "{BEB237FB-A091-4374-A89D-03E2B0F4EA36}" | |
| ProjectSection(WebsiteProperties) = preProject | |
| TargetFrameworkMoniker = ".NETFramework,Version%3Dv4.0" | |
| Debug.AspNetCompiler.VirtualPath = "/app1" | |
| Debug.AspNetCompiler.PhysicalPath = "..\app1\" | |
| Debug.AspNetCompiler.TargetPath = "PrecompiledWeb\app1\" | |
| Debug.AspNetCompiler.Updateable = "true" | |
| Debug.AspNetCompiler.ForceOverwrite = "true" | |
| Debug.AspNetCompiler.FixedNames = "false" | |
| Debug.AspNetCompiler.Debug = "True" | |
| Release.AspNetCompiler.VirtualPath = "/app1" | |
| Release.AspNetCompiler.PhysicalPath = "..\app1\" | |
| Release.AspNetCompiler.TargetPath = "PrecompiledWeb\app1\" | |
| Release.AspNetCompiler.Updateable = "true" | |
| Release.AspNetCompiler.ForceOverwrite = "true" | |
| Release.AspNetCompiler.FixedNames = "false" | |
| Release.AspNetCompiler.Debug = "False" | |
| VWDPort = "49574" | |
| EndProjectSection | |
| EndProject | |
| Global | |
| GlobalSection(SolutionConfigurationPlatforms) = preSolution | |
| Debug|Any CPU = Debug|Any CPU | |
| EndGlobalSection | |
| GlobalSection(ProjectConfigurationPlatforms) = postSolution | |
| {BEB237FB-A091-4374-A89D-03E2B0F4EA36}.Debug|Any CPU.ActiveCfg = Debug|Any CPU | |
| {BEB237FB-A091-4374-A89D-03E2B0F4EA36}.Debug|Any CPU.Build.0 = Debug|Any CPU | |
| EndGlobalSection | |
| GlobalSection(SolutionProperties) = preSolution | |
| HideSolutionNode = FALSE | |
| EndGlobalSection | |
| EndGlobal |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <?xml version="1.0"?> | |
| <!-- For more information on how to configure your ASP.NET application, please visit | |
| http://go.microsoft.com/fwlink/?LinkId=169433 --> | |
| <configuration> | |
| <system.web> | |
| <compilation debug="true" targetFramework="4.0"/> | |
| <customErrors mode="Off"></customErrors> | |
| </system.web> | |
| <appSettings> | |
| <!-- Set this parameter value to "true", if you need to bypass the SSL certificate. Default FALSE --> | |
| <add key="IgnoreSSL" value="false"/> | |
| <!-- This is mandatory parameter, set the value as per your registered application | |
| 'API key' field value. --> | |
| <add key="api_key" value=""/> | |
| <!-- This is mandatory parameter, set the value as per your registered application | |
| 'Secret key' field value. --> | |
| <add key="secret_key" value=""/> | |
| <!-- This is mandatory parameter, set it to the end point URI of AT&T Service. --> | |
| <add key="FQDN" value=""></add> | |
| <!-- Scope of the ATT service that will be invoked by the Application --> | |
| <add key="scope" value="SPEECH"/> | |
| <!-- This is optional parameter, which points to the file path, where application | |
| stores access token information. If the parameter is not configured, it will take | |
| the default value as ~\\SpeechApp1AccessToken.txt) | |
| example: value="~\\Token.txt" --> | |
| <add key="AccessTokenFilePath" value =""/> | |
| <!-- This is mandatory parameter, which points to the directory which contains | |
| only speech files. The filenames of this directory will be listed in drop down list. | |
| example: value="~\\<SpeechFilesDirPath>\\" --> | |
| <add key="SpeechFilesDir" value =""/> | |
| <!-- This is optional key, which specifies the expiry time of refresh token in Hrs. Default value is 24Hrs. | |
| example: value="24"--> | |
| <add key="refreshTokenExpiresIn" value=""/> | |
| <!-- This is optional key, the value of the this key is sent as a X-Agr hearder. | |
| which should contain name value pair separated by semicolan Ex: name=value,name1=value1 --> | |
| <add key="X-ArgGeneric" value="ClientApp=VbClientApp,ClientVersion=2_2,ClientScreen=Browser,ClientSdk=VbRestful,DeviceType=WebServer,DeviceOs=Windows"/> | |
| <add key="X-ArgSocialMedia" value="facebook%2Ctwitter%2CCreditt"/> | |
| <add key="X-ArgTV" value="DeviceId=123456,NumResults=10"/> | |
| <add key="X-ArgGaming" value="PunctuateFlag=false"/> | |
| <add key="X-SpeechSubContext" value="Chat"/> | |
| <!-- This is mandatory key, the value of the this key is used to populate Speech Context drop down list. | |
| The value of this key should contain list of speech context values separated by semicolan --> | |
| <add key="SpeechContext" value="Generic;TV;BusinessSearch;Websearch;SMS;Voicemail;QuestionAndAnswer;Gaming;SocialMedia"/> | |
| <!-- These are optional keys. the values are used for hyperlink --> | |
| <add key="SourceLink" value=""/> | |
| <add key="DownloadLink" value=""/> | |
| <add key="HelpLink" value=""/> | |
| </appSettings> | |
| </configuration> |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment