Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual Basic 6.0) VoiceBase -- Retrieve Plain Text TranscriptRetrieves a plain text transcript for a media file.
' This example assumes the Chilkat HTTP API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' Insert your Bearer token here: Dim accessToken As String accessToken = "VOICEBASE_TOKEN" Dim http As New ChilkatHttp ' Add the access (bearer) token to the request, which is a header ' having the following format: ' Authorization: Bearer <userAccessToken> Dim sbAuth As New ChilkatStringBuilder success = sbAuth.Append("Bearer ") success = sbAuth.Append(accessToken) http.SetRequestHeader "Authorization",sbAuth.GetAsString() Dim sbUrl As New ChilkatStringBuilder success = sbUrl.Append("https://apis.voicebase.com/v2-beta/media/$MEDIA_ID/transcripts/latest") Dim replaceCount As Long replaceCount = sbUrl.Replace("$MEDIA_ID","f9b9bb88-d52c-4960-bcef-d516a9f85594") http.Accept = "text/plain" Dim strText As String strText = http.QuickGetStr(sbUrl.GetAsString()) If (http.LastMethodSuccess <> 1) Then Debug.Print http.LastErrorText Exit Sub End If Debug.Print "Response status code = " & http.LastStatus Debug.Print strText If (http.LastStatus <> 200) Then Debug.Print "Failed" Else Debug.Print "Success" End If |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.