Stripe publica una de las especificaciones OpenAPI más completas de la internet pública — más de 500 endpoints que cubren pagos, facturación, identidad, terminal y Connect. Alimenta esa spec a sgcOpenAPI y obtienes una unit Delphi fuertemente tipada que refleja la spec, con clases de petición y respuesta ya pobladas, la autenticación conectada y la paginación resuelta por ti.
Stripe distribuye y mantiene una especificación OpenAPI 3 oficial. El parser y el generador de código de sgcOpenAPI la convierten directamente en Pascal que compila desde Delphi 7 hasta RAD Studio 13.
Bearer secret key + claves de idempotencia
sgcOpenAPI_Stripe
Windows, macOS, Linux, iOS, Android
Descarga el spec3.json más reciente desde el repositorio público de Stripe y cárgalo con TsgcOpenAPIParser. El parser resuelve los punteros $ref, las palabras clave de composición y el modelo de error compartido, de modo que el generador de código ve un modelo de API totalmente desreferenciado.
uses sgcOpenAPI_Parser, sgcOpenAPI_Generator; var vParser: TsgcOpenAPIParser; vGen: TsgcOpenAPIGenerator; begin vParser := TsgcOpenAPIParser.Create(nil); try vParser.LoadFromFile('C:\specs\stripe\spec3.json'); Memo1.Lines.Add(Format('Loaded Stripe spec: %d paths, %d schemas', [vParser.Paths.Count, vParser.Schemas.Count])); vGen := TsgcOpenAPIGenerator.Create(nil); try vGen.Parser := vParser; vGen.OutputUnit := 'sgcOpenAPI_Stripe'; vGen.OutputFolder := 'C:\Generated\Stripe'; vGen.Generate; finally vGen.Free; end; finally vParser.Free; end; end;
El generador escribe una sola unit Pascal llamada sgcOpenAPI_Stripe.pas con una clase fuertemente tipada por cada tag de la spec — TsgcStripe_Charges, TsgcStripe_Customers, TsgcStripe_Subscriptions, TsgcStripe_PaymentIntents y demás — más una fachada de alto nivel TsgcStripe que posee el cliente HTTP compartido y el estado de autenticación.
Configura el bearer token una vez en la fachada y llama a métodos en los sub-objetos tipados. Los cuerpos de petición se rellenan mediante propiedades fluent; las respuestas vuelven como objetos fuertemente tipados.
uses sgcOpenAPI_Stripe; var vStripe: TsgcStripe; vCharge: TsgcStripeCharge; begin vStripe := TsgcStripe.Create(nil); try vStripe.ApiKey := 'sk_test_4eC39HqLyjWDarjtT1zdp7dc'; vCharge := vStripe.Charges.Create( Amount := 2000, // cents Currency := 'usd', Source := 'tok_visa', // test token Description := 'Order 1234'); try Memo1.Lines.Add('Charge id: ' + vCharge.Id); Memo1.Lines.Add('Status: ' + vCharge.Status); Memo1.Lines.Add('Paid: ' + BoolToStr(vCharge.Paid, True)); finally vCharge.Free; end; finally vStripe.Free; end; end;
La paginación se gestiona con los objetos cursor generados. Las claves de idempotencia se pasan vía el parámetro opcional IdempotencyKey en cada método mutador.
// Create a customer + attach a subscription var vCustomer: TsgcStripeCustomer; vSub: TsgcStripeSubscription; vItems: TsgcStripeSubscriptionItemList; begin vCustomer := vStripe.Customers.Create( Email := 'jane@example.com', PaymentMethod := 'pm_card_visa'); vItems := TsgcStripeSubscriptionItemList.Create; vItems.Add(Price := 'price_1JxYzZAbCdEfGhIj'); vSub := vStripe.Subscriptions.Create( Customer := vCustomer.Id, Items := vItems, IdempotencyKey := TGUID.NewGuid.ToString); // Page through invoices for this customer for vInvoice in vStripe.Invoices.List(Customer := vCustomer.Id) do Memo1.Lines.Add(Format('%s — %d %s', [vInvoice.Id, vInvoice.AmountDue, vInvoice.Currency])); end;
Como la unit se genera desde la spec oficial, cada endpoint y cada campo documentados están disponibles sin trabajo manual de binding.
Charges, PaymentIntents, PaymentMethods, Refunds, Disputes, Sources, Tokens — la API clásica completa de Charges más el flujo moderno PaymentIntents con autenticación reforzada de cliente (SCA).
Customers, Invoices, InvoiceItems, Subscriptions, SubscriptionItems, Prices, Products, Coupons, PromotionCodes, TaxRates.
Accounts, AccountLinks, Transfers, Payouts, BalanceTransactions — todo lo necesario para operar una plataforma Stripe Connect desde un back-office Delphi.
Los objetos Identity VerificationSession y Terminal Reader/Location están todos presentes, incluyendo los esquemas polimórficos last_verification_report que Stripe usa para los resultados KYC.
Se incluye el esquema completo Event con payloads data.object discriminados. Parsea los cuerpos webhook entrantes con los mismos tipos que usas para enviar la petición original.
Files, FileLinks, Reporting — los helpers de subida multipart se emiten automáticamente porque la spec marca esos endpoints con multipart/form-data.
Stripe publica nuevas versiones de API mensualmente. Fija el archivo de spec a la versión que usa tu cuenta (establece Stripe-Version en cada petición) y regenera la unit Delphi cuando actualices. El generador es determinista — misma spec, misma salida.
Varios esquemas de Stripe (payment_method_details, source, balance_transaction.source) usan oneOf con un discriminador. La unit generada emite una clase base más un descendiente por variante — haz downcast basado en la propiedad Type.
Cómo el parser subyacente maneja especificaciones OpenAPI 3.x del mundo real, incluyendo las complejas palabras clave de composición.
Leer post →Trabajando con specs multi-archivo y punteros $ref externos — útil cuando las sub-specs de Stripe están separadas.
Últimas notas de versión de sgcOpenAPI — nuevas opciones de generador y mejoras del parser.
Leer post →