(PureBasic) IBM Cloud - Text to Speech - Synthesize Audio (POST)

Synthesizes text to audio that is spoken in the specified voice. Uses a POST which allows for more text to be synthesized.

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkJsonObject.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)

    ; Send the following request:

    ; curl -X POST -u "apikey:{apikey}" 
    ;    --header "Content-Type: application/json" 
    ;    --header "Accept: audio/wav" 
    ;    --data "{\"text\":\"When life gives you lemons, order the lobster tail.\"}" 
    ;    --output lobster.wav "{url}/v1/synthesize?voice=en-US_AllisonV3Voice"

    ; 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?voice=en-US_AllisonV3Voice")

    CkHttp::setCkAccept(http, "audio/wav")

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

    CkJsonObject::ckUpdateString(json,"text","When life gives you lemons, order the lobster tail.")

    resp.i = CkHttp::ckPostJson3(http,CkStringBuilder::ckGetAsString(sbUrl),"application/json",json)
    If CkHttp::ckLastMethodSuccess(http) = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkStringBuilder::ckDispose(sbUrl)
        CkJsonObject::ckDispose(json)
        ProcedureReturn
    EndIf

    respStatusCode.i = CkHttpResponse::ckStatusCode(resp)
    Debug "response status code = " + Str(respStatusCode)

    If respStatusCode = 200
        success = CkHttpResponse::ckSaveBodyBinary(resp,"qa_output/lobster.wav")
        Debug "Success!"
    Else
        Debug CkHttpResponse::ckBodyStr(resp)
    EndIf

    CkHttpResponse::ckDispose(resp)



    CkHttp::ckDispose(http)
    CkStringBuilder::ckDispose(sbUrl)
    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure