Classic ASP
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 Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

' 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
set oauth2 = Server.CreateObject("Chilkat.OAuth2")
oauth2.AccessToken = "FACEBOOK-ACCESS-TOKEN"

set rest = Server.CreateObject("Chilkat.Rest")

' Connect to Facebook...
success = rest.Connect("graph.facebook.com",443,1,1)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
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"

set sbPath = Server.CreateObject("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")

responseJson = rest.FullRequestNoBody("GET",sbPath.GetAsString())
If (rest.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

set json = Server.CreateObject("Chilkat.JsonObject")
json.EmitCompact = 0
success = json.Load(responseJson)

' Show the JSON in human-readable format.
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"

' Get the image URL.
imageUrl = json.StringOf("images[0].source")
Response.Write "<pre>" & Server.HTMLEncode( "Downloading from " & imageUrl) & "</pre>"

set sbImageUrl = Server.CreateObject("Chilkat.StringBuilder")
success = sbImageUrl.Append(imageUrl)

' Build the output local file path.
set sbToPath = Server.CreateObject("Chilkat.StringBuilder")
success = sbToPath.Append("qa_output/fb")
success = sbToPath.Append(json.StringOf("id"))
bCaseSensitive = 0
If (sbImageUrl.Contains(".jpg",bCaseSensitive) = 1) Then
    success = sbToPath.Append(".jpg")
Else
    success = sbToPath.Append(".png")
End If

Response.Write "<pre>" & Server.HTMLEncode( "Downloading to " & sbToPath.GetAsString()) & "</pre>"

' Download using Chilkat HTTP.
set http = Server.CreateObject("Chilkat.Http")
success = http.Download(imageUrl,sbToPath.GetAsString())
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
Else
    Response.Write "<pre>" & Server.HTMLEncode( "Downloaded.") & "</pre>"
End If


%>
</body>
</html>