Visual FoxPro Stripe: Update a Card

Back to Index

Updates only some card details, like the billing address or expiration date, you can do so without having to re-enter the full card details.

Documentation: https://stripe.com/docs/api/curl#update_card

CURL Command

curl https://api.stripe.com/v1/customers/cus_CBbg3iRMzWBjoe/sources/card_1BnETKGswQrCoh0Xhu1A6BfL \
   -u STRIPE_SECRET_KEY: \
   -d name="Liam Thomas" \
   -X POST

Visual FoxPro Example

LOCAL loRest
LOCAL lnSuccess
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL lcStrResponseBody
LOCAL loJsonResponse
LOCAL lcId
LOCAL lcObject
LOCAL lnAddress_city
LOCAL lnAddress_country
LOCAL lnAddress_line1
LOCAL lnAddress_line1_check
LOCAL lnAddress_line2
LOCAL lnAddress_state
LOCAL lnAddress_zip
LOCAL lnAddress_zip_check
LOCAL lcBrand
LOCAL lcCountry
LOCAL lcCustomer
LOCAL lnCvc_check
LOCAL lnDynamic_last4
LOCAL lnExp_month
LOCAL lnExp_year
LOCAL lcFingerprint
LOCAL lcFunding
LOCAL lcLast4
LOCAL lcName
LOCAL lnTokenization_method

loRest = CreateObject('Chilkat_9_5_0.Rest')

*  URL: https://api.stripe.com/v1/customers/cus_CBbg3iRMzWBjoe/sources/card_1BnETKGswQrCoh0Xhu1A6BfL
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("api.stripe.com",lnPort,lnBTls,lnBAutoReconnect)
IF (lnSuccess <> 1) THEN
    ? "ConnectFailReason: " + STR(loRest.ConnectFailReason)
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

loRest.SetAuthBasic("STRIPE_SECRET_KEY","")

loRest.AddQueryParam("name","Liam Thomas")

lcStrResponseBody = loRest.FullRequestFormUrlEncoded("POST","/v1/customers/cus_CBbg3iRMzWBjoe/sources/card_1BnETKGswQrCoh0Xhu1A6BfL")
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

loJsonResponse = CreateObject('Chilkat_9_5_0.JsonObject')
loJsonResponse.Load(lcStrResponseBody)

lcId = loJsonResponse.StringOf("id")
lcObject = loJsonResponse.StringOf("object")
lnAddress_city = loJsonResponse.IsNullOf("address_city")
lnAddress_country = loJsonResponse.IsNullOf("address_country")
lnAddress_line1 = loJsonResponse.IsNullOf("address_line1")
lnAddress_line1_check = loJsonResponse.IsNullOf("address_line1_check")
lnAddress_line2 = loJsonResponse.IsNullOf("address_line2")
lnAddress_state = loJsonResponse.IsNullOf("address_state")
lnAddress_zip = loJsonResponse.IsNullOf("address_zip")
lnAddress_zip_check = loJsonResponse.IsNullOf("address_zip_check")
lcBrand = loJsonResponse.StringOf("brand")
lcCountry = loJsonResponse.StringOf("country")
lcCustomer = loJsonResponse.StringOf("customer")
lnCvc_check = loJsonResponse.IsNullOf("cvc_check")
lnDynamic_last4 = loJsonResponse.IsNullOf("dynamic_last4")
lnExp_month = loJsonResponse.IntOf("exp_month")
lnExp_year = loJsonResponse.IntOf("exp_year")
lcFingerprint = loJsonResponse.StringOf("fingerprint")
lcFunding = loJsonResponse.StringOf("funding")
lcLast4 = loJsonResponse.StringOf("last4")
lcName = loJsonResponse.StringOf("name")
lnTokenization_method = loJsonResponse.IsNullOf("tokenization_method")

RELEASE loRest
RELEASE loJsonResponse

Sample JSON Response Body

{
  "id": "card_1BnETKGswQrCoh0Xhu1A6BfL",
  "object": "card",
  "address_city": null,
  "address_country": null,
  "address_line1": null,
  "address_line1_check": null,
  "address_line2": null,
  "address_state": null,
  "address_zip": null,
  "address_zip_check": null,
  "brand": "Visa",
  "country": "US",
  "customer": "cus_CBbg3iRMzWBjoe",
  "cvc_check": null,
  "dynamic_last4": null,
  "exp_month": 8,
  "exp_year": 2019,
  "fingerprint": "F9mANtIt1TaukpRJ",
  "funding": "credit",
  "last4": "4242",
  "metadata": {},
  "name": "Liam Thomas",
  "tokenization_method": null
}