Xbase++

Activix CRM Upload a Recording

See more Activix CRM Examples

Upload a recording for an existing communication. Xbase++

LOCAL nSuccess
LOCAL oReq
LOCAL cPathToFileOnDisk
LOCAL oHttp
LOCAL oResp
LOCAL oJsonResponse

nSuccess := 0

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

oReq := CreateObject("Chilkat.HttpRequest")

oReq:HttpVerb := "POST"
oReq:Path := "/api/v2/communications/COMMUNICATION_ID/recording"
oReq:ContentType := "multipart/form-data"

oReq:AddHeader("Accept", "application/json")

cPathToFileOnDisk := "qa_data/CantinaBand3.wav"
nSuccess := oReq:AddFileForUpload("recording", cPathToFileOnDisk)
IF (nSuccess == 0)
    ? oReq:LastErrorText
    oReq:destroy()
    RETURN
ENDIF

oHttp := CreateObject("Chilkat.Http")
oHttp:AuthToken := "ACCESS_TOKEN"

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpSReq("crm.activix.ca", 443, 1, oReq, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oReq:destroy()
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

? "Response Status Code: " + Str(oResp:StatusCode)

oJsonResponse := CreateObject("Chilkat.JsonObject")
oJsonResponse:Load(oResp:BodyStr)
oJsonResponse:EmitCompact := 0
? oJsonResponse:Emit()

IF (oResp:StatusCode >= 300)
    ? "Failed."
    oReq:destroy()
    oHttp:destroy()
    oResp:destroy()
    oJsonResponse:destroy()
    RETURN
ENDIF

//  Sample output...

//  {
//    "message": "Recording uploaded successfully."
//  }
//

oReq:destroy()
oHttp:destroy()
oResp:destroy()
oJsonResponse:destroy()