gmurt / passtripe

Delphi interfaces for Stripe

pasStripe

Important! Please Read!

These interfaces are far from complete and only expose the properties/methods I have required for my project.

These classes/interfaces barely scratch the surface of the Stripe API but it help others get a head start with integrating with Stripe.

I've just converted this to use System.Json from JsonDataObjects (which is awesome and my prefered json library) via the use of a class helper which mimicks some of the JsonDataObjects property conventions.
Hopefully this will make it easier for others to use, but is also likely to have introduced a few bugs which I may have missed.

To use, add the pasStripe.pas file to your uses clause, then use the TpsFactory class to create the pasStripe interface.

Examples

Create a checkout page...

procedure TForm1.btnCreateCheckoutSessionClick(Sender: TObject);
var
  AStripe: IpasStripe;
  AParams: psCreateCheckoutParams;
  AUrl: string;
begin
  AStripe := TpsFactory.PasStripe('sk_test_fFt5YRlBI*********', 'acct_1O2AWuQ********');

  AParams := TpsFactory.CreateCheckoutParams(cmPayment, scGbp);
  AParams.CustomerEmail := '[email protected]';
  AParams.PaymentMethods := [pmCard];
  AParams.SuccessUrl := 'https://www.success_url.com';
  AParams.CancelUrl := 'https://www.cancel_url.com';
  AParams.LineItems.AddLineItem('Product 1', 500, 2, '', TpsRecurring.None);
  AParams.LineItems.AddLineItem('Another product', 250, 3, '', TpsRecurring.None);
  AUrl := AStripe.GenerateCheckoutSession(AParams).Url;
end;

Display the account name...

procedure TForm1.btnShowAccountName(Sender: TObject);
var
  AStripe: IPasStripe;
  AAccount: IpsAccount;
begin
  AStripe := TpsFactory.PasStripe('sk_test_fFt5YRlBI*********', 'acct_1O2AWuQ********');
  if AStripe.TestCredentials then
  begin
    AAccount := AStripe.GetAccount;
    ShowMessage(AAccount.Name);
  end;
end;

Load an invoice and show the URL...

procedure TForm1.btnGetInvoiceUrl(Sender: TObject);
var
  AStripe: IPasStripe;
  AInvoice: IpsInvoice;
begin
  AStripe := TpsFactory.PasStripe('sk_test_fFt5YRlBI*********', 'acct_1O2AWuQ********');
  AInvoice := AStripe.GetInvoice('in_1OyXC4QppGf99akRBlkO2E8f');
  showmessage(AInvoice.PdfUrl);
end;