PowerBuilder

VoiceBase -- Hello World (Get the Media Collection Listing)

See more VoiceBase Examples

This example serves to both verify that your Bearer Token is valid by retrieving JSON that contains information about your media collection. PowerBuilder

integer li_rc
string ls_AccessToken
oleobject loo_Http
oleobject loo_SbAuth
string ls_StrJson
oleobject loo_Json
oleobject loo_Dt
oleobject loo_DtObj
integer li_MediaCount
integer i
string ls_DateCreated
integer li_LocalTime

// 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

// 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_Http.SetRequestHeader("Authorization",loo_SbAuth.GetAsString())

ls_StrJson = loo_Http.QuickGetStr("https://apis.voicebase.com/v2-beta/media")
if loo_Http.LastMethodSuccess = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_SbAuth
    return
end if

// The response should be JSON, even if an error.
loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

loo_Json.Load(ls_StrJson)
loo_Json.EmitCompact = 0

Write-Debug "Response status code = " + string(loo_Http.LastStatus)

if loo_Http.LastStatus <> 200 then
    Write-Debug loo_Json.Emit()
    Write-Debug "Failed"
    destroy loo_Http
    destroy loo_SbAuth
    destroy loo_Json
    return
end if

// See the sample JSON response below..

// Iterate over the JSON like this:
loo_Dt = create oleobject
li_rc = loo_Dt.ConnectToNewObject("Chilkat.CkDateTime")

loo_DtObj = create oleobject
li_rc = loo_DtObj.ConnectToNewObject("Chilkat.DtObj")

li_MediaCount = loo_Json.SizeOfArray("media")
i = 0
do while i < li_MediaCount
    loo_Json.I = i

    Write-Debug "-- " + string(i) + " --"
    Write-Debug "  mediaId: " + loo_Json.StringOf("media[i].mediaId")
    Write-Debug "  status: " + loo_Json.StringOf("media[i].status")
    Write-Debug "  contentType: " + loo_Json.StringOf("media[i].metadata.contentType")
    Write-Debug "  milliseconds: " + loo_Json.StringOf("media[i].metadata.length.milliseconds")
    Write-Debug "  descriptive: " + loo_Json.StringOf("media[i].metadata.length.descriptive")
    ls_DateCreated = loo_Json.StringOf("media[i].dateCreated")
    loo_Dt.SetFromTimestamp(ls_DateCreated)

    li_LocalTime = 1
    loo_Dt.ToDtObj(li_LocalTime,loo_DtObj)

    Write-Debug "  " + string(loo_DtObj.Month) + "/" + string(loo_DtObj.Day) + "  " + string(loo_DtObj.Hour) + ":" + string(loo_DtObj.Minute)

    i = i + 1
loop
Write-Debug "Finished."

// A sample JSON response:

// { 
//   "_links": { 
//     "self": { 
//       "href": "/v2-beta/media"
//     }
//   },
//   "media": [
//     { 
//       "mediaId": "26063536-FFFF-4020-93ba-0878112d834b",
//       "status": "finished",
//       "metadata": { 
//         "contentType": "audio/x-wav",
//         "length": { 
//           "milliseconds": 85141,
//           "descriptive": "85.0 sec"
//         }
//       },
//       "dateCreated": "2017-01-19T16:49:32.000Z"
//     },
//     { 
//       "mediaId": "8163fbbc-FFFF-4794-aa95-045420bb321d",
//       "status": "finished",
//       "metadata": { 
//         "contentType": "audio/x-wav",
//         "length": { 
//           "milliseconds": 65342,
//           "descriptive": "65.0 sec"
//         }
//       },
//       "dateCreated": "2017-01-19T20:08:49.000Z"
//     },
// ...
// ...
//     { 
//       "mediaId": "b01e27be-FFFF-4b62-8802-6dc66a75c4d3",
//       "status": "finished",
//       "metadata": { 
//         "contentType": "audio/x-wav",
//         "length": { 
//           "milliseconds": 11581,
//           "descriptive": "11.0 sec"
//         }
//       },
//       "dateCreated": "2017-02-06T20:55:43.000Z"
//     }
//   ]
// }


destroy loo_Http
destroy loo_SbAuth
destroy loo_Json
destroy loo_Dt
destroy loo_DtObj