Creates a single use token that wraps the details of a credit card. This token can be used in place of a credit card dictionary with any API method.
curl https://api.stripe.com/v1/tokens \
-u STRIPE_SECRET_KEY: \
-d card[number]=4242424242424242 \
-d card[exp_month]=12 \
-d card[exp_year]=2019 \
-d card[cvc]=123
-X POST
Use ChilkatAx-9.5.0-win32.pkg
Procedure Test
Handle hoRest
Boolean iSuccess
Boolean iBTls
Integer iPort
Boolean iBAutoReconnect
String sStrResponseBody
Handle hoJsonResponse
String sId
String sObject
String sCardId
String sCardObject
Boolean iCardAddress_city
Boolean iCardAddress_country
Boolean iCardAddress_line1
Boolean iCardAddress_line1_check
Boolean iCardAddress_line2
Boolean iCardAddress_state
Boolean iCardAddress_zip
Boolean iCardAddress_zip_check
String sCardBrand
String sCardCountry
Boolean iCardCvc_check
Boolean iCardDynamic_last4
Integer iCardExp_month
Integer iCardExp_year
String sCardFingerprint
String sCardFunding
String sCardLast4
Boolean iCardName
Boolean iCardTokenization_method
Boolean iClient_ip
Integer iCreated
Boolean iLivemode
String sType
Boolean iUsed
String sTemp1
Integer iTemp1
Boolean bTemp1
Get Create (RefClass(cComChilkatRest)) To hoRest
If (Not(IsComObjectCreated(hoRest))) Begin
Send CreateComObject of hoRest
End
// URL: https://api.stripe.com/v1/tokens
Move True To iBTls
Move 443 To iPort
Move True To iBAutoReconnect
Get ComConnect Of hoRest "api.stripe.com" iPort iBTls iBAutoReconnect To iSuccess
If (iSuccess <> True) Begin
Get ComConnectFailReason Of hoRest To iTemp1
Showln "ConnectFailReason: " iTemp1
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
Get ComSetAuthBasic Of hoRest "STRIPE_SECRET_KEY" "" To iSuccess
Get ComAddQueryParam Of hoRest "card[number]" "4242424242424242" To iSuccess
Get ComAddQueryParam Of hoRest "card[exp_month]" "12" To iSuccess
Get ComAddQueryParam Of hoRest "card[exp_year]" "2019" To iSuccess
Get ComAddQueryParam Of hoRest "card[cvc]" "123" To iSuccess
Get ComFullRequestFormUrlEncoded Of hoRest "POST" "/v1/tokens" To sStrResponseBody
Get ComLastMethodSuccess Of hoRest To bTemp1
If (bTemp1 <> True) Begin
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
Get Create (RefClass(cComChilkatJsonObject)) To hoJsonResponse
If (Not(IsComObjectCreated(hoJsonResponse))) Begin
Send CreateComObject of hoJsonResponse
End
Get ComLoad Of hoJsonResponse sStrResponseBody To iSuccess
Get ComStringOf Of hoJsonResponse "id" To sId
Get ComStringOf Of hoJsonResponse "object" To sObject
Get ComStringOf Of hoJsonResponse "card.id" To sCardId
Get ComStringOf Of hoJsonResponse "card.object" To sCardObject
Get ComIsNullOf Of hoJsonResponse "card.address_city" To iCardAddress_city
Get ComIsNullOf Of hoJsonResponse "card.address_country" To iCardAddress_country
Get ComIsNullOf Of hoJsonResponse "card.address_line1" To iCardAddress_line1
Get ComIsNullOf Of hoJsonResponse "card.address_line1_check" To iCardAddress_line1_check
Get ComIsNullOf Of hoJsonResponse "card.address_line2" To iCardAddress_line2
Get ComIsNullOf Of hoJsonResponse "card.address_state" To iCardAddress_state
Get ComIsNullOf Of hoJsonResponse "card.address_zip" To iCardAddress_zip
Get ComIsNullOf Of hoJsonResponse "card.address_zip_check" To iCardAddress_zip_check
Get ComStringOf Of hoJsonResponse "card.brand" To sCardBrand
Get ComStringOf Of hoJsonResponse "card.country" To sCardCountry
Get ComIsNullOf Of hoJsonResponse "card.cvc_check" To iCardCvc_check
Get ComIsNullOf Of hoJsonResponse "card.dynamic_last4" To iCardDynamic_last4
Get ComIntOf Of hoJsonResponse "card.exp_month" To iCardExp_month
Get ComIntOf Of hoJsonResponse "card.exp_year" To iCardExp_year
Get ComStringOf Of hoJsonResponse "card.fingerprint" To sCardFingerprint
Get ComStringOf Of hoJsonResponse "card.funding" To sCardFunding
Get ComStringOf Of hoJsonResponse "card.last4" To sCardLast4
Get ComIsNullOf Of hoJsonResponse "card.name" To iCardName
Get ComIsNullOf Of hoJsonResponse "card.tokenization_method" To iCardTokenization_method
Get ComIsNullOf Of hoJsonResponse "client_ip" To iClient_ip
Get ComIntOf Of hoJsonResponse "created" To iCreated
Get ComBoolOf Of hoJsonResponse "livemode" To iLivemode
Get ComStringOf Of hoJsonResponse "type" To sType
Get ComBoolOf Of hoJsonResponse "used" To iUsed
End_Procedure
{
"id": "tok_1BnETKGswQrCoh0XIvDUT3mu",
"object": "token",
"card": {
"id": "card_1BnETKGswQrCoh0XGXCaLCT2",
"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
}