Delphi ActiveX Requires Chilkat v11.0.0+

PayPal: Add shipment tracking to a captured order

See more PayPal Examples

Use the order ID in the URL and the capture ID for this shipment in the body. Send the carrier and tracking number from your shipping record. Set notify_payer according to how your business sends shipping notices.

PayPal documentation

Delphi ActiveX

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

//  Replace both PayPal IDs and the sample tracking number with values from the same
//  shipped order.
http.SetUrlVar('id','ORDER_ID');
body := TChilkatJsonObject.Create(Self);
body.UpdateString('capture_id','CAPTUREID');
body.UpdateString('tracking_number','1Z999AA10123456784');
body.UpdateString('carrier','UPS');
body.UpdateBool('notify_payer',0);

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

Memo1.Lines.Add('PayPal accepted tracking for this order. HTTP ' + IntToStr(resp.StatusCode));