(Delphi ActiveX) Get Individual Photo Info

Assuming we have the ID of a Photo, this example demonstrates how to retrieve the photo information and parse the JSON.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
oauth2: TChilkatOAuth2;
rest: TChilkatRest;
success: Integer;
photoId: WideString;
sbPath: TChilkatStringBuilder;
responseJson: WideString;
json: TChilkatJsonObject;
canDelete: Integer;
height: Integer;
width: Integer;

begin
// 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
oauth2 := TChilkatOAuth2.Create(Self);
oauth2.AccessToken := 'FACEBOOK-ACCESS-TOKEN';

rest := TChilkatRest.Create(Self);

// Connect to Facebook...
success := rest.Connect('graph.facebook.com',443,1,1);
if (success <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

// Provide the authentication credentials (i.e. the access key)
rest.SetAuthOAuth2(oauth2.ControlInterface);

// Assumes we've already obtained a Photo ID.
photoId := '10210199026347451';

sbPath := TChilkatStringBuilder.Create(Self);
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');

responseJson := rest.FullRequestNoBody('GET',sbPath.GetAsString());
if (rest.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

json := TChilkatJsonObject.Create(Self);
json.EmitCompact := 0;
json.Load(responseJson);

// Show the JSON in human-readable format.
Memo1.Lines.Add(json.Emit());

// A sample response is shown below.
// Demonstrate how to parse values from the JSON.
Memo1.Lines.Add('Album name: ' + json.StringOf('album.name'));
canDelete := json.BoolOf('can_delete');
Memo1.Lines.Add('Can Delete: ' + IntToStr(Ord(canDelete)));
Memo1.Lines.Add('From Name: ' + json.StringOf('from.name'));
height := json.IntOf('height');
width := json.IntOf('width');
Memo1.Lines.Add('Dimensions: ' + IntToStr(width) + 'x' + IntToStr(height));
Memo1.Lines.Add('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"
// }
// 
end;