(Visual FoxPro) PayPal - Create Direct Credit Card Payment

See more PayPal Examples

Creates a direct credit card payment where your application passes the credit card, shipping, and payment information to PayPal.

Note: For sandbox calls, you can use the credit card numbers provided in your sandbox test accounts.

Note: This is an example where you handle the card data directly, and therefore you would need to ensure you are PCI compliant. There are other ways to create a payment where your application does NOT handle the credit card data directly.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

LOCAL loJsonToken
LOCAL loSbAuth
LOCAL loRest
LOCAL lnBAutoReconnect
LOCAL lnSuccess
LOCAL loJson
LOCAL loSbJsonRequest
LOCAL loSbJsonResponse

* 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.

* Load our previously obtained access token. (see PayPal OAuth2 Access Token)
loJsonToken = CreateObject('Chilkat.JsonObject')
loJsonToken.LoadFile("qa_data/tokens/paypal.json")

* Build the Authorization request header field value.
loSbAuth = CreateObject('Chilkat.StringBuilder')
* token_type should be "Bearer"
loSbAuth.Append(loJsonToken.StringOf("token_type"))
loSbAuth.Append(" ")
loSbAuth.Append(loJsonToken.StringOf("access_token"))

* 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.
loRest = CreateObject('Chilkat.Rest')
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("api.sandbox.paypal.com",443,1,lnBAutoReconnect)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loJsonToken
    RELEASE loSbAuth
    RELEASE loRest
    CANCEL
ENDIF

* ----------------------------------------------------------------------------------------------
* The code above this comment could be placed inside a function/subroutine within the application
* because the connection does not need to be made for every request.  Once the connection is made
* the app may send many requests..
* ----------------------------------------------------------------------------------------------

* Build the JSON containing the credit card data and transaction information.
loJson = CreateObject('Chilkat.JsonObject')
loJson.EmitCompact = 0
loJson.UpdateString("intent","sale")
loJson.UpdateString("payer.payment_method","credit_card")
loJson.UpdateString("payer.funding_instruments[0].credit_card.number","4032034813337237")
loJson.UpdateString("payer.funding_instruments[0].credit_card.type","visa")
loJson.UpdateString("payer.funding_instruments[0].credit_card.expire_month","9")
loJson.UpdateString("payer.funding_instruments[0].credit_card.expire_year","2028")
loJson.UpdateString("payer.funding_instruments[0].credit_card.cvv2","123")
loJson.UpdateString("transactions[0].amount.total","10.00")
loJson.UpdateString("transactions[0].amount.currency","USD")
loJson.UpdateString("transactions[0].payee.email","payee@example.com")

* Use a sandbox CC number for testing:
* 

? loJson.Emit()

* The JSON created by the above code is this:

* -----------------------------------------------------------------
* Ensure that payee@example.com is a valid sandbox business account
* -----------------------------------------------------------------

* {
*   "intent": "sale",
*   "payer": {
*     "payment_method": "credit_card",
*     "funding_instruments": [
*       {
*         "credit_card": {
*           "number": "4032034813337237",
*           "type": "visa",
*           "expire_month": "9",
*           "expire_year": "2028",
*           "cvv2": "123"
*         }
*       }
*     ]
*   },
*   "transactions": [
*     {
*       "amount": {
*         "total": "10.00",
*         "currency": "USD"
*       },
*       "payee": {
*         "email": "payee@example.com"  
*       }
*     }
*   ]
* }

loRest.AddHeader("Authorization",loSbAuth.GetAsString())
loRest.AddHeader("Content-Type","application/json")

* Send the POST request containign the JSON in the request body, and get the JSON response.
loSbJsonRequest = CreateObject('Chilkat.StringBuilder')
loJson.EmitCompact = 1
loJson.EmitSb(loSbJsonRequest)
loSbJsonResponse = CreateObject('Chilkat.StringBuilder')
lnSuccess = loRest.FullRequestSb("POST","/v1/payments/payment",loSbJsonRequest,loSbJsonResponse)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loJsonToken
    RELEASE loSbAuth
    RELEASE loRest
    RELEASE loJson
    RELEASE loSbJsonRequest
    RELEASE loSbJsonResponse
    CANCEL
