Delphi ActiveX Requires Chilkat v11.0.0+

PayPal: Capture a buyer-approved order

See more PayPal Examples

After approval, match the order to the checkout in your merchant records. Read each capture ID and status. Fulfill only when the expected amount and currency are captured and the capture is COMPLETED.

PayPal documentation

Delphi ActiveX

var
success: Integer;
http: TChilkatHttp;
resp: TChilkatHttpResponse;
crypt: TChilkatCrypt2;
requestId: WideString;
body: TChilkatJsonObject;
errorInfo: TChilkatJsonObject;
result: TChilkatJsonObject;
parsed: Integer;
i: Integer;
j: Integer;
cardToken: WideString;
customerId: WideString;

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);

//  Use the order ID you stored before redirecting the buyer, associated with this cart
//  and session.

//  Use the approved order created with intent CAPTURE.
http.SetUrlVar('id','ORDER_ID');
//  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);

success := http.HttpJson('POST','https://api-m.sandbox.paypal.com/v2/checkout/orders/{$id}/capture',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'));
//  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;

//  When a buyer opted to save a card, the token may arrive separately from capture.
if (result.StringOfEquals('payment_source.card.attributes.vault.status','VAULTED',1)) then
  begin
    cardToken := result.StringOf('payment_source.card.attributes.vault.id');
    customerId := result.StringOf('payment_source.card.attributes.vault.customer.id');
    //  Store cardToken and customerId with this buyer in the merchant credential store.
  end;
if (result.StringOfEquals('payment_source.card.attributes.vault.status','APPROVED',1)) then
  begin
    Memo1.Lines.Add('Await the verified VAULT.PAYMENT-TOKEN.CREATED webhook for the token.');
  end;