(Excel) 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.

Download Excel Class Modules Chilkat Excel Class Modules

' 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
Dim oauth2 As Chilkat.OAuth2
Set oauth2 = Chilkat.NewOAuth2
oauth2.AccessToken = "FACEBOOK-ACCESS-TOKEN"

Dim rest As Chilkat.Rest
Set rest = Chilkat.NewRest

' Connect to Facebook...

success = rest.Connect("graph.facebook.com",443,True,True)
If (success <> True) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

' Provide the authentication credentials (i.e. the access key)
success = rest.SetAuthOAuth2(oauth2)

' Assumes we've already obtained a Photo ID.

photoId = "10210199026347451"

Dim sbPath As Chilkat.StringBuilder
Set sbPath = Chilkat.NewStringBuilder
success = sbPath.Append("/v2.7/")
success = sbPath.Append(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/
success = rest.AddQueryParam("fields","id,album,images")


responseJson = rest.FullRequestNoBody("GET",sbPath.GetAsString())
If (rest.LastMethodSuccess <> True) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject
json.EmitCompact = False
success = json.Load(responseJson)

' Show the JSON in human-readable format.
Debug.Print json.Emit()

' Get the image URL.

imageUrl = json.StringOf("images[0].source")
Debug.Print "Downloading from "; imageUrl

Dim sbImageUrl As Chilkat.StringBuilder
Set sbImageUrl = Chilkat.NewStringBuilder
success = sbImageUrl.Append(imageUrl)

' Build the output local file path.
Dim sbToPath As Chilkat.StringBuilder
Set sbToPath = Chilkat.NewStringBuilder
success = sbToPath.Append("qa_output/fb")
success = sbToPath.Append(json.StringOf("id"))

bCaseSensitive = False
If (sbImageUrl.Contains(".jpg",bCaseSensitive) = True) Then
    success = sbToPath.Append(".jpg")
Else
    success = sbToPath.Append(".png")
End If

Debug.Print "Downloading to "; sbToPath.GetAsString()

' Download using Chilkat HTTP.
Dim http As Chilkat.Http
Set http = Chilkat.NewHttp
success = http.Download(imageUrl,sbToPath.GetAsString())
If (success <> True) Then
    Debug.Print http.LastErrorText
Else
    Debug.Print "Downloaded."
End If