(Visual FoxPro) VoiceBase -- Compound Expression Search

Demonstrates how to do a VoiceBase compound expression search. See VoiceBase Search for more details about Search.

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

LOCAL lcAccessToken
LOCAL loHttp
LOCAL loReq
LOCAL loSbAuth
LOCAL loResp
LOCAL loJson
LOCAL loDt
LOCAL lnMediaCount
LOCAL i
LOCAL lcDateCreated
LOCAL lnLocalTime
LOCAL loDtObj

* 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"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.HttpRequest')
loReq = CreateObject('Chilkat.HttpRequest')
loReq.HttpVerb = "GET"
loReq.Path = "/v2-beta/media"

* Add the access (bearer) token to the request, which is a header
* having the following format:
* Authorization: Bearer <userAccessToken>
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbAuth = CreateObject('Chilkat.StringBuilder')
loSbAuth.Append("Bearer ")
loSbAuth.Append(lcAccessToken)
loReq.AddHeader("Authorization",loSbAuth.GetAsString())

* Search for media containing the terms any of the terms "test", "number", or "three"
loReq.AddParam("query",'"test" OR "number" OR "three"')

loResp = loHttp.SynchronousRequest("apis.voicebase.com",443,1,loReq)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loSbAuth
    CANCEL
ENDIF

* Examine the response status code and body.
? "Response status code = " + STR(loResp.StatusCode)

* The response should be JSON, even if an error.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(loResp.BodyStr)
loJson.EmitCompact = 0

* A successful response will have a status code = 200
IF (loResp.StatusCode <> 200) THEN
    ? "Failed."
ELSE
    ? "mediaId: " + loJson.StringOf("mediaId")
    ? "href: " + loJson.StringOf("_links.self.href")
    ? "status: " + loJson.StringOf("status")
    ? "Success."
ENDIF

RELEASE loResp

* See the sample JSON response below..

* Iterate over the JSON like this:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CkDateTime')
loDt = CreateObject('Chilkat.CkDateTime')
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
    loDtObj = loDt.GetDtObj(lnLocalTime)
    ? "  " + STR(loDtObj.Month) + "/" + STR(loDtObj.Day) + "  " + STR(loDtObj.Hour) + ":" + STR(loDtObj.Minute)
    RELEASE loDtObj

    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 loReq
RELEASE loSbAuth
RELEASE loJson
RELEASE loDt