Delphi ActiveX Requires Chilkat v11.0.0+

PayPal: Pay with a previously saved card

See more PayPal Examples

Buyer interaction. Your application uses a browser for buyer approval or authentication when PayPal requests it. Configure the merchant return and cancel URLs for this flow.

When a returning buyer selects their saved card, look up its vault ID under their authenticated local account. Send the order price and currency from your own cart. Creating the order can capture immediately; inspect each capture before fulfillment. Follow payer-action if further authentication is required.

PayPal documentation

Delphi ActiveX

var
success: Integer;
http: TChilkatHttp;
resp: TChilkatHttpResponse;
crypt: TChilkatCrypt2;
requestId: WideString;
body: TChilkatJsonObject;
errorInfo: TChilkatJsonObject;
result: TChilkatJsonObject;
parsed: Integer;
linkIndex: Integer;
i: Integer;
j: 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);

//  Resolve the saved token under this signed-in buyer. A vault ID from a different
//  customer must never be accepted from the browser.

//  Create and persist this key once per business operation. On a timeout,
//  retry the same request with its saved key, not a newly generated one.
crypt := TChilkatCrypt2.Create(Self);
requestId := crypt.GenerateUuid();
http.SetRequestHeader('PayPal-Request-Id',requestId);
http.SetRequestHeader('Prefer','return=representation');
body := TChilkatJsonObject.Create(Self);
body.UpdateString('intent','CAPTURE');
body.UpdateString('purchase_units[0].amount.currency_code','USD');
body.UpdateString('purchase_units[0].amount.value','30.00');
body.UpdateString('payment_source.card.vault_id','SAVED_CARD_TOKEN');
body.UpdateString('payment_source.card.stored_credential.payment_initiator','CUSTOMER');
body.UpdateString('payment_source.card.stored_credential.payment_type','ONE_TIME');
body.UpdateString('payment_source.card.stored_credential.usage','SUBSEQUENT');
body.UpdateString('payment_source.card.experience_context.return_url','https://merchant.example/paypal/return');
body.UpdateString('payment_source.card.experience_context.cancel_url','https://merchant.example/paypal/cancel');

success := http.HttpJson('POST','https://api-m.sandbox.paypal.com/v2/checkout/orders',body.ControlInterface,'application/json',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);
parsed := result.Load(resp.BodyStr);
if (parsed <> 1) then
  begin
    Memo1.Lines.Add('Expected a JSON response; HTTP ' + IntToStr(resp.StatusCode));
    Exit;
  end;
Memo1.Lines.Add('ID: ' + result.StringOf('id'));
Memo1.Lines.Add('Status: ' + result.StringOf('status'));
//  Link order is not fixed. Send the buyer to the matching URL in a browser.
linkIndex := 0;
while (linkIndex < result.SizeOfArray('links')) do
  begin
    result.I := linkIndex;
    if (result.StringOfEquals('links[i].rel','payer-action',1)) then
      begin
        Memo1.Lines.Add('Approval URL: ' + result.StringOf('links[i].href'));
      end;
    linkIndex := linkIndex + 1;
  end;

//  A purchase unit may have no captures yet, or more than one.
i := 0;
while (i < result.SizeOfArray('purchase_units')) do
  begin
    result.I := i;
    j := 0;
    while (j < result.SizeOfArray('purchase_units[i].payments.captures')) do
      begin
        result.J := j;
        Memo1.Lines.Add('Unit: ' + result.StringOf('purchase_units[i].reference_id') + '  capture: ' + result.StringOf('purchase_units[i].payments.captures[j].id'));
        Memo1.Lines.Add('  ' + result.StringOf('purchase_units[i].payments.captures[j].status') + '  ' + result.StringOf('purchase_units[i].payments.captures[j].amount.value')
             + ' ' + result.StringOf('purchase_units[i].payments.captures[j].amount.currency_code'));
        j := j + 1;
      end;

    i := i + 1;
  end;