Delphi ActiveX Requires Chilkat v11.0.0+

PayPal: Look up a subscription and its recent payments

See more PayPal Examples

Start with the PayPal subscription ID saved with the local customer. Display its status and next billing time, then list transactions for the previous 30 days with each gross amount and currency.

PayPal documentation

Delphi ActiveX

var
success: Integer;
http: TChilkatHttp;
resp: TChilkatHttpResponse;
errorInfo: TChilkatJsonObject;
result: TChilkatJsonObject;
parsedResult: Integer;
now: TCkDateTime;
query: TChilkatJsonObject;
historyError: TChilkatJsonObject;
history: TChilkatJsonObject;
parsedHistory: Integer;
i: Integer;

begin
success := 0;

//  See Unlock Chilkat before making requests.
//  For the merchant's internal backoffice application. Load the sandbox token
//  from the merchant's credential store. Keep it out of publicly distributed apps.
//  See Get a PayPal access token.
http := TChilkatHttp.Create(Self);
http.AuthToken := 'SANDBOX_ACCESS_TOKEN';
resp := TChilkatHttpResponse.Create(Self);

http.SetUrlVar('id','SUBSCRIPTION_ID');

success := http.HttpNoBody('GET','https://api-m.sandbox.paypal.com/v1/billing/subscriptions/{$id}',resp.ControlInterface);
if (success <> 1) then
  begin
    Memo1.Lines.Add('No HTTP response: ' + http.LastErrorText);
    Exit;
  end;
if ((resp.StatusCode < 200) or (resp.StatusCode >= 300)) then
  begin
    errorInfo := TChilkatJsonObject.Create(Self);
    errorInfo.Load(resp.BodyStr);
    Memo1.Lines.Add('HTTP ' + IntToStr(resp.StatusCode) + ' ' + errorInfo.StringOf('name') + ' ' + errorInfo.StringOf('details[0].issue'));
    Memo1.Lines.Add('PayPal debug ID: ' + errorInfo.StringOf('debug_id'));
    Exit;
  end;

result := TChilkatJsonObject.Create(Self);
parsedResult := result.Load(resp.BodyStr);
if (parsedResult <> 1) then
  begin
    Memo1.Lines.Add('Expected a JSON response; HTTP ' + IntToStr(resp.StatusCode));
    Exit;
  end;
Memo1.Lines.Add('Status: ' + result.StringOf('status'));
Memo1.Lines.Add('Next billing: ' + result.StringOf('billing_info.next_billing_time'));
now := TCkDateTime.Create(Self);
now.SetFromCurrentSystemTime();
query := TChilkatJsonObject.Create(Self);
query.UpdateString('end_time',now.GetAsTimestamp(0));
now.AddDays(-30);
query.UpdateString('start_time',now.GetAsTimestamp(0));
success := http.HttpParams('GET','https://api-m.sandbox.paypal.com/v1/billing/subscriptions/{$id}/transactions',query.ControlInterface,resp.ControlInterface);
if (success <> 1) then
  begin
    Memo1.Lines.Add('No HTTP response: ' + http.LastErrorText);
    Exit;
  end;
if ((resp.StatusCode < 200) or (resp.StatusCode >= 300)) then
  begin
    historyError := TChilkatJsonObject.Create(Self);
    historyError.Load(resp.BodyStr);
    Memo1.Lines.Add('HTTP ' + IntToStr(resp.StatusCode) + ' ' + historyError.StringOf('name') + ' ' + historyError.StringOf('details[0].issue'));
    Memo1.Lines.Add('PayPal debug ID: ' + historyError.StringOf('debug_id'));
    Exit;
  end;
history := TChilkatJsonObject.Create(Self);
parsedHistory := history.Load(resp.BodyStr);
if (parsedHistory <> 1) then
  begin
    Memo1.Lines.Add('Expected a JSON response; HTTP ' + IntToStr(resp.StatusCode));
    Exit;
  end;
i := 0;
while (i < history.SizeOfArray('transactions')) do
  begin
    history.I := i;
    Memo1.Lines.Add(history.StringOf('transactions[i].time') + '  ' + history.StringOf('transactions[i].id') + '  ' + history.StringOf('transactions[i].status') + '  '
         + history.StringOf('transactions[i].amount_with_breakdown.gross_amount.value') + ' ' + history.StringOf('transactions[i].amount_with_breakdown.gross_amount.currency_code'));
    i := i + 1;
  end;