(Tcl) IBM Cloud - Text to Speech - Synthesize Audio (GET)

Synthesizes text to audio that is spoken in the specified voice.

For more information, see https://cloud.ibm.com/apidocs/text-to-speech#synthesize-audio-get

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

CkHttp_put_Login $http "apikey"
CkHttp_put_Password $http "my_apikey"
CkHttp_put_BasicAuth $http 1

# Use your base URL shown in the credentials web page (below your apikey)
set myBaseUrl "https://api.us-south.text-to-speech.watson.cloud.ibm.com/instances/31941e96-7b89-4d56-8993-9cd8f18ec2d8"

set sbUrl [new_CkStringBuilder]

CkStringBuilder_Append $sbUrl $myBaseUrl
CkStringBuilder_Append $sbUrl "/v1/synthesize?accept=ACCEPT_TYPE&voice=CHOSEN_VOICE&text=TEXT_TO_SYNTHESIZE"

# Choose "audio/wav" for the output file type.
set numReplaced [CkStringBuilder_Replace $sbUrl "ACCEPT_TYPE" [CkHttp_urlEncode $http "audio/wav"]]
# See the choices for voices at https://cloud.ibm.com/apidocs/text-to-speech#synthesize-audio-get
set numReplaced [CkStringBuilder_Replace $sbUrl "CHOSEN_VOICE" "en-US_MichaelVoice"]
set textToSynthesize "When life gives you lemons, order the lobster tail."
set numReplaced [CkStringBuilder_Replace $sbUrl "TEXT_TO_SYNTHESIZE" [CkHttp_urlEncode $http $textToSynthesize]]

# Send the GET to synthesize the voice.
# The response file will be contained in bdResponseBody
set bdResponseBody [new_CkBinData]

set success [CkHttp_QuickGetBd $http [CkStringBuilder_getAsString $sbUrl] $bdResponseBody]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkStringBuilder $sbUrl
    delete_CkBinData $bdResponseBody
    exit
}

set respStatusCode [CkHttp_get_LastStatus $http]
puts "response status code = $respStatusCode"

if {$respStatusCode == 200} then {
    set success [CkBinData_WriteFile $bdResponseBody "qa_output/lobster.wav"]
    puts "Success!"
} else {
    puts [CkBinData_getString $bdResponseBody utf-8]
}


delete_CkHttp $http
delete_CkStringBuilder $sbUrl
delete_CkBinData $bdResponseBody