Visual FoxPro

VoiceBase -- Retrieve Plain Text Transcript

See more VoiceBase Examples

Retrieves a plain text transcript for a media file. Visual FoxPro

LOCAL lcAccessToken
LOCAL loHttp
LOCAL loSbAuth
LOCAL loSbUrl
LOCAL lnReplaceCount
LOCAL lcStrText

* This example assumes the Chilkat HTTP API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* Insert your Bearer token here:
lcAccessToken = "VOICEBASE_TOKEN"

loHttp = CreateObject('Chilkat.Http')

* Add the access (bearer) token to the request, which is a header
* having the following format:
* Authorization: Bearer <userAccessToken>
loSbAuth = CreateObject('Chilkat.StringBuilder')
loSbAuth.Append("Bearer ")
loSbAuth.Append(lcAccessToken)
loHttp.SetRequestHeader("Authorization",loSbAuth.GetAsString())

loSbUrl = CreateObject('Chilkat.StringBuilder')
loSbUrl.Append("https://apis.voicebase.com/v2-beta/media/$MEDIA_ID/transcripts/latest")
lnReplaceCount = loSbUrl.Replace("$MEDIA_ID","f9b9bb88-d52c-4960-bcef-d516a9f85594")

loHttp.Accept = "text/plain"

lcStrText = loHttp.QuickGetStr(loSbUrl.GetAsString())
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loSbAuth
    RELEASE loSbUrl
    CANCEL
ENDIF

? "Response status code = " + STR(loHttp.LastStatus)
? lcStrText

IF (loHttp.LastStatus <> 200) THEN
    ? "Failed"
ELSE
    ? "Success"
ENDIF

RELEASE loHttp
RELEASE loSbAuth
RELEASE loSbUrl