|
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
(Tcl) PayPal - Create Direct Credit Card PaymentCreates 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. Note: This example requires Chilkat v9.5.0.64 or greater.
load ./chilkat.dll # 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) set jsonToken [new_CkJsonObject] CkJsonObject_LoadFile $jsonToken "qa_data/tokens/paypal.json" # Build the Authorization request header field value. set sbAuth [new_CkStringBuilder] # token_type should be "Bearer" CkStringBuilder_Append $sbAuth [CkJsonObject_stringOf $jsonToken "token_type"] CkStringBuilder_Append $sbAuth " " CkStringBuilder_Append $sbAuth [CkJsonObject_stringOf $jsonToken "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. set rest [new_CkRest] set bAutoReconnect 1 set success [CkRest_Connect $rest "api.sandbox.paypal.com" 443 1 $bAutoReconnect] if {$success != 1} then { puts [CkRest_lastErrorText $rest] delete_CkJsonObject $jsonToken delete_CkStringBuilder $sbAuth delete_CkRest $rest exit } # ---------------------------------------------------------------------------------------------- # 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. set json [new_CkJsonObject] CkJsonObject_put_EmitCompact $json 0 CkJsonObject_UpdateString $json "intent" "sale" CkJsonObject_UpdateString $json "payer.payment_method" "credit_card" CkJsonObject_UpdateString $json "payer.funding_instruments[0].credit_card.number" "4032031087659974" CkJsonObject_UpdateString $json "payer.funding_instruments[0].credit_card.type" "visa" # Do NOT include a leading zero. For example, do not use "09" for the month. CkJsonObject_UpdateNumber $json "payer.funding_instruments[0].credit_card.expire_month" "9" CkJsonObject_UpdateNumber $json "payer.funding_instruments[0].credit_card.expire_year" "2021" CkJsonObject_UpdateNumber $json "payer.funding_instruments[0].credit_card.cvv2" "111" CkJsonObject_UpdateString $json "payer.funding_instruments[0].credit_card.first_name" "Joe" CkJsonObject_UpdateString $json "payer.funding_instruments[0].credit_card.last_name" "Buyer" CkJsonObject_UpdateString $json "transactions[0].amount.total" "7.47" CkJsonObject_UpdateString $json "transactions[0].amount.currency" "USD" CkJsonObject_UpdateString $json "transactions[0].description" "This is the payment transaction description." puts [CkJsonObject_emit $json] # The JSON created by the above code is this: # { # "intent": "sale", # "payer": { # "payment_method": "credit_card", # "funding_instruments": [ # { # "credit_card": { # "number": "4032031087659974", # "type": "visa", # "expire_month": 9, # "expire_year": 2021, # "cvv2": 111, # "first_name": "Joe", # "last_name": "Buyer" # } # } # ] # }, # "transactions": [ # { # "amount": { # "total": "7.47", # "currency": "USD" # }, # "description": "This is the payment transaction description." # } # ] # } CkRest_AddHeader $rest "Authorization" [CkStringBuilder_getAsString $sbAuth] CkRest_AddHeader $rest "Content-Type" "application/json" # Send the POST request containign the JSON in the request body, and get the JSON response. set sbJsonRequest [new_CkStringBuilder] CkJsonObject_put_EmitCompact $json 1 CkJsonObject_EmitSb $json $sbJsonRequest set sbJsonResponse [new_CkStringBuilder] set success [CkRest_FullRequestSb $rest "POST" "/v1/payments/payment" $sbJsonRequest $sbJsonResponse] if {$success != 1} then { puts [CkRest_lastErrorText $rest] delete_CkJsonObject $jsonToken delete_CkStringBuilder $sbAuth delete_CkRest $rest delete_CkJsonObject $json delete_CkStringBuilder $sbJsonRequest delete_CkStringBuilder $sbJsonResponse exit } CkJsonObject_put_EmitCompact $json 0 CkJsonObject_LoadSb $json $sbJsonResponse puts "Response Status Code = [CkRest_get_ResponseStatusCode $rest]" # Did we get a 201 success response? if {[CkRest_get_ResponseStatusCode $rest] != 201} then { puts [CkJsonObject_emit $json] puts "Failed." delete_CkJsonObject $jsonToken delete_CkStringBuilder $sbAuth delete_CkRest $rest delete_CkJsonObject $json delete_CkStringBuilder $sbJsonRequest delete_CkStringBuilder $sbJsonResponse exit } # Sample response JSON is shown below. puts [CkJsonObject_emit $json] # Demonstrate how to access a few parts of the JSON response.. puts "cc number: [CkJsonObject_stringOf $json {payer.funding_instruments[0].credit_card.number}]" puts "subtotal: [CkJsonObject_stringOf $json {transactions[0].amount.details.subtotal}]" puts "refund href: [CkJsonObject_stringOf $json {transactions[0].related_resources[0].sale.links[1].href}]" # { # "id": "PAY-66A12106PU3254228LA3BYKI", # "create_time": "2016-11-23T22:46:01Z", # "update_time": "2016-11-23T22:46:07Z", # "state": "approved", # "intent": "sale", # "payer": { # "payment_method": "credit_card", # "funding_instruments": [ # { # "credit_card": { # "type": "visa", # "number": "xxxxxxxxxxxx9974", # "expire_month": "9", # "expire_year": "2021", # "first_name": "Joe", # "last_name": "Buyer" # } # } # ] # }, # "transactions": [ # { # "amount": { # "total": "7.47", # "currency": "USD", # "details": { # "subtotal": "7.47" # } # }, # "description": "This is the payment transaction description.", # "related_resources": [ # { # "sale": { # "id": "70L88278E6781074B", # "create_time": "2016-11-23T22:46:01Z", # "update_time": "2016-11-23T22:46:07Z", # "amount": { # "total": "7.47", # "currency": "USD" # }, # "state": "completed", # "parent_payment": "PAY-66A12106PU3254228LA3BYKI", # "links": [ # { # "href": "https://api.sandbox.paypal.com/v1/payments/sale/70L88278E6781074B", # "rel": "self", # "method": "GET" # }, # { # "href": "https://api.sandbox.paypal.com/v1/payments/sale/70L88278E6781074B/refund", # "rel": "refund", # "method": "POST" # }, # { # "href": "https://api.sandbox.paypal.com/v1/payments/payment/PAY-66A12106PU3254228LA3BYKI", # "rel": "parent_payment", # "method": "GET" # } # ], # "fmf_details": {}, # "processor_response": { # "avs_code": "X", # "cvv_code": "M" # } # } # } # ] # } # # ], # "links": [ # { # "href": "https://api.sandbox.paypal.com/v1/payments/payment/PAY-66A12106PU3254228LA3BYKI", # "rel": "self", # "method": "GET" # } # ] # } # delete_CkJsonObject $jsonToken delete_CkStringBuilder $sbAuth delete_CkRest $rest delete_CkJsonObject $json delete_CkStringBuilder $sbJsonRequest delete_CkStringBuilder $sbJsonResponse |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.