PureBasic Stripe: Create a File Upload

Back to Index

Uploads a file to Stripe.

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

CURL Command

curl https://files.stripe.com/v1/files \
   -u STRIPE_SECRET_KEY: \
   -F purpose=dispute_evidence \
   -F file="@/path/to/a/file.jpg"

PureBasic Example

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

Sample JSON Response Body

{
  "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"
}