PureBasic Stripe: List all Events

Back to Index

List events, going back up to 30 days.

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

CURL Command

curl https://api.stripe.com/v1/events?limit=3 \
   -u STRIPE_SECRET_KEY: \
   -G

PureBasic Example

IncludeFile "CkJsonObject.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkRest.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/events?limit=3
    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","")

    sbResponseBody.i = CkStringBuilder::ckCreate()
    If sbResponseBody.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkRest::ckFullRequestNoBodySb(rest,"GET","/v1/events?limit=3",sbResponseBody)
    If success <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkRest::ckDispose(rest)
        CkStringBuilder::ckDispose(sbResponseBody)
        ProcedureReturn
    EndIf

    jsonResponse.i = CkJsonObject::ckCreate()
    If jsonResponse.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckLoadSb(jsonResponse,sbResponseBody)

    object.s
    url.s
    has_more.i
    i.i
    count_i.i
    id.s
    api_version.i
    created.i
    dataObjectId.s
    dataObjectObject.s
    dataObjectAmount.i
    dataObjectCreated.i
    dataObjectCurrency.s
    dataObjectInterval.s
    dataObjectInterval_count.i
    dataObjectLivemode.i
    dataObjectName.s
    dataObjectStatement_descriptor.i
    dataObjectTrial_period_days.i
    livemode.i
    pending_webhooks.i
    requestId.i
    requestIdempotency_key.i
    type.s

    object = CkJsonObject::ckStringOf(jsonResponse,"object")
    url = CkJsonObject::ckStringOf(jsonResponse,"url")
    has_more = CkJsonObject::ckBoolOf(jsonResponse,"has_more")
    i = 0
    count_i = CkJsonObject::ckSizeOfArray(jsonResponse,"data")
    While i < count_i
        CkJsonObject::setCkI(jsonResponse, i)
        id = CkJsonObject::ckStringOf(jsonResponse,"data[i].id")
        object = CkJsonObject::ckStringOf(jsonResponse,"data[i].object")
        api_version = CkJsonObject::ckIsNullOf(jsonResponse,"data[i].api_version")
        created = CkJsonObject::ckIntOf(jsonResponse,"data[i].created")
        dataObjectId = CkJsonObject::ckStringOf(jsonResponse,"data[i].data.object.id")
        dataObjectObject = CkJsonObject::ckStringOf(jsonResponse,"data[i].data.object.object")
        dataObjectAmount = CkJsonObject::ckIntOf(jsonResponse,"data[i].data.object.amount")
        dataObjectCreated = CkJsonObject::ckIntOf(jsonResponse,"data[i].data.object.created")
        dataObjectCurrency = CkJsonObject::ckStringOf(jsonResponse,"data[i].data.object.currency")
        dataObjectInterval = CkJsonObject::ckStringOf(jsonResponse,"data[i].data.object.interval")
        dataObjectInterval_count = CkJsonObject::ckIntOf(jsonResponse,"data[i].data.object.interval_count")
        dataObjectLivemode = CkJsonObject::ckBoolOf(jsonResponse,"data[i].data.object.livemode")
        dataObjectName = CkJsonObject::ckStringOf(jsonResponse,"data[i].data.object.name")
        dataObjectStatement_descriptor = CkJsonObject::ckIsNullOf(jsonResponse,"data[i].data.object.statement_descriptor")
        dataObjectTrial_period_days = CkJsonObject::ckIsNullOf(jsonResponse,"data[i].data.object.trial_period_days")
        livemode = CkJsonObject::ckBoolOf(jsonResponse,"data[i].livemode")
        pending_webhooks = CkJsonObject::ckIntOf(jsonResponse,"data[i].pending_webhooks")
        requestId = CkJsonObject::ckIsNullOf(jsonResponse,"data[i].request.id")
        requestIdempotency_key = CkJsonObject::ckIsNullOf(jsonResponse,"data[i].request.idempotency_key")
        type = CkJsonObject::ckStringOf(jsonResponse,"data[i].type")
        i = i + 1
    Wend


    CkRest::ckDispose(rest)
    CkStringBuilder::ckDispose(sbResponseBody)
    CkJsonObject::ckDispose(jsonResponse)


    ProcedureReturn
EndProcedure

Sample JSON Response Body

{
  "object": "list",
  "url": "/v1/events",
  "has_more": false,
  "data": [
    {
      "id": "evt_1BnETJGswQrCoh0XAl7jSmFB",
      "object": "event",
      "api_version": null,
      "created": 1516662781,
      "data": {
        "object": {
          "id": "gold",
          "object": "plan",
          "amount": 2000,
          "created": 1516662781,
          "currency": "usd",
          "interval": "month",
          "interval_count": 1,
          "livemode": false,
          "metadata": {},
          "name": "T-shirt",
          "statement_descriptor": null,
          "trial_period_days": null
        }
      },
      "livemode": false,
      "pending_webhooks": 0,
      "request": {
        "id": null,
        "idempotency_key": null
      },
      "type": "plan.created"
    }
  ]
}