(SQL Server) VoiceBase -- Upload a Media File with a JSON Configuration

This example uploads a media file and also provides a configuration file.

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

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    -- This example assumes the Chilkat HTTP API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    -- Insert your Bearer token here:
    DECLARE @accessToken nvarchar(4000)
    SELECT @accessToken = 'VOICEBASE_TOKEN'

    DECLARE @http int
    -- Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Http', @http OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @req int
    -- Use "Chilkat_9_5_0.HttpRequest" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.HttpRequest', @req OUT

    EXEC sp_OASetProperty @req, 'HttpVerb', 'POST'
    EXEC sp_OASetProperty @req, 'Path', '/v2-beta/media'
    EXEC sp_OASetProperty @req, 'ContentType', 'multipart/form-data'

    -- Add the access (bearer) token to the request, which is a header
    -- having the following format:
    -- Authorization: Bearer <userAccessToken>
    DECLARE @sbAuth int
    -- Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbAuth OUT

    DECLARE @success int
    EXEC sp_OAMethod @sbAuth, 'Append', @success OUT, 'Bearer '
    EXEC sp_OAMethod @sbAuth, 'Append', @success OUT, @accessToken
    EXEC sp_OAMethod @sbAuth, 'GetAsString', @sTmp0 OUT
    EXEC sp_OAMethod @req, 'AddHeader', NULL, 'Authorization', @sTmp0

    DECLARE @success int
    EXEC sp_OAMethod @req, 'AddFileForUpload2', @success OUT, 'media', 'qa_data/wav/msg_123_abc.wav', 'audio/x-wav'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @req, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @http
        EXEC @hr = sp_OADestroy @req
        EXEC @hr = sp_OADestroy @sbAuth
        RETURN
      END

    -- This is the JSON of the configuration to be added as a parameter to the upload:
    -- (Obviously, if you want a callback, you would use a URL that goes to your own web server..)

    -- 	{ 
    -- 	   "configuration":{ 
    -- 	      "publish":{ 
    -- 	         "callbacks":[
    -- 	            { 
    -- 	               "url":"https://www.chilkatsoft.com/dss/update_vm_transcription.asp",
    -- 	               "method":"POST",
    -- 	               "include":[
    -- 	                  "transcripts",
    -- 	                  "keywords",
    -- 	                  "topics",
    -- 	                  "metadata"
    -- 	               ]
    -- 	            }
    -- 	         ]
    -- 	      },
    -- 	      "keywords":{ 
    -- 	         "groups":[]
    -- 	      }
    -- 	   }
    -- 	}

    -- This code produces the above JSON.
    DECLARE @json int
    -- Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.JsonObject', @json OUT

    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'configuration.publish.callbacks[0].url', 'https://www.chilkatsoft.com/dss/update_vm_transcription.asp'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'configuration.publish.callbacks[0].method', 'POST'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'configuration.publish.callbacks[0].include[0]', 'transcripts'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'configuration.publish.callbacks[0].include[1]', 'keywords'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'configuration.publish.callbacks[0].include[2]', 'topics'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'configuration.publish.callbacks[0].include[3]', 'metadata'
    DECLARE @jConfig int
    EXEC sp_OAMethod @json, 'ObjectOf', @jConfig OUT, 'configuration'
    DECLARE @jKeywords int
    EXEC sp_OAMethod @jConfig, 'AppendObject', @jKeywords OUT, 'keywords'
    DECLARE @jGroups int
    EXEC sp_OAMethod @jKeywords, 'AppendArray', @jGroups OUT, 'groups'
    EXEC @hr = sp_OADestroy @jGroups

    EXEC @hr = sp_OADestroy @jKeywords

    EXEC @hr = sp_OADestroy @jConfig

    -- Add the configuration JSON to the upload.
    EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
    EXEC sp_OAMethod @req, 'AddParam', NULL, 'configuration', @sTmp0

    -- Do the upload..
    DECLARE @resp int
    EXEC sp_OAMethod @http, 'SynchronousRequest', @resp OUT, 'apis.voicebase.com', 443, 1, @req
    EXEC sp_OAGetProperty @http, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 <> 1
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @http
        EXEC @hr = sp_OADestroy @req
        EXEC @hr = sp_OADestroy @sbAuth
        EXEC @hr = sp_OADestroy @json
        RETURN
      END

    -- Examine the response status code and body.

    EXEC sp_OAGetProperty @resp, 'StatusCode', @iTmp0 OUT
    PRINT 'Response status code = ' + @iTmp0

    -- The response should be JSON, even if an error.
    EXEC sp_OAGetProperty @resp, 'BodyStr', @sTmp0 OUT
    EXEC sp_OAMethod @json, 'Load', @success OUT, @sTmp0
    EXEC sp_OASetProperty @json, 'EmitCompact', 0

    EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
    PRINT @sTmp0

    -- A successful response will have a status code = 200
    EXEC sp_OAGetProperty @resp, 'StatusCode', @iTmp0 OUT
    IF @iTmp0 <> 200
      BEGIN

        PRINT 'Failed.'
      END
    ELSE
      BEGIN

        EXEC sp_OAMethod @json, 'StringOf', @sTmp0 OUT, 'mediaId'
        PRINT 'mediaId: ' + @sTmp0

        EXEC sp_OAMethod @json, 'StringOf', @sTmp0 OUT, '_links.self.href'
        PRINT 'href: ' + @sTmp0

        EXEC sp_OAMethod @json, 'StringOf', @sTmp0 OUT, 'status'
        PRINT 'status: ' + @sTmp0

        PRINT 'Success.'
      END

    EXEC @hr = sp_OADestroy @resp

    -- Here is an example of a successful response:

    -- 	{ 
    -- 	  "_links": { 
    -- 	    "self": { 
    -- 	      "href": "/v2-beta/media/856a1e85-c847-4c3c-b7a4-6cf15cd51db4"
    -- 	    }
    -- 	  },
    -- 	  "mediaId": "856a1e85-c847-4c3c-b7a4-6cf15cd51db4",
    -- 	  "status": "accepted",
    -- 	  "metadata": {}
    -- 	

    EXEC @hr = sp_OADestroy @http
    EXEC @hr = sp_OADestroy @req
    EXEC @hr = sp_OADestroy @sbAuth
    EXEC @hr = sp_OADestroy @json


END
GO