(Visual FoxPro) 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.

Note: This example requires Chilkat v11.0.0 or greater.

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

LOCAL lcAccessToken
LOCAL loHttp
LOCAL loSbAuth
LOCAL lcStrJson
LOCAL loJson
LOCAL loDt
LOCAL loDtObj
LOCAL lnMediaCount
LOCAL i
LOCAL lcDateCreated
LOCAL lnLocalTime

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

* Insert your Bearer token here:
lcAccessToken = "VOICEBASE_TOKEN"

loHttp = CreateObject('Chilkat.Http')

* Add the access (bearer) token to the request, which is a header
* having the following format:
* Authorization: Bearer <userAccessToken>
loSbAuth = CreateObject('Chilkat.StringBuilder')
loSbAuth.Append("Bearer ")
loSbAuth.Append(lcAccessToken)
loHttp.SetRequestHeader("Authorization",loSbAuth.GetAsString())

lcStrJson = loHttp.QuickGetStr("https://apis.voicebase.com/v2-beta/media")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loSbAuth
    CANCEL
ENDIF

* The response should be JSON, even if an error.
loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(lcStrJson)
loJson.EmitCompact = 0

? "Response status code = " + STR(loHttp.LastStatus)

IF (loHttp.LastStatus <> 200) THEN
    ? loJson.Emit()
    ? "Failed"
    RELEASE loHttp
    RELEASE loSbAuth
    RELEASE loJson
    CANCEL
ENDIF

* See the sample JSON response below..

* Iterate over the JSON like this:
loDt = CreateObject('Chilkat.CkDateTime')
loDtObj = CreateObject('Chilkat.DtObj')

lnMediaCount = loJson.SizeOfArray("media")
i = 0
DO WHILE i < lnMediaCount
    loJson.I = i

    ? "-- " + STR(i) + " --"
    ? "  mediaId: " + loJson.StringOf("media[i].mediaId")
    ? "  status: " + loJson.StringOf("media[i].status")
    ? "  contentType: " + loJson.StringOf("media[i].metadata.contentType")
    ? "  milliseconds: " + loJson.StringOf("media[i].metadata.length.milliseconds")
    ? "  descriptive: " + loJson.StringOf("media[i].metadata.length.descriptive")
    lcDateCreated = loJson.StringOf("media[i].dateCreated")
    loDt.SetFromTimestamp(lcDateCreated)

    lnLocalTime = 1
    loDt.ToDtObj(lnLocalTime,loDtObj)

    ? "  " + STR(loDtObj.Month) + "/" + STR(loDtObj.Day) + "  " + STR(loDtObj.Hour) + ":" + STR(loDtObj.Minute)

    i = i + 1
ENDDO
? "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"
*     }
*   ]
* }

RELEASE loHttp
RELEASE loSbAuth
RELEASE loJson
RELEASE loDt
RELEASE loDtObj