(Xojo Plugin) 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// 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 New Chilkat.OAuth2
oauth2.AccessToken = "FACEBOOK-ACCESS-TOKEN"

Dim rest As New Chilkat.Rest

// Connect to Facebook...
Dim success As Boolean
success = rest.Connect("graph.facebook.com",443,True,True)
If (success <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

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

// Assumes we've already obtained a Photo ID.
Dim photoId As String
photoId = "10210199026347451"

Dim sbPath As New Chilkat.StringBuilder
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")

Dim responseJson As String
responseJson = rest.FullRequestNoBody("GET",sbPath.GetAsString())
If (rest.LastMethodSuccess <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

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

// Show the JSON in human-readable format.
System.DebugLog(json.Emit())

// Get the image URL.
Dim imageUrl As String
imageUrl = json.StringOf("images[0].source")
System.DebugLog("Downloading from " + imageUrl)

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

// Build the output local file path.
Dim sbToPath As New Chilkat.StringBuilder
success = sbToPath.Append("qa_output/fb")
success = sbToPath.Append(json.StringOf("id"))
Dim bCaseSensitive As Boolean
bCaseSensitive = False
If (sbImageUrl.Contains(".jpg",bCaseSensitive) = True) Then
    success = sbToPath.Append(".jpg")
Else
    success = sbToPath.Append(".png")
End If

System.DebugLog("Downloading to " + sbToPath.GetAsString())

// Download using Chilkat HTTP.
Dim http As New Chilkat.Http
success = http.Download(imageUrl,sbToPath.GetAsString())
If (success <> True) Then
    System.DebugLog(http.LastErrorText)
Else
    System.DebugLog("Downloaded.")
End If