Xbase++

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. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oJson
LOCAL oSbUrl
LOCAL oSbResponseBody
LOCAL oJsonResponse

nSuccess := 0

//  This example does the following:

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

oHttp := CreateObject("Chilkat.Http")

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

oJson := CreateObject("Chilkat.JsonObject")
nSuccess := oJson:LoadFile("qa_data/tokens/_salesforce.json")
IF (nSuccess == 0)
    ? "Failed to load OAuth2 access token."
    oHttp:destroy()
    oJson:destroy()
    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.
oHttp:AuthToken := oJson:StringOf("access_token")

//  We want to build the following URL:  https://<instance_id>.salesforce.com/services/oauth2/userinfo
oSbUrl := CreateObject("Chilkat.StringBuilder")
oSbUrl:Append(oJson:StringOf("instance_url"))
oSbUrl:Append("/services/oauth2/userinfo")

oSbResponseBody := CreateObject("Chilkat.StringBuilder")
nSuccess := oHttp:QuickGetSb(oSbUrl:GetAsString(), oSbResponseBody)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oJson:destroy()
    oSbUrl:destroy()
    oSbResponseBody:destroy()
    RETURN
ENDIF

? "Response status code = " + Str(oHttp:LastStatus)

oJsonResponse := CreateObject("Chilkat.JsonObject")
oJsonResponse:LoadSb(oSbResponseBody)
oJsonResponse:EmitCompact := 0
? oJsonResponse: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"
//  ...
//  ...
//  }

oHttp:destroy()
oJson:destroy()
oSbUrl:destroy()
oSbResponseBody:destroy()
oJsonResponse:destroy()