(SQL Server) Download Photo to a File

Assuming we have the ID of a Photo, this example demonstrates how to download the photo image data to a 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
    DECLARE @sTmp0 nvarchar(4000)
    -- This example requires the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    -- This example assumes a previously obtained an access token
    DECLARE @oauth2 int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.OAuth2', @oauth2 OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    EXEC sp_OASetProperty @oauth2, 'AccessToken', 'FACEBOOK-ACCESS-TOKEN'

    DECLARE @rest int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Rest', @rest OUT

    -- Connect to Facebook...
    DECLARE @success int
    EXEC sp_OAMethod @rest, 'Connect', @success OUT, 'graph.facebook.com', 443, 1, 1
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @rest, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @oauth2
        EXEC @hr = sp_OADestroy @rest
        RETURN
      END

    -- Provide the authentication credentials (i.e. the access key)
    EXEC sp_OAMethod @rest, 'SetAuthOAuth2', @success OUT, @oauth2

    -- Assumes we've already obtained a Photo ID.
    DECLARE @photoId nvarchar(4000)
    SELECT @photoId = '10210199026347451'

    DECLARE @sbPath int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.StringBuilder', @sbPath OUT

    EXEC sp_OAMethod @sbPath, 'Append', @success OUT, '/v2.7/'
    EXEC sp_OAMethod @sbPath, 'Append', @success OUT, @photoId

    -- First we're going to get the photo informaton so we can get the URL of the image file data.
    -- Select the fields we want.
    -- See https://developers.facebook.com/docs/graph-api/reference/photo/
    EXEC sp_OAMethod @rest, 'AddQueryParam', @success OUT, 'fields', 'id,album,images'

    DECLARE @responseJson nvarchar(4000)
    EXEC sp_OAMethod @sbPath, 'GetAsString', @sTmp0 OUT
    EXEC sp_OAMethod @rest, 'FullRequestNoBody', @responseJson OUT, 'GET', @sTmp0
    EXEC sp_OAGetProperty @rest, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 <> 1
      BEGIN
        EXEC sp_OAGetProperty @rest, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @oauth2
        EXEC @hr = sp_OADestroy @rest
        EXEC @hr = sp_OADestroy @sbPath
        RETURN
      END

    DECLARE @json int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.JsonObject', @json OUT

    EXEC sp_OASetProperty @json, 'EmitCompact', 0
    EXEC sp_OAMethod @json, 'Load', @success OUT, @responseJson

    -- Show the JSON in human-readable format.
    EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
    PRINT @sTmp0

    -- Get the image URL.
    DECLARE @imageUrl nvarchar(4000)
    EXEC sp_OAMethod @json, 'StringOf', @imageUrl OUT, 'images[0].source'

    PRINT 'Downloading from ' + @imageUrl

    DECLARE @sbImageUrl int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.StringBuilder', @sbImageUrl OUT

    EXEC sp_OAMethod @sbImageUrl, 'Append', @success OUT, @imageUrl

    -- Build the output local file path.
    DECLARE @sbToPath int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.StringBuilder', @sbToPath OUT

    EXEC sp_OAMethod @sbToPath, 'Append', @success OUT, 'qa_output/fb'
    EXEC sp_OAMethod @json, 'StringOf', @sTmp0 OUT, 'id'
    EXEC sp_OAMethod @sbToPath, 'Append', @success OUT, @sTmp0
    DECLARE @bCaseSensitive int
    SELECT @bCaseSensitive = 0
    EXEC sp_OAMethod @sbImageUrl, 'Contains', @iTmp0 OUT, '.jpg', @bCaseSensitive
    IF @iTmp0 = 1
      BEGIN
        EXEC sp_OAMethod @sbToPath, 'Append', @success OUT, '.jpg'
      END
    ELSE
      BEGIN
        EXEC sp_OAMethod @sbToPath, 'Append', @success OUT, '.png'
      END

    EXEC sp_OAMethod @sbToPath, 'GetAsString', @sTmp0 OUT
    PRINT 'Downloading to ' + @sTmp0

    -- Download using Chilkat HTTP.
    DECLARE @http int
    EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Http', @http OUT

    EXEC sp_OAMethod @sbToPath, 'GetAsString', @sTmp0 OUT
    EXEC sp_OAMethod @http, 'Download', @success OUT, @imageUrl, @sTmp0
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
      END
    ELSE
      BEGIN

        PRINT 'Downloaded.'
      END

    EXEC @hr = sp_OADestroy @oauth2
    EXEC @hr = sp_OADestroy @rest
    EXEC @hr = sp_OADestroy @sbPath
    EXEC @hr = sp_OADestroy @json
    EXEC @hr = sp_OADestroy @sbImageUrl
    EXEC @hr = sp_OADestroy @sbToPath
    EXEC @hr = sp_OADestroy @http


END
GO