Delphi ActiveX Requires Chilkat v11.0.0+

PayPal: Capture an authorization in full

See more PayPal Examples

For an untouched authorization, omit amount to capture its full authorized amount. Mark this the final capture. Store the new capture ID for reconciliation or refunds.

PayPal documentation

Delphi ActiveX

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

//  Omitting amount requests the full capture. Use this only for an authorization you
//  have not partially captured.

http.SetUrlVar('id','AUTHORIZATION_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);
body.UpdateBool('final_capture',1);

success := http.HttpJson('POST','https://api-m.sandbox.paypal.com/v2/payments/authorizations/{$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'));
Memo1.Lines.Add('Amount: ' + result.StringOf('amount.value'));
Memo1.Lines.Add('Currency: ' + result.StringOf('amount.currency_code'));