DataFlex
DataFlex
VoiceBase -- Compound Expression Search
See more VoiceBase Examples
Demonstrates how to do a VoiceBase compound expression search. See VoiceBase Search for more details about Search.Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
String sAccessToken
Handle hoHttp
Variant vReq
Handle hoReq
Handle hoSbAuth
Variant vResp
Handle hoResp
Handle hoJson
Handle hoDt
Obj Handle hoDtObj
Integer iMediaCount
Integer i
String sDateCreated
Boolean iLocalTime
String sTemp1
Integer iTemp1
Integer iTemp2
Integer iTemp3
Integer iTemp4
Move False To iSuccess
// This example assumes the Chilkat HTTP API to have been previously unlocked.
// See Global Unlock Sample for sample code.
// Insert your Bearer token here:
Move "VOICEBASE_TOKEN" To sAccessToken
Get Create (RefClass(cComChilkatHttp)) To hoHttp
If (Not(IsComObjectCreated(hoHttp))) Begin
Send CreateComObject of hoHttp
End
Get Create (RefClass(cComChilkatHttpRequest)) To hoReq
If (Not(IsComObjectCreated(hoReq))) Begin
Send CreateComObject of hoReq
End
Set ComHttpVerb Of hoReq To "GET"
Set ComPath Of hoReq To "/v2-beta/media"
// Add the access (bearer) token to the request, which is a header
// having the following format:
// Authorization: Bearer <userAccessToken>
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbAuth
If (Not(IsComObjectCreated(hoSbAuth))) Begin
Send CreateComObject of hoSbAuth
End
Get ComAppend Of hoSbAuth "Bearer " To iSuccess
Get ComAppend Of hoSbAuth sAccessToken To iSuccess
Get ComGetAsString Of hoSbAuth To sTemp1
Send ComAddHeader To hoReq "Authorization" sTemp1
// Search for media containing the terms any of the terms "test", "number", or "three"
Send ComAddParam To hoReq "query" '"test" OR "number" OR "three"'
Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
If (Not(IsComObjectCreated(hoResp))) Begin
Send CreateComObject of hoResp
End
Get pvComObject of hoReq to vReq
Get pvComObject of hoResp to vResp
Get ComHttpSReq Of hoHttp "apis.voicebase.com" 443 True vReq vResp To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoHttp To sTemp1
Showln sTemp1
Procedure_Return
End
// Examine the response status code and body.
Get ComStatusCode Of hoResp To iTemp1
Showln "Response status code = " iTemp1
// The response should be JSON, even if an error.
Get Create (RefClass(cComChilkatJsonObject)) To hoJson
If (Not(IsComObjectCreated(hoJson))) Begin
Send CreateComObject of hoJson
End
Get ComBodyStr Of hoResp To sTemp1
Get ComLoad Of hoJson sTemp1 To iSuccess
Set ComEmitCompact Of hoJson To False
// A successful response will have a status code = 200
Get ComStatusCode Of hoResp To iTemp1
If (iTemp1 <> 200) Begin
Showln "Failed."
End
Else Begin
Get ComStringOf Of hoJson "mediaId" To sTemp1
Showln "mediaId: " sTemp1
Get ComStringOf Of hoJson "_links.self.href" To sTemp1
Showln "href: " sTemp1
Get ComStringOf Of hoJson "status" To sTemp1
Showln "status: " sTemp1
Showln "Success."
End
// See the sample JSON response below..
// Iterate over the JSON like this:
Get Create (RefClass(cComCkDateTime)) To hoDt
If (Not(IsComObjectCreated(hoDt))) Begin
Send CreateComObject of hoDt
End
Get Create (RefClass(cComChilkatDtObj)) To hoDtObj
If (Not(IsComObjectCreated(hoDtObj))) Begin
Send CreateComObject of hoDtObj
End
Get ComSizeOfArray Of hoJson "media" To iMediaCount
Move 0 To i
While (i < iMediaCount)
Set ComI Of hoJson To i
Showln "-- " i " --"
Get ComStringOf Of hoJson "media[i].mediaId" To sTemp1
Showln " mediaId: " sTemp1
Get ComStringOf Of hoJson "media[i].status" To sTemp1
Showln " status: " sTemp1
Get ComStringOf Of hoJson "media[i].metadata.contentType" To sTemp1
Showln " contentType: " sTemp1
Get ComStringOf Of hoJson "media[i].metadata.length.milliseconds" To sTemp1
Showln " milliseconds: " sTemp1
Get ComStringOf Of hoJson "media[i].metadata.length.descriptive" To sTemp1
Showln " descriptive: " sTemp1
Get ComStringOf Of hoJson "media[i].dateCreated" To sDateCreated
Get ComSetFromTimestamp Of hoDt sDateCreated To iSuccess
Move True To iLocalTime
Get pvComObject of hoDtObj to vDtObj
Send ComToDtObj To hoDt iLocalTime vDtObj
Get ComMonth Of hoDtObj To iTemp1
Get ComDay Of hoDtObj To iTemp2
Get ComHour Of hoDtObj To iTemp3
Get ComMinute Of hoDtObj To iTemp4
Showln " " iTemp1 "/" iTemp2 " " iTemp3 ":" iTemp4
Move (i + 1) To i
Loop
Showln "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"
// }
// ]
// }
End_Procedure