PowerBuilder Requires Chilkat v11.0.0+

VoiceBase -- Upload a Media File with a JSON Configuration

See more VoiceBase Examples

This example uploads a media file and also provides a configuration file. PowerBuilder

integer li_rc
long li_Success
string ls_AccessToken
oleobject loo_Http
oleobject loo_Req
oleobject loo_SbAuth
oleobject loo_Json
oleobject loo_JConfig
oleobject loo_JKeywords
oleobject loo_JGroups
oleobject loo_Resp

li_Success = 0

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

//  Insert your Bearer token here:
ls_AccessToken = "VOICEBASE_TOKEN"

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Req = create oleobject
li_rc = loo_Req.ConnectToNewObject("Chilkat.HttpRequest")

loo_Req.HttpVerb = "POST"
loo_Req.Path = "/v2-beta/media"
loo_Req.ContentType = "multipart/form-data"

//  Add the access (bearer) token to the request, which is a header
//  having the following format:
//  Authorization: Bearer <userAccessToken>
loo_SbAuth = create oleobject
li_rc = loo_SbAuth.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbAuth.Append("Bearer ")
loo_SbAuth.Append(ls_AccessToken)
loo_Req.AddHeader("Authorization",loo_SbAuth.GetAsString())

li_Success = loo_Req.AddFileForUpload2("media","qa_data/wav/msg_123_abc.wav","audio/x-wav")
if li_Success = 0 then
    Write-Debug loo_Req.LastErrorText
    destroy loo_Http
    destroy loo_Req
    destroy loo_SbAuth
    return
end if

//  This is the JSON of the configuration to be added as a parameter to the upload:
//  (Obviously, if you want a callback, you would use a URL that goes to your own web server..)

//  	{ 
//  	   "configuration":{ 
//  	      "publish":{ 
//  	         "callbacks":[
//  	            { 
//  	               "url":"https://www.chilkatsoft.com/dss/update_vm_transcription.asp",
//  	               "method":"POST",
//  	               "include":[
//  	                  "transcripts",
//  	                  "keywords",
//  	                  "topics",
//  	                  "metadata"
//  	               ]
//  	            }
//  	         ]
//  	      },
//  	      "keywords":{ 
//  	         "groups":[]
//  	      }
//  	   }
//  	}

//  This code produces the above JSON.
loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

loo_Json.UpdateString("configuration.publish.callbacks[0].url","https://www.chilkatsoft.com/dss/update_vm_transcription.asp")
loo_Json.UpdateString("configuration.publish.callbacks[0].method","POST")
loo_Json.UpdateString("configuration.publish.callbacks[0].include[0]","transcripts")
loo_Json.UpdateString("configuration.publish.callbacks[0].include[1]","keywords")
loo_Json.UpdateString("configuration.publish.callbacks[0].include[2]","topics")
loo_Json.UpdateString("configuration.publish.callbacks[0].include[3]","metadata")

loo_JConfig = create oleobject
li_rc = loo_JConfig.ConnectToNewObject("Chilkat.JsonObject")

loo_Json.ObjectOf2("configuration",loo_JConfig)

loo_JKeywords = create oleobject
li_rc = loo_JKeywords.ConnectToNewObject("Chilkat.JsonObject")

loo_JConfig.AppendObject2("keywords",loo_JKeywords)

loo_JGroups = create oleobject
li_rc = loo_JGroups.ConnectToNewObject("Chilkat.JsonArray")

loo_JKeywords.AppendArray2("groups",loo_JGroups)

//  Add the configuration JSON to the upload.
loo_Req.AddParam("configuration",loo_Json.Emit())

//  Do the upload..
loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")

li_Success = loo_Http.HttpSReq("apis.voicebase.com",443,1,loo_Req,loo_Resp)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_Req
    destroy loo_SbAuth
    destroy loo_Json
    destroy loo_JConfig
    destroy loo_JKeywords
    destroy loo_JGroups
    destroy loo_Resp
    return
end if

//  Examine the response status code and body.
Write-Debug "Response status code = " + string(loo_Resp.StatusCode)

//  The response should be JSON, even if an error.
loo_Json.Load(loo_Resp.BodyStr)
loo_Json.EmitCompact = 0

Write-Debug loo_Json.Emit()

//  A successful response will have a status code = 200
if loo_Resp.StatusCode <> 200 then
    Write-Debug "Failed."
else
    Write-Debug "mediaId: " + loo_Json.StringOf("mediaId")
    Write-Debug "href: " + loo_Json.StringOf("_links.self.href")
    Write-Debug "status: " + loo_Json.StringOf("status")
    Write-Debug "Success."
end if

//  Here is an example of a successful response:

//  	{ 
//  	  "_links": { 
//  	    "self": { 
//  	      "href": "/v2-beta/media/856a1e85-c847-4c3c-b7a4-6cf15cd51db4"
//  	    }
//  	  },
//  	  "mediaId": "856a1e85-c847-4c3c-b7a4-6cf15cd51db4",
//  	  "status": "accepted",
//  	  "metadata": {}
//  	}


destroy loo_Http
destroy loo_Req
destroy loo_SbAuth
destroy loo_Json
destroy loo_JConfig
destroy loo_JKeywords
destroy loo_JGroups
destroy loo_Resp