Visual FoxPro Stripe: Retrieve a Card

Back to Index

Retrieve details about a specific card stored on the customer or recipient.

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

CURL Command

curl https://api.stripe.com/v1/customers/cus_CBbg3iRMzWBjoe/sources/card_1BnETKGswQrCoh0Xhu1A6BfL \
   -u STRIPE_SECRET_KEY:

Visual FoxPro Example

LOCAL loRest
LOCAL lnSuccess
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL loSbResponseBody
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 lnName
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","")

loSbResponseBody = CreateObject('Chilkat_9_5_0.StringBuilder')
lnSuccess = loRest.FullRequestNoBodySb("GET","/v1/customers/cus_CBbg3iRMzWBjoe/sources/card_1BnETKGswQrCoh0Xhu1A6BfL",loSbResponseBody)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loSbResponseBody
    CANCEL
ENDIF

loJsonResponse = CreateObject('Chilkat_9_5_0.JsonObject')
loJsonResponse.LoadSb(loSbResponseBody)

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")
lnName = loJsonResponse.IsNullOf("name")
lnTokenization_method = loJsonResponse.IsNullOf("tokenization_method")

RELEASE loRest
RELEASE loSbResponseBody
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": null,
  "tokenization_method": null
}