|
Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(PowerBuilder) PayPal - Create Direct Credit Card PaymentSee more PayPal ExamplesCreates a direct credit card payment where your application passes the credit card, shipping, and payment information to PayPal.Note: For sandbox calls, you can use the credit card numbers provided in your sandbox test accounts. Note: This is an example where you handle the card data directly, and therefore you would need to ensure you are PCI compliant. There are other ways to create a payment where your application does NOT handle the credit card data directly.
integer li_rc oleobject loo_JsonToken oleobject loo_SbAuth oleobject loo_Rest integer li_BAutoReconnect integer li_Success oleobject loo_Json oleobject loo_SbJsonRequest oleobject loo_SbJsonResponse // Note: Requires Chilkat v9.5.0.64 or greater. // This requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // Load our previously obtained access token. (see PayPal OAuth2 Access Token) loo_JsonToken = create oleobject li_rc = loo_JsonToken.ConnectToNewObject("Chilkat.JsonObject") if li_rc < 0 then destroy loo_JsonToken MessageBox("Error","Connecting to COM object failed") return end if loo_JsonToken.LoadFile("qa_data/tokens/paypal.json") // Build the Authorization request header field value. loo_SbAuth = create oleobject li_rc = loo_SbAuth.ConnectToNewObject("Chilkat.StringBuilder") // token_type should be "Bearer" loo_SbAuth.Append(loo_JsonToken.StringOf("token_type")) loo_SbAuth.Append(" ") loo_SbAuth.Append(loo_JsonToken.StringOf("access_token")) // Make the initial connection. // A single REST object, once connected, can be used for many PayPal REST API calls. // The auto-reconnect indicates that if the already-established HTTPS connection is closed, // then it will be automatically re-established as needed. loo_Rest = create oleobject li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest") li_BAutoReconnect = 1 li_Success = loo_Rest.Connect("api.sandbox.paypal.com",443,1,li_BAutoReconnect) if li_Success <> 1 then Write-Debug loo_Rest.LastErrorText destroy loo_JsonToken destroy loo_SbAuth destroy loo_Rest return end if // ---------------------------------------------------------------------------------------------- // The code above this comment could be placed inside a function/subroutine within the application // because the connection does not need to be made for every request. Once the connection is made // the app may send many requests.. // ---------------------------------------------------------------------------------------------- // Build the JSON containing the credit card data and transaction information. loo_Json = create oleobject li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject") loo_Json.EmitCompact = 0 loo_Json.UpdateString("intent","sale") loo_Json.UpdateString("payer.payment_method","credit_card") loo_Json.UpdateString("payer.funding_instruments[0].credit_card.number","4032034813337237") loo_Json.UpdateString("payer.funding_instruments[0].credit_card.type","visa") loo_Json.UpdateString("payer.funding_instruments[0].credit_card.expire_month","9") loo_Json.UpdateString("payer.funding_instruments[0].credit_card.expire_year","2028") loo_Json.UpdateString("payer.funding_instruments[0].credit_card.cvv2","123") loo_Json.UpdateString("transactions[0].amount.total","10.00") loo_Json.UpdateString("transactions[0].amount.currency","USD") loo_Json.UpdateString("transactions[0].payee.email","payee@example.com") // Use a sandbox CC number for testing: // |
||||
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.
