(PowerBuilder) PayPal -- Get an OAuth 2.0 Access Token

Demonstrates how to send a request to get a PayPal OAuth2 access token. Sends an HTTP request equivalent to the following:

curl https://api.sandbox.paypal.com/v1/oauth2/token \
  -H "Accept: application/json" \
  -H "Accept-Language: en_US" \
  -u "Client-Id:Secret" \
  -d "grant_type=client_credentials"

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Rest
integer li_BAutoReconnect
integer li_Success
string ls_ResponseStr
oleobject loo_Json
oleobject loo_DateTime
integer li_BLocalTime
integer li_DtNow
oleobject loo_SbResponse
integer li_BEmitBom

// Note: Requires Chilkat v9.5.0.64 or greater.

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

loo_Rest = create oleobject
// Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0
li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest")
if li_rc < 0 then
    destroy loo_Rest
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Make the initial connection.
// A single REST object, once connected, can be used for many PayPal REST API calls.
// The auto-reconnect indicates that if the already-established HTTPS connection is closed,
// then it will be automatically re-established as needed.
li_BAutoReconnect = 1
li_Success = loo_Rest.Connect("api.sandbox.paypal.com",443,1,li_BAutoReconnect)
if li_Success <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    return
end if

// Duplicate this request:

// 	curl https://api.sandbox.paypal.com/v1/oauth2/token \
// 	  -H "Accept: application/json" \
// 	  -H "Accept-Language: en_US" \
// 	  -u "Client-Id:Secret" \
// 	  -d "grant_type=client_credentials"

loo_Rest.AddHeader("Accept","application/json")
loo_Rest.AddHeader("Accept-Language","en_US")

// For additional help on where to find  your client ID and API secret, see PayPal Client_ID and API_Secret
loo_Rest.SetAuthBasic("PAYPAL_REST_API_CLIENT_ID","PAYPAL_REST_API_SECRET")

loo_Rest.AddQueryParam("grant_type","client_credentials")

ls_ResponseStr = loo_Rest.FullRequestFormUrlEncoded("POST","/v1/oauth2/token")
if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    return
end if

Write-Debug loo_Rest.LastRequestHeader

// A sample response:

// 	{
// 	  "scope": "https://api.paypal.com/v1/payments/.* https://api.paypal.com/v1/vault/credit-card https://api.paypal.com/v1/vault/credit-card/.*",
// 	  "access_token": "EEwJ6tF9x5WCIZDYzyZGaz6Khbw7raYRIBV_WxVvgmsG",
// 	  "token_type": "Bearer",
// 	  "app_id": "APP-6XR95014BA15863X",
// 	  "expires_in": 28800
// 	}

loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

loo_Json.Load(ls_ResponseStr)
loo_Json.EmitCompact = 0

// Check the response status code.  A 200 indicates success..
if loo_Rest.ResponseStatusCode <> 200 then
    Write-Debug loo_Json.Emit()
    Write-Debug "Failed."
    destroy loo_Rest
    destroy loo_Json
    return
end if

// Given that the access token expires in approx 8 hours,
// let's record the date/time this token was created.
// This will allow us to know beforehand if the token
// is expired (and we can then fetch a new token).
loo_DateTime = create oleobject
// Use "Chilkat_9_5_0.CkDateTime" for versions of Chilkat < 10.0.0
li_rc = loo_DateTime.ConnectToNewObject("Chilkat.CkDateTime")

li_BLocalTime = 0
li_DtNow = loo_DateTime.GetAsUnixTime(li_BLocalTime)
loo_Json.AppendInt("tokenCreateTimeUtc",li_DtNow)

// Examine the access token and save to a file.
Write-Debug "Access Token: " + loo_Json.StringOf("access_token")
Write-Debug "Full JSON Response:"
Write-Debug loo_Json.Emit()

loo_SbResponse = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbResponse.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbResponse.Append(loo_Json.Emit())
li_BEmitBom = 0
loo_SbResponse.WriteFile("qa_data/tokens/paypal.json","utf-8",li_BEmitBom)


destroy loo_Rest
destroy loo_Json
destroy loo_DateTime
destroy loo_SbResponse