Creates a new credit card belonging to a customer.
curl https://api.stripe.com/v1/customers/cus_CBbg3iRMzWBjoe/sources \
-u STRIPE_SECRET_KEY: \
-d source=tok_amex \
-X POST
IncludeFile "CkRest.pb"
IncludeFile "CkJsonObject.pb"
Procedure ChilkatExample()
rest.i = CkRest::ckCreate()
If rest.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success.i
; URL: https://api.stripe.com/v1/customers/cus_CBbg3iRMzWBjoe/sources
bTls.i = 1
port.i = 443
bAutoReconnect.i = 1
success = CkRest::ckConnect(rest,"api.stripe.com",port,bTls,bAutoReconnect)
If success <> 1
Debug "ConnectFailReason: " + Str(CkRest::ckConnectFailReason(rest))
Debug CkRest::ckLastErrorText(rest)
CkRest::ckDispose(rest)
ProcedureReturn
EndIf
CkRest::ckSetAuthBasic(rest,"STRIPE_SECRET_KEY","")
CkRest::ckAddQueryParam(rest,"source","tok_amex")
strResponseBody.s = CkRest::ckFullRequestFormUrlEncoded(rest,"POST","/v1/customers/cus_CBbg3iRMzWBjoe/sources")
If CkRest::ckLastMethodSuccess(rest) <> 1
Debug CkRest::ckLastErrorText(rest)
CkRest::ckDispose(rest)
ProcedureReturn
EndIf
jsonResponse.i = CkJsonObject::ckCreate()
If jsonResponse.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkJsonObject::ckLoad(jsonResponse,strResponseBody)
id.s
object.s
address_city.i
address_country.i
address_line1.i
address_line1_check.i
address_line2.i
address_state.i
address_zip.i
address_zip_check.i
brand.s
country.s
customer.s
cvc_check.i
dynamic_last4.i
exp_month.i
exp_year.i
fingerprint.s
funding.s
last4.s
name.i
tokenization_method.i
id = CkJsonObject::ckStringOf(jsonResponse,"id")
object = CkJsonObject::ckStringOf(jsonResponse,"object")
address_city = CkJsonObject::ckIsNullOf(jsonResponse,"address_city")
address_country = CkJsonObject::ckIsNullOf(jsonResponse,"address_country")
address_line1 = CkJsonObject::ckIsNullOf(jsonResponse,"address_line1")
address_line1_check = CkJsonObject::ckIsNullOf(jsonResponse,"address_line1_check")
address_line2 = CkJsonObject::ckIsNullOf(jsonResponse,"address_line2")
address_state = CkJsonObject::ckIsNullOf(jsonResponse,"address_state")
address_zip = CkJsonObject::ckIsNullOf(jsonResponse,"address_zip")
address_zip_check = CkJsonObject::ckIsNullOf(jsonResponse,"address_zip_check")
brand = CkJsonObject::ckStringOf(jsonResponse,"brand")
country = CkJsonObject::ckStringOf(jsonResponse,"country")
customer = CkJsonObject::ckStringOf(jsonResponse,"customer")
cvc_check = CkJsonObject::ckIsNullOf(jsonResponse,"cvc_check")
dynamic_last4 = CkJsonObject::ckIsNullOf(jsonResponse,"dynamic_last4")
exp_month = CkJsonObject::ckIntOf(jsonResponse,"exp_month")
exp_year = CkJsonObject::ckIntOf(jsonResponse,"exp_year")
fingerprint = CkJsonObject::ckStringOf(jsonResponse,"fingerprint")
funding = CkJsonObject::ckStringOf(jsonResponse,"funding")
last4 = CkJsonObject::ckStringOf(jsonResponse,"last4")
name = CkJsonObject::ckIsNullOf(jsonResponse,"name")
tokenization_method = CkJsonObject::ckIsNullOf(jsonResponse,"tokenization_method")
CkRest::ckDispose(rest)
CkJsonObject::ckDispose(jsonResponse)
ProcedureReturn
EndProcedure
{
"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
}