(Visual FoxPro) Activix CRM Upload a Recording

Upload a recording for an existing communication.

For more information, see https://docs.crm.activix.ca/api/resources/communication

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

LOCAL loReq
LOCAL lcPathToFileOnDisk
LOCAL lnSuccess
LOCAL loHttp
LOCAL loResp
LOCAL loJsonResponse

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

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

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

loReq.AddHeader("Accept","application/json")

lcPathToFileOnDisk = "qa_data/CantinaBand3.wav"
lnSuccess = loReq.AddFileForUpload("recording",lcPathToFileOnDisk)
IF (lnSuccess <> 1) THEN
    ? loReq.LastErrorText
    RELEASE loReq
    CANCEL
ENDIF

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

loResp = loHttp.SynchronousRequest("crm.activix.ca",443,1,loReq)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loReq
    RELEASE loHttp
    CANCEL
ENDIF

? "Response Status Code: " + STR(loResp.StatusCode)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJsonResponse = CreateObject('Chilkat.JsonObject')
loJsonResponse.Load(loResp.BodyStr)
loJsonResponse.EmitCompact = 0
? loJsonResponse.Emit()

IF (loResp.StatusCode >= 300) THEN
    ? "Failed."
    RELEASE loResp
    RELEASE loReq
    RELEASE loHttp
    RELEASE loJsonResponse
    CANCEL
ENDIF

RELEASE loResp

* Sample output...

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

RELEASE loReq
RELEASE loHttp
RELEASE loJsonResponse