Delphi ActiveX Requires Chilkat v11.0.0+

PayPal: Void an unused authorization

See more PayPal Examples

Release an unused hold with the authorization ID. A fully captured authorization cannot be voided; refund its capture instead. A successful void can have an empty response body.

PayPal documentation

Delphi ActiveX

var
success: Integer;
http: TChilkatHttp;
resp: TChilkatHttpResponse;
crypt: TChilkatCrypt2;
requestId: WideString;
errorInfo: TChilkatJsonObject;

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 original authorization ID to release the hold; do not send an amount.

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

success := http.HttpNoBody('POST','https://api-m.sandbox.paypal.com/v2/payments/authorizations/{$id}/void',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;

Memo1.Lines.Add('Authorization void accepted; HTTP ' + IntToStr(resp.StatusCode));