Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VB.NET) Get Individual Photo InfoAssuming we have the ID of a Photo, this example demonstrates how to retrieve the photo information and parse the JSON.
' 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 = rest.Connect("graph.facebook.com",443,True,True) If (success <> True) Then Debug.WriteLine(rest.LastErrorText) Exit Sub End If ' Provide the authentication credentials (i.e. the access key) rest.SetAuthOAuth2(oauth2) ' Assumes we've already obtained a Photo ID. Dim photoId As String = "10210199026347451" Dim sbPath As New Chilkat.StringBuilder sbPath.Append("/v2.7/") sbPath.Append(photoId) ' Select the fields we want. ' This example will select many of the possible fields. ' See https://developers.facebook.com/docs/graph-api/reference/photo/ rest.AddQueryParam("fields","id,album,can_delete,can_tag,from,height,width,images,link,name,name_tags,picture,place,target") Dim responseJson As String = rest.FullRequestNoBody("GET",sbPath.GetAsString()) If (rest.LastMethodSuccess <> True) Then Debug.WriteLine(rest.LastErrorText) Exit Sub End If Dim json As New Chilkat.JsonObject json.EmitCompact = False json.Load(responseJson) ' Show the JSON in human-readable format. Debug.WriteLine(json.Emit()) ' A sample response is shown below. ' Demonstrate how to parse values from the JSON. Debug.WriteLine("Album name: " & json.StringOf("album.name")) Dim canDelete As Boolean = json.BoolOf("can_delete") Debug.WriteLine("Can Delete: " & canDelete) Debug.WriteLine("From Name: " & json.StringOf("from.name")) Dim height As Integer = json.IntOf("height") Dim width As Integer = json.IntOf("width") Debug.WriteLine("Dimensions: " & width & "x" & height) Debug.WriteLine("First Image Source: " & json.StringOf("images[0].source")) ' A sample JSON response is shown here. ' { ' "id": "10210199026347451", ' "album": { ' "created_time": "2009-10-19T00:06:46+0000", ' "name": "Timeline Photos", ' "id": "1237223526054" ' }, ' "can_delete": true, ' "can_tag": true, ' "from": { ' "name": "Matt Smith", ' "id": "10224048320139890" ' }, ' "height": 120, ' "width": 120, ' "images": [ ' { ' "height": 120, ' "source": "https:\/\/scontent.xx.fbcdn.net\/v\/t1.0-9\/14462791_10210199026347451_7830642117574407060_n.jpg?oh=a7f9ed10cf9cd81a82adeb541c60e2e2&oe=58ABB195", ' "width": 120 ' } ' ], ' "link": "https:\/\/www.facebook.com\/photo.php?fbid=10210199026347451&set=a.1237223526054.2038240.1093202869&type=3", ' "name": "Ignore my posts -- I'm doing some testing for Facebook related programming...", ' "picture": "https:\/\/scontent.xx.fbcdn.net\/v\/t1.0-9\/14462791_10210199026347451_7830642117574407060_n.jpg?oh=a7f9ed10cf9cd81a82adeb541c60e2e2&oe=58ABB195" ' } ' |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.