Visual FoxPro Stripe: Retrieve an Event

Back to Index

Retrieves the details of an event. Supply the unique identifier of the event, which you might have received in a webhook.

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

CURL Command

curl https://api.stripe.com/v1/events/evt_1BnETJGswQrCoh0XAl7jSmFB \
   -u STRIPE_SECRET_KEY:

Visual FoxPro Example

LOCAL loRest
LOCAL lnSuccess
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL loSbResponseBody
LOCAL loJsonResponse
LOCAL lcId
LOCAL lcObject
LOCAL lnApi_version
LOCAL lnCreated
LOCAL lcDataObjectId
LOCAL lcDataObjectObject
LOCAL lnDataObjectAmount
LOCAL lnDataObjectCreated
LOCAL lcDataObjectCurrency
LOCAL lcDataObjectInterval
LOCAL lnDataObjectInterval_count
LOCAL lnDataObjectLivemode
LOCAL lcDataObjectName
LOCAL lnDataObjectStatement_descriptor
LOCAL lnDataObjectTrial_period_days
LOCAL lnLivemode
LOCAL lnPending_webhooks
LOCAL lnRequestId
LOCAL lnRequestIdempotency_key
LOCAL lcType

loRest = CreateObject('Chilkat_9_5_0.Rest')

*  URL: https://api.stripe.com/v1/events/evt_1BnETJGswQrCoh0XAl7jSmFB
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("api.stripe.com",lnPort,lnBTls,lnBAutoReconnect)
IF (lnSuccess <> 1) THEN
    ? "ConnectFailReason: " + STR(loRest.ConnectFailReason)
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

loRest.SetAuthBasic("STRIPE_SECRET_KEY","")

loSbResponseBody = CreateObject('Chilkat_9_5_0.StringBuilder')
lnSuccess = loRest.FullRequestNoBodySb("GET","/v1/events/evt_1BnETJGswQrCoh0XAl7jSmFB",loSbResponseBody)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loSbResponseBody
    CANCEL
ENDIF

loJsonResponse = CreateObject('Chilkat_9_5_0.JsonObject')
loJsonResponse.LoadSb(loSbResponseBody)

lcId = loJsonResponse.StringOf("id")
lcObject = loJsonResponse.StringOf("object")
lnApi_version = loJsonResponse.IsNullOf("api_version")
lnCreated = loJsonResponse.IntOf("created")
lcDataObjectId = loJsonResponse.StringOf("data.object.id")
lcDataObjectObject = loJsonResponse.StringOf("data.object.object")
lnDataObjectAmount = loJsonResponse.IntOf("data.object.amount")
lnDataObjectCreated = loJsonResponse.IntOf("data.object.created")
lcDataObjectCurrency = loJsonResponse.StringOf("data.object.currency")
lcDataObjectInterval = loJsonResponse.StringOf("data.object.interval")
lnDataObjectInterval_count = loJsonResponse.IntOf("data.object.interval_count")
lnDataObjectLivemode = loJsonResponse.BoolOf("data.object.livemode")
lcDataObjectName = loJsonResponse.StringOf("data.object.name")
lnDataObjectStatement_descriptor = loJsonResponse.IsNullOf("data.object.statement_descriptor")
lnDataObjectTrial_period_days = loJsonResponse.IsNullOf("data.object.trial_period_days")
lnLivemode = loJsonResponse.BoolOf("livemode")
lnPending_webhooks = loJsonResponse.IntOf("pending_webhooks")
lnRequestId = loJsonResponse.IsNullOf("request.id")
lnRequestIdempotency_key = loJsonResponse.IsNullOf("request.idempotency_key")
lcType = loJsonResponse.StringOf("type")

RELEASE loRest
RELEASE loSbResponseBody
RELEASE loJsonResponse

Sample JSON Response Body

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