Delphi ActiveX Stripe: List all Charges

Back to Index

Returns a list of charges you’ve previously created. The charges are returned in sorted order, with the most recent charges appearing first.

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

CURL Command

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

Delphi ActiveX Example

var
rest: TChilkatRest;
success: Integer;
bTls: Integer;
port: Integer;
bAutoReconnect: Integer;
sbResponseBody: TChilkatStringBuilder;
jsonResponse: TChilkatJsonObject;
object: WideString;
url: WideString;
has_more: Integer;
i: Integer;
count_i: Integer;
id: WideString;
amount: Integer;
amount_refunded: Integer;
application: Integer;
application_fee: Integer;
balance_transaction: WideString;
captured: Integer;
created: Integer;
currency: WideString;
customer: Integer;
description: WideString;
destination: Integer;
dispute: Integer;
failure_code: Integer;
failure_message: Integer;
invoice: Integer;
livemode: Integer;
on_behalf_of: Integer;
order: Integer;
outcome: Integer;
paid: Integer;
receipt_email: Integer;
receipt_number: Integer;
refunded: Integer;
refundsObject: WideString;
refundsHas_more: Integer;
refundsTotal_count: Integer;
refundsUrl: WideString;
review: Integer;
shipping: Integer;
sourceId: WideString;
sourceObject: WideString;
sourceAddress_city: Integer;
sourceAddress_country: Integer;
sourceAddress_line1: Integer;
sourceAddress_line1_check: Integer;
sourceAddress_line2: Integer;
sourceAddress_state: Integer;
sourceAddress_zip: Integer;
sourceAddress_zip_check: Integer;
sourceBrand: WideString;
sourceCountry: WideString;
sourceCustomer: Integer;
sourceCvc_check: Integer;
sourceDynamic_last4: Integer;
sourceExp_month: Integer;
sourceExp_year: Integer;
sourceFingerprint: WideString;
sourceFunding: WideString;
sourceLast4: WideString;
sourceName: Integer;
sourceTokenization_method: Integer;
source_transfer: Integer;
statement_descriptor: Integer;
status: WideString;
transfer_group: Integer;
j: Integer;
count_j: Integer;

begin
rest := TChilkatRest.Create(Self);

//  URL: https://api.stripe.com/v1/charges?limit=3
bTls := 1;
port := 443;
bAutoReconnect := 1;
success := rest.Connect('api.stripe.com',port,bTls,bAutoReconnect);
if (success <> 1) then
  begin
    Memo1.Lines.Add('ConnectFailReason: ' + IntToStr(rest.ConnectFailReason));
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

rest.SetAuthBasic('STRIPE_SECRET_KEY','');

