|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(PowerBuilder) PayPal - Execute Approved PayPal PaymentExecutes an approved PayPal payment. (This is for executing an approved PayPal payment, not a credit card payment.) Note: This example requires Chilkat v9.5.0.65 or greater.
integer li_rc oleobject loo_JsonToken oleobject loo_SbAuth oleobject loo_Rest integer li_BAutoReconnect integer li_Success oleobject loo_Json oleobject loo_SbPath integer li_NumReplaced oleobject loo_SbJsonRequest oleobject loo_SbJsonResponse // Note: Requires Chilkat v9.5.0.65 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 // Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0 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 // Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0 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 // Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0 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 payer_id loo_Json = create oleobject // Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0 li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject") loo_Json.EmitCompact = 0 loo_Json.AppendString("payer_id","RRCYJUTFJGZTA") Write-Debug loo_Json.Emit() // The JSON created by the above code: // { // "payer_id": "RRCYJUTFJGZTA" // } loo_Rest.AddHeader("Authorization",loo_SbAuth.GetAsString()) loo_Rest.AddHeader("Content-Type","application/json") // The payment ID is passed in the path. loo_SbPath = create oleobject // Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0 li_rc = loo_SbPath.ConnectToNewObject("Chilkat.StringBuilder") loo_SbPath.Append("/v1/payments/payment/payment_id/execute") li_NumReplaced = loo_SbPath.Replace("payment_id","PAY-4N746561P0587231SKQQK6MY") // Send the POST request containign the JSON in the request body, and get the JSON response. loo_SbJsonRequest = create oleobject // Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0 li_rc = loo_SbJsonRequest.ConnectToNewObject("Chilkat.StringBuilder") loo_Json.EmitCompact = 1 loo_Json.EmitSb(loo_SbJsonRequest) loo_SbJsonResponse = create oleobject // Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0 li_rc = loo_SbJsonResponse.ConnectToNewObject("Chilkat.StringBuilder") li_Success = loo_Rest.FullRequestSb("POST",loo_SbPath.GetAsString(),loo_SbJsonRequest,loo_SbJsonResponse) if li_Success <> 1 then Write-Debug loo_Rest.LastErrorText destroy loo_JsonToken destroy loo_SbAuth destroy loo_Rest destroy loo_Json destroy loo_SbPath destroy loo_SbJsonRequest destroy loo_SbJsonResponse return end if loo_Json.EmitCompact = 0 loo_Json.LoadSb(loo_SbJsonResponse) Write-Debug "Response Status Code = " + string(loo_Rest.ResponseStatusCode) // Did we get a 200 success response? if loo_Rest.ResponseStatusCode <> 200 then Write-Debug loo_Json.Emit() Write-Debug "Failed." destroy loo_JsonToken destroy loo_SbAuth destroy loo_Rest destroy loo_Json destroy loo_SbPath destroy loo_SbJsonRequest destroy loo_SbJsonResponse return end if // Sample JSON response is shown below. Write-Debug loo_Json.Emit() Write-Debug "success" // ------------------------------------------------ // A sample JSON response: // { // "id": "PAY-4N746561P0587231SKQQK6MY", // "create_time": "2014-09-22T23:22:27Z", // "update_time": "2014-09-22T23:31:13Z", // "state": "approved", // "intent": "sale", // "payer": { // "payment_method": "paypal", // "payer_info": { // "email": "npurayil-uspr-60@paypal.com", // "first_name": "Brian", // "last_name": "Robinson", // "payer_id": "JMKDKJ4D7DG7G", // "shipping_address": { // "line1": "4thFloor", // "line2": "unit#34", // "city": "SAn Jose", // "state": "CA", // "postal_code": "95131", // "country_code": "US", // "phone": "011862212345678", // "recipient_name": "HelloWorld" // } // } // }, // "transactions": [ // { // "amount": { // "total": "30.11", // "currency": "USD", // "details": { // "subtotal": "30.00", // "tax": "0.07", // "shipping": "0.03", // "handling_fee": "1.00", // "insurance": "0.01", // "shipping_discount": "-1.00" // } // }, // "description": "This is the payment transaction description.", // "item_list": { // "items": [ // { // "name": "hat", // "sku": "1", // "price": "3.00", // "currency": "USD", // "quantity": "5", // "description": "Brown color hat", // "tax": "0.01" // }, // { // "name": "handbag", // "sku": "product34", // "price": "15.00", // "currency": "USD", // "quantity": "1", // "description": "Black color handbag", // "tax": "0.02" // } // ], // "shipping_address": { // "recipient_name": "HelloWorld", // "line1": "4thFloor", // "line2": "unit#34", // "city": "SAn Jose", // "state": "CA", // "phone": "011862212345678", // "postal_code": "95131", // "country_code": "US" // } // }, // "related_resources": [ // { // "sale": { // "id": "4XP56210M0797192Y", // "create_time": "2014-09-22T23:22:27Z", // "update_time": "2014-09-22T23:31:13Z", // "amount": { // "total": "30.11", // "currency": "USD" // }, // "payment_mode": "INSTANT_TRANSFER", // "state": "completed", // "protection_eligibility": "ELIGIBLE", // "protection_eligibility_type": "ITEM_NOT_RECEIVED_ELIGIBLE", // "transaction_fee": { // "value": "1.75", // "currency": "USD" // }, // "parent_payment": "PAY-4N746561P0587231SKQQK6MY", // "links": [ // { // "href": "https://api.paypal.com/v1/payments/sale/4XP56210M0797192Y", // "rel": "self", // "method": "GET" // }, // { // "href": "https://api.paypal.com/v1/payments/sale/4XP56210M0797192Y/refund", // "rel": "refund", // "method": "POST" // }, // { // "href": "https://api.paypal.com/v1/payments/payment/PAY-4N746561P0587231SKQQK6MY", // "rel": "parent_payment", // "method": "GET" // } // ] // } // } // ] // } // ], // "links": [ // { // "href": "https://api.paypal.com/v1/payments/payment/PAY-4N746561P0587231SKQQK6MY", // "rel": "self", // "method": "GET" // } // ] // } destroy loo_JsonToken destroy loo_SbAuth destroy loo_Rest destroy loo_Json destroy loo_SbPath destroy loo_SbJsonRequest destroy loo_SbJsonResponse |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.