Delphi ActiveX Requires Chilkat v11.0.0+

PayPal: Find authorizations for a known order

See more PayPal Examples

Read the known order and visit every purchase unit. Extract its authorizations with their IDs, statuses and amounts. An empty collection means this order has no such resources yet; it says nothing about other orders.

PayPal documentation

Delphi ActiveX

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

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

success := http.HttpNoBody('GET','https://api-m.sandbox.paypal.com/v2/checkout/orders/{$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);
parsed := result.Load(resp.BodyStr);
if (parsed <> 1) then
  begin
    Memo1.Lines.Add('Expected a JSON response; HTTP ' + IntToStr(resp.StatusCode));
    Exit;
  end;
//  A purchase unit may have no authorizations 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.authorizations')) do
      begin
        result.J := j;
        Memo1.Lines.Add('Unit: ' + result.StringOf('purchase_units[i].reference_id') + '  authorization: ' + result.StringOf('purchase_units[i].payments.authorizations[j].id'));
        Memo1.Lines.Add('  ' + result.StringOf('purchase_units[i].payments.authorizations[j].status') + '  ' + result.StringOf('purchase_units[i].payments.authorizations[j].amount.value')
             + ' ' + result.StringOf('purchase_units[i].payments.authorizations[j].amount.currency_code'));
        j := j + 1;
      end;

    i := i + 1;
  end;