Visual FoxPro

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

See more IBM Text to Speech Examples

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

LOCAL lnSuccess
LOCAL loHttp
LOCAL lcMyBaseUrl
LOCAL loSbUrl
LOCAL lnNumReplaced
LOCAL lcTextToSynthesize
LOCAL loBdResponseBody
LOCAL lnRespStatusCode

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

loHttp.Login = "apikey"
loHttp.Password = "my_apikey"
loHttp.BasicAuth = 1

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

loSbUrl = CreateObject('Chilkat.StringBuilder')
loSbUrl.Append(lcMyBaseUrl)
loSbUrl.Append("/v1/synthesize?accept=ACCEPT_TYPE&voice=CHOSEN_VOICE&text=TEXT_TO_SYNTHESIZE")

* Choose "audio/wav" for the output file type.
lnNumReplaced = loSbUrl.Replace("ACCEPT_TYPE",loHttp.UrlEncode("audio/wav"))
* See the choices for voices at https://cloud.ibm.com/apidocs/text-to-speech#synthesize-audio-get
lnNumReplaced = loSbUrl.Replace("CHOSEN_VOICE","en-US_MichaelVoice")
lcTextToSynthesize = "When life gives you lemons, order the lobster tail."
lnNumReplaced = loSbUrl.Replace("TEXT_TO_SYNTHESIZE",loHttp.UrlEncode(lcTextToSynthesize))

* Send the GET to synthesize the voice.
* The response file will be contained in bdResponseBody
loBdResponseBody = CreateObject('Chilkat.BinData')
lnSuccess = loHttp.QuickGetBd(loSbUrl.GetAsString(),loBdResponseBody)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loSbUrl
    RELEASE loBdResponseBody
    CANCEL
ENDIF

lnRespStatusCode = loHttp.LastStatus
? "response status code = " + STR(lnRespStatusCode)

IF (lnRespStatusCode = 200) THEN
    lnSuccess = loBdResponseBody.WriteFile("qa_output/lobster.wav")
    ? "Success!"
ELSE
    ? loBdResponseBody.GetString("utf-8")
ENDIF

RELEASE loHttp
RELEASE loSbUrl
RELEASE loBdResponseBody