Delphi ActiveX Requires Chilkat v11.0.0+

PayPal: Send a draft invoice

See more PayPal Examples

Send a draft to its sandbox recipient. PayPal can accept delivery for later when the issue date is in the future. After an uncertain response, look up the invoice before trying again.

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

//  The invoice already exists as a draft. Sending is the separate step that notifies
//  the recipient.

http.SetUrlVar('id','INVOICE_ID');
body := TChilkatJsonObject.Create(Self);
body.UpdateBool('send_to_recipient',1);
body.UpdateBool('send_to_invoicer',0);

success := http.HttpJson('POST','https://api-m.sandbox.paypal.com/v2/invoicing/invoices/{$id}/send',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('Send request accepted; HTTP ' + IntToStr(resp.StatusCode));