Visual FoxPro Stripe: Retrieve a Token

Back to Index

Retrieves the token with the given ID.

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

CURL Command

curl https://api.stripe.com/v1/tokens/tok_1BnETKGswQrCoh0XcX6WAG5q \
   -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 lcCardId
LOCAL lcCardObject
LOCAL lnCardAddress_city
LOCAL lnCardAddress_country
LOCAL lnCardAddress_line1
LOCAL lnCardAddress_line1_check
LOCAL lnCardAddress_line2
LOCAL lnCardAddress_state
LOCAL lnCardAddress_zip
LOCAL lnCardAddress_zip_check
LOCAL lcCardBrand
LOCAL lcCardCountry
LOCAL lnCardCvc_check
LOCAL lnCardDynamic_last4
LOCAL lnCardExp_month
LOCAL lnCardExp_year
LOCAL lcCardFingerprint
LOCAL lcCardFunding
LOCAL lcCardLast4
LOCAL lnCardName
LOCAL lnCardTokenization_method
LOCAL lnClient_ip
LOCAL lnCreated
LOCAL lnLivemode
LOCAL lcType
LOCAL lnUsed

loRest = CreateObject('Chilkat_9_5_0.Rest')

*  URL: https://api.stripe.com/v1/tokens/tok_1BnETKGswQrCoh0XcX6WAG5q
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/tokens/tok_1BnETKGswQrCoh0XcX6WAG5q",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")
lcCardId = loJsonResponse.StringOf("card.id")
lcCardObject = loJsonResponse.StringOf("card.object")
lnCardAddress_city = loJsonResponse.IsNullOf("card.address_city")
lnCardAddress_country = loJsonResponse.IsNullOf("card.address_country")
lnCardAddress_line1 = loJsonResponse.IsNullOf("card.address_line1")
lnCardAddress_line1_check = loJsonResponse.IsNullOf("card.address_line1_check")
lnCardAddress_line2 = loJsonResponse.IsNullOf("card.address_line2")
lnCardAddress_state = loJsonResponse.IsNullOf("card.address_state")
lnCardAddress_zip = loJsonResponse.IsNullOf("card.address_zip")
lnCardAddress_zip_check = loJsonResponse.IsNullOf("card.address_zip_check")
lcCardBrand = loJsonResponse.StringOf("card.brand")
lcCardCountry = loJsonResponse.StringOf("card.country")
lnCardCvc_check = loJsonResponse.IsNullOf("card.cvc_check")
lnCardDynamic_last4 = loJsonResponse.IsNullOf("card.dynamic_last4")
lnCardExp_month = loJsonResponse.IntOf("card.exp_month")
lnCardExp_year = loJsonResponse.IntOf("card.exp_year")
lcCardFingerprint = loJsonResponse.StringOf("card.fingerprint")
lcCardFunding = loJsonResponse.StringOf("card.funding")
lcCardLast4 = loJsonResponse.StringOf("card.last4")
lnCardName = loJsonResponse.IsNullOf("card.name")
lnCardTokenization_method = loJsonResponse.IsNullOf("card.tokenization_method")
lnClient_ip = loJsonResponse.IsNullOf("client_ip")
lnCreated = loJsonResponse.IntOf("created")
lnLivemode = loJsonResponse.BoolOf("livemode")
lcType = loJsonResponse.StringOf("type")
lnUsed = loJsonResponse.BoolOf("used")

RELEASE loRest
RELEASE loSbResponseBody
RELEASE loJsonResponse

Sample JSON Response Body

{
  "id": "tok_1BnETKGswQrCoh0XcX6WAG5q",
  "object": "token",
  "card": {
    "id": "card_1BnETKGswQrCoh0Xa7UvZihk",
    "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",
    "cvc_check": null,
    "dynamic_last4": null,
    "exp_month": 8,
    "exp_year": 2019,
    "fingerprint": "F9mANtIt1TaukpRJ",
    "funding": "credit",
    "last4": "4242",
    "metadata": {},
    "name": null,
    "tokenization_method": null
  },
  "client_ip": null,
  "created": 1516662782,
  "livemode": false,
  "type": "card",
  "used": false
}