ENDIF

loJson.EmitCompact = 0
loJson.LoadSb(loSbJsonResponse)

? "Response Status Code = " + STR(loRest.ResponseStatusCode)

* Did we get a 201 success response?
IF (loRest.ResponseStatusCode <> 201) THEN
    ? loJson.Emit()
    ? "Failed."
    RELEASE loJsonToken
    RELEASE loSbAuth
    RELEASE loRest
    RELEASE loJson
    RELEASE loSbJsonRequest
    RELEASE loSbJsonResponse
    CANCEL
ENDIF

* Sample response JSON is shown below.
? loJson.Emit()

* Demonstrate how to access a few parts of the JSON response..
? "cc number: " + loJson.StringOf("payer.funding_instruments[0].credit_card.number")
? "subtotal: " + loJson.StringOf("transactions[0].amount.details.subtotal")
? "refund href: " + loJson.StringOf("transactions[0].related_resources[0].sale.links[1].href")

* 	{ 
* 	  "id": "PAY-66A12106PU3254228LA3BYKI",
* 	  "create_time": "2016-11-23T22:46:01Z",
* 	  "update_time": "2016-11-23T22:46:07Z",
* 	  "state": "approved",
* 	  "intent": "sale",
* 	  "payer": { 
* 	    "payment_method": "credit_card",
* 	    "funding_instruments": [
* 	      { 
* 	        "credit_card": { 
* 	          "type": "visa",
* 	          "number": "xxxxxxxxxxxx9974",
* 	          "expire_month": "9",
* 	          "expire_year": "2021",
* 	          "first_name": "Joe",
* 	          "last_name": "Buyer"
* 	        }
* 	      }
* 	    ]
* 	  },
* 	  "transactions": [
* 	    { 
* 	      "amount": { 
* 	        "total": "7.47",
* 	        "currency": "USD",
* 	        "details": { 
* 	          "subtotal": "7.47"
* 	        }
* 	      },
* 	      "description": "This is the payment transaction description.",
* 	      "related_resources": [
* 	        { 
* 	          "sale": { 
* 	            "id": "70L88278E6781074B",
* 	            "create_time": "2016-11-23T22:46:01Z",
* 	            "update_time": "2016-11-23T22:46:07Z",
* 	            "amount": { 
* 	              "total": "7.47",
* 	              "currency": "USD"
* 	            },
* 	            "state": "completed",
* 	            "parent_payment": "PAY-66A12106PU3254228LA3BYKI",
* 	            "links": [
* 	              { 
* 	                "href": "https://api.sandbox.paypal.com/v1/payments/sale/70L88278E6781074B",
* 	                "rel": "self",
* 	                "method": "GET"
* 	              },
* 	              { 
* 	                "href": "https://api.sandbox.paypal.com/v1/payments/sale/70L88278E6781074B/refund",
* 	                "rel": "refund",
* 	                "method": "POST"
* 	              },
* 	              { 
* 	                "href": "https://api.sandbox.paypal.com/v1/payments/payment/PAY-66A12106PU3254228LA3BYKI",
* 	                "rel": "parent_payment",
* 	                "method": "GET"
* 	              }
* 	            ],
* 	            "fmf_details": {},
* 	            "processor_response": { 
* 	              "avs_code": "X",
* 	              "cvv_code": "M"
* 	            }
* 	          }
* 	        }
* 	      ]
* 	    }
* 
* 	  ],
* 	  "links": [
* 	    { 
* 	      "href": "https://api.sandbox.paypal.com/v1/payments/payment/PAY-66A12106PU3254228LA3BYKI",
* 	      "rel": "self",
* 	      "method": "GET"
* 	    }
* 	  ]
* 	}
* 

RELEASE loJsonToken
RELEASE loSbAuth
RELEASE loRest
RELEASE loJson
RELEASE loSbJsonRequest
RELEASE loSbJsonResponse