(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

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

Procedure ChilkatExample()

    ; 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

    success.i

    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