(Delphi DLL) Test Salesforce OAuth2 Access Token

See more Salesforce Examples

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, Http, StringBuilder, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
json: HCkJsonObject;
success: Boolean;
sbUrl: HCkStringBuilder;
sbResponseBody: HCkStringBuilder;
jsonResponse: HCkJsonObject;

begin
// This example does the following:

// curl -X GET https://yourInstance.salesforce.com/services/oauth2/userinfo \
//      -H "Authorization: Bearer YOUR_ACCESS_TOKEN"

http := CkHttp_Create();

// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code

// This example assumes the OAuth2 access token was previously fetched 
// and saved to a file.  See Get SalesForce OAuth2 Access Token via Authorization Flow

json := CkJsonObject_Create();
success := CkJsonObject_LoadFile(json,'qa_data/tokens/_salesforce.json');
if (success = False) then
  begin
    Memo1.Lines.Add('Failed to load OAuth2 access token.');
    Exit;
  end;

// Here's an example of the JSON:

// {
//   "access_token": "00D41000....uLZBpT6",
//   "refresh_token": "5Aep....25xdGgkrV",
//   "signature": "cjTbSc5DvcKpaMoRTzuQTJLb1tcMw8LEO01flq4aMD4=",
//   "scope": "refresh_token id",
//   "instance_url": "https://d41000000f8a0eak-dev-ed.my.salesforce.com",
//   "id": "https://login.salesforce.com/id/00D41000000F8A0EAK/005410000....xAAE",
//   "token_type": "Bearer",
//   "issued_at": "1738348388166"
// }

// Adds the "Authorization: Bearer YOUR_ACCESS_TOKEN" header.
CkHttp_putAuthToken(http,CkJsonObject__stringOf(json,'access_token'));

// We want to build the following URL:  https://<instance_id>.salesforce.com/services/oauth2/userinfo
sbUrl := CkStringBuilder_Create();
CkStringBuilder_Append(sbUrl,CkJsonObject__stringOf(json,'instance_url'));
CkStringBuilder_Append(sbUrl,'/services/oauth2/userinfo');

sbResponseBody := CkStringBuilder_Create();
success := CkHttp_QuickGetSb(http,CkStringBuilder__getAsString(sbUrl),sbResponseBody);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

Memo1.Lines.Add('Response status code = ' + IntToStr(CkHttp_getLastStatus(http)));

jsonResponse := CkJsonObject_Create();
CkJsonObject_LoadSb(jsonResponse,sbResponseBody);
CkJsonObject_putEmitCompact(jsonResponse,False);
Memo1.Lines.Add(CkJsonObject__emit(jsonResponse));

// The expected JSON response is something like this:

// {
//   "sub": "005xxxxxxxxxxxx",
//   "name": "John Doe",
//   "preferred_username": "johndoe@example.com",
//   "email": "johndoe@example.com",
//   "profile": "https://na85.salesforce.com/005xxxxxxxxxxxx"
// ...
// ...
// }

CkHttp_Dispose(http);
CkJsonObject_Dispose(json);
CkStringBuilder_Dispose(sbUrl);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jsonResponse);

end;