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

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

// 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
// Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
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
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
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 <> 1 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
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
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
// Use "Chilkat_9_5_0.CkDateTime" for versions of Chilkat < 10.0.0
li_rc = loo_Dt.ConnectToNewObject("Chilkat.CkDateTime")

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_DtObj = loo_Dt.GetDtObj(li_LocalTime)
    Write-Debug "  " + string(loo_DtObj.Month) + "/" + string(loo_DtObj.Day) + "  " + string(loo_DtObj.Hour) + ":" + string(loo_DtObj.Minute)
    destroy loo_DtObj

    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