(SQL Server) 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

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    -- 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.

    DECLARE @rest int
    -- Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Rest', @rest OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    -- 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.
    DECLARE @bAutoReconnect int
    SELECT @bAutoReconnect = 1
    DECLARE @success int
    EXEC sp_OAMethod @rest, 'Connect', @success OUT, 'api.sandbox.paypal.com', 443, 1, @bAutoReconnect
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @rest, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @rest
        RETURN
      END

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

    EXEC sp_OAMethod @rest, 'AddHeader', @success OUT, 'Accept', 'application/json'
    EXEC sp_OAMethod @rest, 'AddHeader', @success OUT, 'Accept-Language', 'en_US'

    -- For additional help on where to find  your client ID and API secret, see PayPal Client_ID and API_Secret
    EXEC sp_OAMethod @rest, 'SetAuthBasic', @success OUT, 'PAYPAL_REST_API_CLIENT_ID', 'PAYPAL_REST_API_SECRET'

    EXEC sp_OAMethod @rest, 'AddQueryParam', @success OUT, 'grant_type', 'client_credentials'

    DECLARE @responseStr nvarchar(4000)
    EXEC sp_OAMethod @rest, 'FullRequestFormUrlEncoded', @responseStr OUT, 'POST', '/v1/oauth2/token'
    EXEC sp_OAGetProperty @rest, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 <> 1
      BEGIN
        EXEC sp_OAGetProperty @rest, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @rest
        RETURN
      END

    EXEC sp_OAGetProperty @rest, 'LastRequestHeader', @sTmp0 OUT
    PRINT @sTmp0

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

    DECLARE @json int
    -- Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.JsonObject', @json OUT

    EXEC sp_OAMethod @json, 'Load', @success OUT, @responseStr
    EXEC sp_OASetProperty @json, 'EmitCompact', 0

    -- Check the response status code.  A 200 indicates success..
    EXEC sp_OAGetProperty @rest, 'ResponseStatusCode', @iTmp0 OUT
    IF @iTmp0 <> 200
      BEGIN
        EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
        PRINT @sTmp0

        PRINT 'Failed.'
        EXEC @hr = sp_OADestroy @rest
        EXEC @hr = sp_OADestroy @json
        RETURN
      END

    -- 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).
    DECLARE @dateTime int
    -- Use "Chilkat_9_5_0.CkDateTime" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.CkDateTime', @dateTime OUT

    DECLARE @bLocalTime int
    SELECT @bLocalTime = 0
    DECLARE @dtNow int
    EXEC sp_OAMethod @dateTime, 'GetAsUnixTime', @dtNow OUT, @bLocalTime
    EXEC sp_OAMethod @json, 'AppendInt', @success OUT, 'tokenCreateTimeUtc', @dtNow

    -- Examine the access token and save to a file.

    EXEC sp_OAMethod @json, 'StringOf', @sTmp0 OUT, 'access_token'
    PRINT 'Access Token: ' + @sTmp0

    PRINT 'Full JSON Response:'
    EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
    PRINT @sTmp0

    DECLARE @sbResponse int
    -- Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbResponse OUT

    EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
    EXEC sp_OAMethod @sbResponse, 'Append', @success OUT, @sTmp0
    DECLARE @bEmitBom int
    SELECT @bEmitBom = 0
    EXEC sp_OAMethod @sbResponse, 'WriteFile', @success OUT, 'qa_data/tokens/paypal.json', 'utf-8', @bEmitBom

    EXEC @hr = sp_OADestroy @rest
    EXEC @hr = sp_OADestroy @json
    EXEC @hr = sp_OADestroy @dateTime
    EXEC @hr = sp_OADestroy @sbResponse


END
GO