Xbase++ Requires Chilkat v11.0.0+
VoiceBase -- Compound Expression Search

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

Xbase++
LOCAL nSuccess
LOCAL cAccessToken
LOCAL oHttp
LOCAL oReq
LOCAL oSbAuth
LOCAL oResp
LOCAL oJson
LOCAL oDt
LOCAL oDtObj
LOCAL nMediaCount
LOCAL i
LOCAL cDateCreated
LOCAL nLocalTime

nSuccess := 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:
cAccessToken := "VOICEBASE_TOKEN"

oHttp := CreateObject("Chilkat.Http")

oReq := CreateObject("Chilkat.HttpRequest")
oReq:HttpVerb := "GET"
oReq:Path := "/v2-beta/media"

//  Add the access (bearer) token to the request, which is a header
//  having the following format:
//  Authorization: Bearer <userAccessToken>
oSbAuth := CreateObject("Chilkat.StringBuilder")
oSbAuth:Append("Bearer ")
oSbAuth:Append(cAccessToken)
oReq:AddHeader("Authorization", oSbAuth:GetAsString())

//  Search for media containing the terms any of the terms "test", "number", or "three"
oReq:AddParam("query", '"test" OR "number" OR "three"')

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpSReq("apis.voicebase.com", 443, 1, oReq, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oReq:destroy()
    oSbAuth:destroy()
    oResp:destroy()
    RETURN
ENDIF

//  Examine the response status code and body.
? "Response status code = " + Str(oResp:StatusCode)

//  The response should be JSON, even if an error.
oJson := CreateObject("Chilkat.JsonObject")
oJson:Load(oResp:BodyStr)
oJson:EmitCompact := 0

//  A successful response will have a status code = 200
IF (oResp:StatusCode != 200)
    ? "Failed."
ELSE
    ? "mediaId: " + oJson:StringOf("mediaId")
    ? "href: " + oJson:StringOf("_links.self.href")
    ? "status: " + oJson:StringOf("status")
    ? "Success."
ENDIF

//  See the sample JSON response below..

//  Iterate over the JSON like this:
oDt := CreateObject("Chilkat.CkDateTime")
oDtObj := CreateObject("Chilkat.DtObj")

nMediaCount := oJson:SizeOfArray("media")
i := 0
DO WHILE i < nMediaCount
    oJson:I := i

    ? "-- " + Str(i) + " --"
    ? "  mediaId: " + oJson:StringOf("media[i].mediaId")
    ? "  status: " + oJson:StringOf("media[i].status")
    ? "  contentType: " + oJson:StringOf("media[i].metadata.contentType")
    ? "  milliseconds: " + oJson:StringOf("media[i].metadata.length.milliseconds")
    ? "  descriptive: " + oJson:StringOf("media[i].metadata.length.descriptive")
    cDateCreated := oJson:StringOf("media[i].dateCreated")
    oDt:SetFromTimestamp(cDateCreated)

    nLocalTime := 1
    oDt:ToDtObj(nLocalTime, oDtObj)

    ? "  " + Str(oDtObj:Month) + "/" + Str(oDtObj:Day) + "  " + Str(oDtObj:Hour) + ":" + Str(oDtObj: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"
//      }
//    ]
//  }

oHttp:destroy()
oReq:destroy()
oSbAuth:destroy()
oResp:destroy()
oJson:destroy()
oDt:destroy()
oDtObj:destroy()