Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Visual Basic 6.0) Activix CRM Upload a RecordingUpload a recording for an existing communication. For more information, see https://docs.crm.activix.ca/api/resources/communication
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim req As New ChilkatHttpRequest req.HttpVerb = "POST" req.Path = "/api/v2/communications/COMMUNICATION_ID/recording" req.ContentType = "multipart/form-data" req.AddHeader "Accept","application/json" Dim pathToFileOnDisk As String pathToFileOnDisk = "qa_data/CantinaBand3.wav" Dim success As Long success = req.AddFileForUpload("recording",pathToFileOnDisk) If (success <> 1) Then Debug.Print req.LastErrorText Exit Sub End If Dim http As New ChilkatHttp http.AuthToken = "ACCESS_TOKEN" Dim resp As ChilkatHttpResponse Set resp = http.SynchronousRequest("crm.activix.ca",443,1,req) If (http.LastMethodSuccess <> 1) Then Debug.Print http.LastErrorText Exit Sub End If Debug.Print "Response Status Code: " & resp.StatusCode Dim jsonResponse As New ChilkatJsonObject success = jsonResponse.Load(resp.BodyStr) jsonResponse.EmitCompact = 0 Debug.Print jsonResponse.Emit() If (resp.StatusCode >= 300) Then Debug.Print "Failed." Exit Sub End If ' Sample output... ' { ' "message": "Recording uploaded successfully." ' } ' |
© 2000-2021 Chilkat Software, Inc. All Rights Reserved.