(Delphi DLL) Get Current User Information

Demonstrates how to retrieve information about the current Facebook user. This is the most basic thing to get working first (after obtaining an access token).

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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
oauth2: HCkOAuth2;
rest: HCkRest;
bAutoReconnect: Boolean;
success: Boolean;
responseJson: PWideChar;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// This example assumes we previously obtained an access token
oauth2 := CkOAuth2_Create();
CkOAuth2_putAccessToken(oauth2,'FACEBOOK-ACCESS-TOKEN');

rest := CkRest_Create();

// Connect to Facebook and send the following GET request:

// GET /v2.7/me HTTP/1.1
// Host: graph.facebook.com
bAutoReconnect := True;
success := CkRest_Connect(rest,'graph.facebook.com',443,True,bAutoReconnect);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

// Provide the authentication credentials (i.e. the access key)
CkRest_SetAuthOAuth2(rest,oauth2);

responseJson := CkRest__fullRequestNoBody(rest,'GET','/v2.7/me');
if (CkRest_getLastMethodSuccess(rest) <> True) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

Memo1.Lines.Add(responseJson);

// The responseJson looks like this:
// {"name":"John Doe","id":"10111011320111110"}

CkOAuth2_Dispose(oauth2);
CkRest_Dispose(rest);

end;