(SQL Server) Create Google Photos Media Item using Upload Token

This is the 2nd step in uploading a photo to a Google Photos album. The 1st step is to upload the media data to get an upload token. This step is to use the upload token to add the media item to an album.

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 requires the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    -- Get the previously obtained access token.
    -- See Get Google Photos Access Token.

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

    DECLARE @success int
    EXEC sp_OAMethod @jsonToken, 'LoadFile', @success OUT, 'qa_data/tokens/googlePhotos.json'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @jsonToken, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @jsonToken
        RETURN
      END

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

    EXEC sp_OAMethod @jsonToken, 'StringOf', @sTmp0 OUT, 'access_token'
    EXEC sp_OASetProperty @http, 'AuthToken', @sTmp0

    -- For more information, see Google Photos Upload Media REST API Documentation

    -- Build a JSON body that looks like this:
    -- {
    --   "albumId": "ALBUM_ID",
    --   "newMediaItems": [
    --     {
    --       "description": "ITEM_DESCRIPTION",
    --       "simpleMediaItem": {
    --         "uploadToken": "UPLOAD_TOKEN"
    --       }
    --     }
    --    , ...
    --   ]
    -- }

    -- Use this online tool to generate the code from sample JSON: 
    -- Generate Code to Create JSON

    -- Build 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, 'albumId', 'ALBUM_ID'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'newMediaItems[0].description', 'Photo of Penguins'
    EXEC sp_OAMethod @json, 'UpdateString', @success OUT, 'newMediaItems[0].simpleMediaItem.uploadToken', 'UPLOAD_TOKEN'

    DECLARE @resp int
    EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
    EXEC sp_OAMethod @http, 'PostJson', @resp OUT, 'https://photoslibrary.googleapis.com/v1/mediaItems:batchCreate', @sTmp0
    EXEC sp_OAGetProperty @http, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 = 0
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @jsonToken
        EXEC @hr = sp_OADestroy @http
        EXEC @hr = sp_OADestroy @json
        RETURN
      END

    -- Examine the response status code.  Success is indicated by a status code of 200.

    EXEC sp_OAGetProperty @resp, 'StatusCode', @iTmp0 OUT
    PRINT 'response status code: ' + @iTmp0

    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

    EXEC @hr = sp_OADestroy @resp

    -- Sample response:

    -- {
    --   "newMediaItemResults": [
    --     {
    --       "uploadToken": "CAISiQMASsyg4M/x ... CIKFRzD3l8OpFJMRzMsd00D5w",
    --       "status": {
    --         "message": "OK"
    --       },
    --       "mediaItem": {
    --         "id": "AKcbugGwtCih2tdl3s1-NMvZFaco3W7XnRwvwtj02J9DJyl6JmrLZDVUFcxQl4AT04LaNrPpsrojeTsDSzOVOF5IgKefD0Y-MQ",
    --         "description": "Photo of Penguins",
    --         "productUrl": "https://photos.google.com/lr/photo/AKcbugGwtCih2tdl3s1-NMvZFaco3W7XnRwvwtj02J9DJyl6JmrLZDVUFcxQl4AT04LaNrPpsrojeTsDSzOVOF5IgKefD0Y-MQ",
    --         "mimeType": "image/jpeg",
    --         "mediaMetadata": {
    --           "creationTime": "2008-02-18T05:07:31Z",
    --           "width": "1024",
    --           "height": "768"
    --         },
    --         "filename": "penguins.jpg"
    --       }
    --     }
    --   ]
    -- }

    -- Use this online tool to generate parsing code from sample JSON: 
    -- Generate Parsing Code from JSON

    DECLARE @i int

    DECLARE @count_i int

    DECLARE @uploadToken nvarchar(4000)

    DECLARE @statusMessage nvarchar(4000)

    DECLARE @mediaItemId nvarchar(4000)

    DECLARE @mediaItemDescription nvarchar(4000)

    DECLARE @mediaItemProductUrl nvarchar(4000)

    DECLARE @mediaItemMimeType nvarchar(4000)

    DECLARE @mediaItemMediaMetadataCreationTime nvarchar(4000)

    DECLARE @mediaItemMediaMetadataWidth nvarchar(4000)

    DECLARE @mediaItemMediaMetadataHeight nvarchar(4000)

    DECLARE @mediaItemFilename nvarchar(4000)

    SELECT @i = 0
    EXEC sp_OAMethod @json, 'SizeOfArray', @count_i OUT, 'newMediaItemResults'
    WHILE @i < @count_i
      BEGIN
        EXEC sp_OASetProperty @json, 'I', @i
        EXEC sp_OAMethod @json, 'StringOf', @uploadToken OUT, 'newMediaItemResults[i].uploadToken'
        EXEC sp_OAMethod @json, 'StringOf', @statusMessage OUT, 'newMediaItemResults[i].status.message'
        EXEC sp_OAMethod @json, 'StringOf', @mediaItemId OUT, 'newMediaItemResults[i].mediaItem.id'
        EXEC sp_OAMethod @json, 'StringOf', @mediaItemDescription OUT, 'newMediaItemResults[i].mediaItem.description'
        EXEC sp_OAMethod @json, 'StringOf', @mediaItemProductUrl OUT, 'newMediaItemResults[i].mediaItem.productUrl'
        EXEC sp_OAMethod @json, 'StringOf', @mediaItemMimeType OUT, 'newMediaItemResults[i].mediaItem.mimeType'
        EXEC sp_OAMethod @json, 'StringOf', @mediaItemMediaMetadataCreationTime OUT, 'newMediaItemResults[i].mediaItem.mediaMetadata.creationTime'
        EXEC sp_OAMethod @json, 'StringOf', @mediaItemMediaMetadataWidth OUT, 'newMediaItemResults[i].mediaItem.mediaMetadata.width'
        EXEC sp_OAMethod @json, 'StringOf', @mediaItemMediaMetadataHeight OUT, 'newMediaItemResults[i].mediaItem.mediaMetadata.height'
        EXEC sp_OAMethod @json, 'StringOf', @mediaItemFilename OUT, 'newMediaItemResults[i].mediaItem.filename'
        SELECT @i = @i + 1
      END

    EXEC @hr = sp_OADestroy @jsonToken
    EXEC @hr = sp_OADestroy @http
    EXEC @hr = sp_OADestroy @json


END
GO