Uploads a file to Stripe.
curl https://files.stripe.com/v1/files \
-u STRIPE_SECRET_KEY: \
-F purpose=dispute_evidence \
-F file="@/path/to/a/file.jpg"
IncludeFile "CkStream.pb"
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://files.stripe.com/v1/files
bTls.i = 1
port.i = 443
bAutoReconnect.i = 1
success = CkRest::ckConnect(rest,"files.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::setCkPartSelector(rest, "1")
CkRest::ckAddHeader(rest,"Content-Disposition","form-data; name=" + Chr(34) + "purpose" + Chr(34))
CkRest::ckSetMultipartBodyString(rest,"dispute_evidence")
CkRest::setCkPartSelector(rest, "2")
fileStream2.i = CkStream::ckCreate()
If fileStream2.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkStream::setCkSourceFile(fileStream2, "/path/to/a/file.jpg")
CkRest::ckAddHeader(rest,"Content-Disposition","form-data; name=" + Chr(34) + "/path/to/a/file.jpg" + Chr(34) + "; filename=" + Chr(34) + "/path/to/a/file.jpg" + Chr(34))
CkRest::ckAddHeader(rest,"Content-Type","image/jpeg")
CkRest::ckSetMultipartBodyStream(rest,fileStream2)
CkRest::setCkPartSelector(rest, "0")
CkRest::ckAddHeader(rest,"Expect","100-continue")
strResponseBody.s = CkRest::ckFullRequestMultipart(rest,"POST","/v1/files")
If CkRest::ckLastMethodSuccess(rest) <> 1
Debug CkRest::ckLastErrorText(rest)
CkRest::ckDispose(rest)
CkStream::ckDispose(fileStream2)
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
created.i
filename.s
purpose.s
size.i
type.s
url.s
id = CkJsonObject::ckStringOf(jsonResponse,"id")
object = CkJsonObject::ckStringOf(jsonResponse,"object")
created = CkJsonObject::ckIntOf(jsonResponse,"created")
filename = CkJsonObject::ckStringOf(jsonResponse,"filename")
purpose = CkJsonObject::ckStringOf(jsonResponse,"purpose")
size = CkJsonObject::ckIntOf(jsonResponse,"size")
type = CkJsonObject::ckStringOf(jsonResponse,"type")
url = CkJsonObject::ckStringOf(jsonResponse,"url")
CkRest::ckDispose(rest)
CkStream::ckDispose(fileStream2)
CkJsonObject::ckDispose(jsonResponse)
ProcedureReturn
EndProcedure
{
"id": "file_1BnEEuGswQrCoh0XqB3XkqAg",
"object": "file_upload",
"created": 1516661888,
"filename": "path",
"purpose": "sigma_scheduled_query",
"size": 500,
"type": "csv",
"url": "https://stripe-upload-api.s3.amazonaws.com/uploads/file_1BnEEuGswQrCoh0XqB3XkqAg?AWSAccessKeyId=KEY_ID\u0026Expires=TIMESTAMP\u0026Signature=SIGNATURE"
}