sbResponseBody := TChilkatStringBuilder.Create(Self);
success := rest.FullRequestNoBodySb('GET','/v1/charges?limit=3',sbResponseBody.ControlInterface);
if (success <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

jsonResponse := TChilkatJsonObject.Create(Self);
jsonResponse.LoadSb(sbResponseBody.ControlInterface);

object := jsonResponse.StringOf('object');
url := jsonResponse.StringOf('url');
has_more := jsonResponse.BoolOf('has_more');
i := 0;
count_i := jsonResponse.SizeOfArray('data');
while i < count_i do
  begin
    jsonResponse.I := i;
    id := jsonResponse.StringOf('data[i].id');
    object := jsonResponse.StringOf('data[i].object');
    amount := jsonResponse.IntOf('data[i].amount');
    amount_refunded := jsonResponse.IntOf('data[i].amount_refunded');
    application := jsonResponse.IsNullOf('data[i].application');
    application_fee := jsonResponse.IsNullOf('data[i].application_fee');
    balance_transaction := jsonResponse.StringOf('data[i].balance_transaction');
    captured := jsonResponse.BoolOf('data[i].captured');
    created := jsonResponse.IntOf('data[i].created');
    currency := jsonResponse.StringOf('data[i].currency');
    customer := jsonResponse.IsNullOf('data[i].customer');
    description := jsonResponse.StringOf('data[i].description');
    destination := jsonResponse.IsNullOf('data[i].destination');
    dispute := jsonResponse.IsNullOf('data[i].dispute');
    failure_code := jsonResponse.IsNullOf('data[i].failure_code');
    failure_message := jsonResponse.IsNullOf('data[i].failure_message');
    invoice := jsonResponse.IsNullOf('data[i].invoice');
    livemode := jsonResponse.BoolOf('data[i].livemode');
    on_behalf_of := jsonResponse.IsNullOf('data[i].on_behalf_of');
    order := jsonResponse.IsNullOf('data[i].order');
    outcome := jsonResponse.IsNullOf('data[i].outcome');
    paid := jsonResponse.BoolOf('data[i].paid');
    receipt_email := jsonResponse.IsNullOf('data[i].receipt_email');
    receipt_number := jsonResponse.IsNullOf('data[i].receipt_number');
    refunded := jsonResponse.BoolOf('data[i].refunded');
    refundsObject := jsonResponse.StringOf('data[i].refunds.object');
    refundsHas_more := jsonResponse.BoolOf('data[i].refunds.has_more');
    refundsTotal_count := jsonResponse.IntOf('data[i].refunds.total_count');
    refundsUrl := jsonResponse.StringOf('data[i].refunds.url');
    review := jsonResponse.IsNullOf('data[i].review');
    shipping := jsonResponse.IsNullOf('data[i].shipping');
    sourceId := jsonResponse.StringOf('data[i].source.id');
    sourceObject := jsonResponse.StringOf('data[i].source.object');
    sourceAddress_city := jsonResponse.IsNullOf('data[i].source.address_city');
    sourceAddress_country := jsonResponse.IsNullOf('data[i].source.address_country');
    sourceAddress_line1 := jsonResponse.IsNullOf('data[i].source.address_line1');
    sourceAddress_line1_check := jsonResponse.IsNullOf('data[i].source.address_line1_check');
    sourceAddress_line2 := jsonResponse.IsNullOf('data[i].source.address_line2');
    sourceAddress_state := jsonResponse.IsNullOf('data[i].source.address_state');
    sourceAddress_zip := jsonResponse.IsNullOf('data[i].source.address_zip');
    sourceAddress_zip_check := jsonResponse.IsNullOf('data[i].source.address_zip_check');
    sourceBrand := jsonResponse.StringOf('data[i].source.brand');
    sourceCountry := jsonResponse.StringOf('data[i].source.country');
    sourceCustomer := jsonResponse.IsNullOf('data[i].source.customer');
    sourceCvc_check := jsonResponse.IsNullOf('data[i].source.cvc_check');
    sourceDynamic_last4 := jsonResponse.IsNullOf('data[i].source.dynamic_last4');
    sourceExp_month := jsonResponse.IntOf('data[i].source.exp_month');
    sourceExp_year := jsonResponse.IntOf('data[i].source.exp_year');
    sourceFingerprint := jsonResponse.StringOf('data[i].source.fingerprint');
    sourceFunding := jsonResponse.StringOf('data[i].source.funding');
    sourceLast4 := jsonResponse.StringOf('data[i].source.last4');
    sourceName := jsonResponse.IsNullOf('data[i].source.name');
    sourceTokenization_method := jsonResponse.IsNullOf('data[i].source.tokenization_method');
    source_transfer := jsonResponse.IsNullOf('data[i].source_transfer');
    statement_descriptor := jsonResponse.IsNullOf('data[i].statement_descriptor');
    status := jsonResponse.StringOf('data[i].status');
    transfer_group := jsonResponse.IsNullOf('data[i].transfer_group');
    j := 0;
    count_j := jsonResponse.SizeOfArray('data[i].refunds.data');
    while j < count_j do
      begin
        jsonResponse.J := j;
        j := j + 1;
      end;

    i := i + 1;
  end;

Sample JSON Response Body

{
  "object": "list",
  "url": "/v1/charges",
  "has_more": false,
  "data": [
    {
      "id": "ch_1BnETJGswQrCoh0XTs0EERBj",
      "object": "charge",
      "amount": 100,
      "amount_refunded": 0,
      "application": null,
      "application_fee": null,
      "balance_transaction": "txn_1BnETJGswQrCoh0XxO2tGYr7",
      "captured": false,
      "created": 1516662781,
      "currency": "usd",
      "customer": null,
      "description": "My First Test Charge (created for API docs)",
      "destination": null,
      "dispute": null,
      "failure_code": null,
      "failure_message": null,
      "fraud_details": {},
      "invoice": null,
      "livemode": false,
      "metadata": {},
      "on_behalf_of": null,
      "order": null,
      "outcome": null,
      "paid": true,
      "receipt_email": null,
      "receipt_number": null,
      "refunded": false,
      "refunds": {
        "object": "list",
        "data": [
        ],
        "has_more": false,
        "total_count": 0,
        "url": "/v1/charges/ch_1BnETJGswQrCoh0XTs0EERBj/refunds"
      },
      "review": null,
      "shipping": null,
      "source": {
        "id": "card_18ropuGswQrCoh0XjCJ5Zvma",
        "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": null,
        "cvc_check": null,
        "dynamic_last4": null,
        "exp_month": 8,
        "exp_year": 2017,
        "fingerprint": "F9mANtIt1TaukpRJ",
        "funding": "credit",
        "last4": "4242",
        "metadata": {},
        "name": null,
        "tokenization_method": null
      },
      "source_transfer": null,
      "statement_descriptor": null,
      "status": "succeeded",
      "transfer_group": null
    }
  ]
}