(PowerBuilder) 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

integer li_rc
oleobject loo_Oauth2
oleobject loo_Rest
integer li_Success
string ls_PhotoId
oleobject loo_SbPath
string ls_ResponseJson
oleobject loo_Json
string ls_ImageUrl
oleobject loo_SbImageUrl
oleobject loo_SbToPath
integer li_BCaseSensitive
oleobject loo_Http

// 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
loo_Oauth2 = create oleobject
// Use "Chilkat_9_5_0.OAuth2" for versions of Chilkat < 10.0.0
li_rc = loo_Oauth2.ConnectToNewObject("Chilkat.OAuth2")
if li_rc < 0 then
    destroy loo_Oauth2
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Oauth2.AccessToken = "FACEBOOK-ACCESS-TOKEN"

loo_Rest = create oleobject
// Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0
li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest")

// Connect to Facebook...
li_Success = loo_Rest.Connect("graph.facebook.com",443,1,1)
if li_Success <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Oauth2
    destroy loo_Rest
    return
end if

// Provide the authentication credentials (i.e. the access key)
loo_Rest.SetAuthOAuth2(loo_Oauth2)

// Assumes we've already obtained a Photo ID.
ls_PhotoId = "10210199026347451"

loo_SbPath = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbPath.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbPath.Append("/v2.7/")
loo_SbPath.Append(ls_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/
loo_Rest.AddQueryParam("fields","id,album,images")

ls_ResponseJson = loo_Rest.FullRequestNoBody("GET",loo_SbPath.GetAsString())
if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Oauth2
    destroy loo_Rest
    destroy loo_SbPath
    return
end if

loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

loo_Json.EmitCompact = 0
loo_Json.Load(ls_ResponseJson)

// Show the JSON in human-readable format.
Write-Debug loo_Json.Emit()

// Get the image URL.
ls_ImageUrl = loo_Json.StringOf("images[0].source")
Write-Debug "Downloading from " + ls_ImageUrl

loo_SbImageUrl = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbImageUrl.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbImageUrl.Append(ls_ImageUrl)

// Build the output local file path.
loo_SbToPath = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbToPath.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbToPath.Append("qa_output/fb")
loo_SbToPath.Append(loo_Json.StringOf("id"))
li_BCaseSensitive = 0
if loo_SbImageUrl.Contains(".jpg",li_BCaseSensitive) = 1 then
    loo_SbToPath.Append(".jpg")
else
    loo_SbToPath.Append(".png")
end if

Write-Debug "Downloading to " + loo_SbToPath.GetAsString()

// Download using Chilkat HTTP.
loo_Http = create oleobject
// Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")

li_Success = loo_Http.Download(ls_ImageUrl,loo_SbToPath.GetAsString())
if li_Success <> 1 then
    Write-Debug loo_Http.LastErrorText
else
    Write-Debug "Downloaded."
end if



destroy loo_Oauth2
destroy loo_Rest
destroy loo_SbPath
destroy loo_Json
destroy loo_SbImageUrl
destroy loo_SbToPath
destroy loo_Http