PureBasic

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. PureBasic

IncludeFile "CkBinData.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"

Procedure ChilkatExample()

    success.i = 0

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttp::setCkLogin(http, "apikey")
    CkHttp::setCkPassword(http, "my_apikey")
    CkHttp::setCkBasicAuth(http, 1)

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

    sbUrl.i = CkStringBuilder::ckCreate()
    If sbUrl.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkStringBuilder::ckAppend(sbUrl,myBaseUrl)
    CkStringBuilder::ckAppend(sbUrl,"/v1/synthesize?accept=ACCEPT_TYPE&voice=CHOSEN_VOICE&text=TEXT_TO_SYNTHESIZE")

    ; Choose "audio/wav" for the output file type.
    numReplaced.i = CkStringBuilder::ckReplace(sbUrl,"ACCEPT_TYPE",CkHttp::ckUrlEncode(http,"audio/wav"))
    ; See the choices for voices at https://cloud.ibm.com/apidocs/text-to-speech#synthesize-audio-get
    numReplaced = CkStringBuilder::ckReplace(sbUrl,"CHOSEN_VOICE","en-US_MichaelVoice")
    textToSynthesize.s = "When life gives you lemons, order the lobster tail."
    numReplaced = CkStringBuilder::ckReplace(sbUrl,"TEXT_TO_SYNTHESIZE",CkHttp::ckUrlEncode(http,textToSynthesize))

    ; Send the GET to synthesize the voice.
    ; The response file will be contained in bdResponseBody
    bdResponseBody.i = CkBinData::ckCreate()
    If bdResponseBody.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckQuickGetBd(http,CkStringBuilder::ckGetAsString(sbUrl),bdResponseBody)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkStringBuilder::ckDispose(sbUrl)
        CkBinData::ckDispose(bdResponseBody)
        ProcedureReturn
    EndIf

    respStatusCode.i = CkHttp::ckLastStatus(http)
    Debug "response status code = " + Str(respStatusCode)

    If respStatusCode = 200
        success = CkBinData::ckWriteFile(bdResponseBody,"qa_output/lobster.wav")
        Debug "Success!"
    Else
        Debug CkBinData::ckGetString(bdResponseBody,"utf-8")
    EndIf



    CkHttp::ckDispose(http)
    CkStringBuilder::ckDispose(sbUrl)
    CkBinData::ckDispose(bdResponseBody)


    ProcedureReturn
EndProcedure