Lianja

Test Salesforce OAuth2 Access Token

See more Salesforce Examples

Demonstrates how to make a simple Salesforce REST API call to test a previously obtained access token. Lianja

llSuccess = .F.

// This example does the following:

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

loHttp = createobject("CkHttp")

// 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

loJson = createobject("CkJsonObject")
llSuccess = loJson.LoadFile("qa_data/tokens/_salesforce.json")
if (llSuccess = .F.) then
    ? "Failed to load OAuth2 access token."
    release loHttp
    release loJson
    return
endif

// 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.
loHttp.AuthToken = loJson.StringOf("access_token")

// We want to build the following URL:  https://<instance_id>.salesforce.com/services/oauth2/userinfo
loSbUrl = createobject("CkStringBuilder")
loSbUrl.Append(loJson.StringOf("instance_url"))
loSbUrl.Append("/services/oauth2/userinfo")

loSbResponseBody = createobject("CkStringBuilder")
llSuccess = loHttp.QuickGetSb(loSbUrl.GetAsString(),loSbResponseBody)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loJson
    release loSbUrl
    release loSbResponseBody
    return
endif

? "Response status code = " + str(loHttp.LastStatus)

loJsonResponse = createobject("CkJsonObject")
loJsonResponse.LoadSb(loSbResponseBody)
loJsonResponse.EmitCompact = .F.
? loJsonResponse.Emit()

// 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"
// ...
// ...
// }


release loHttp
release loJson
release loSbUrl
release loSbResponseBody
release loJsonResponse