Visual FoxPro

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. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loJson
LOCAL loSbUrl
LOCAL loSbResponseBody
LOCAL loJsonResponse

lnSuccess = 0

*  This example does the following:

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

loHttp = 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

loJson = CreateObject('Chilkat.JsonObject')
lnSuccess = loJson.LoadFile("qa_data/tokens/_salesforce.json")
IF (lnSuccess = 0) THEN
    ? "Failed to load OAuth2 access token."
    RELEASE loHttp
    RELEASE loJson
    CANCEL
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('Chilkat.StringBuilder')
loSbUrl.Append(loJson.StringOf("instance_url"))
loSbUrl.Append("/services/oauth2/userinfo")

loSbResponseBody = CreateObject('Chilkat.StringBuilder')
lnSuccess = loHttp.QuickGetSb(loSbUrl.GetAsString(),loSbResponseBody)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJson
    RELEASE loSbUrl
    RELEASE loSbResponseBody
    CANCEL
ENDIF

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

loJsonResponse = CreateObject('Chilkat.JsonObject')
loJsonResponse.LoadSb(loSbResponseBody)
loJsonResponse.EmitCompact = 0
? 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