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) Amazon Pay - Get Checkout SessionSee more Amazon Pay ExamplesGet Checkout Session details includes buyer info, payment instrument details, and shipping address. For more information, see https://developer.amazon.com/docs/amazon-pay-api-v2/checkout-session.html#get-checkout-session
load ./chilkat.dll # This example assumes the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. set http [new_CkHttp] # Implements the following CURL command: # curl "https://pay-api.amazon.com/:version/checkoutSessions/:checkoutSessionId" # -X GET # -H "authorization:Px2e5oHhQZ88vVhc0DO%2FsShHj8MDDg%3DEXAMPLESIGNATURE" # -H "x-amz-pay-date:20201012T235046Z" # Use the following online tool to generate HTTP code from a CURL command # Convert a cURL Command to HTTP Source Code # Load your Amazon Pay private key. # There are many other ways to load private keys into the Chilkat private key object, such as from different formats, # or from in-memory strings or bytes. set privKey [new_CkPrivateKey] set success [CkPrivateKey_LoadPemFile $privKey "C:/someDir/myAmazonPayPrivateKey.pem"] if {$success == 0} then { puts [CkPrivateKey_lastErrorText $privKey] delete_CkHttp $http delete_CkPrivateKey $privKey exit } # Provide your Amazon Pay private key and Public Key ID # Use your public key ID here. It must be the one associated with the private key. # Note: The SetAuthPrivateKey method was added in Chilkat v9.5.0.89 set publicKeyId "SANDBOX-AHEGSJCM3L2S637RBGABLAFW" set success [CkHttp_SetAuthPrivateKey $http $publicKeyId $privKey] if {$success == 0} then { puts [CkHttp_lastErrorText $http] delete_CkHttp $http delete_CkPrivateKey $privKey exit } # Note: When the private key is provided as shown above, Chilkat will automatically add the required x-amz-pay-* headers to the HTTP request, # and will also sign the request. Nothing more is needed. # Chilkat automatically generates and adds the following headers: # # x-amz-pay-date # x-amz-pay-host # x-amz-pay-region # Authorization CkHttp_put_Accept $http "application/json" set respStatusCode 0 set sbResponseBody [new_CkStringBuilder] set success [CkHttp_SetUrlVar $http "sessionId" "62b7d028-6c7c-4a43-b077-3897dff27c5b"] # To use the live system, replace "sandbox" with "live" in the URL passed to QuickGetSb. # Also, make sure to use the correct region: pay-api.amazon.com, pay-api.amazon.eu, or pay-api.amazon.jp set success [CkHttp_QuickGetSb $http "https://pay-api.amazon.eu/sandbox/v2/checkoutSessions/{$sessionId}" $sbResponseBody] if {$success == 0} then { # If the LastStatus is not equal to 0, then we received a response, but it was an error response. set respStatusCode [CkHttp_get_LastStatus $http] if {$respStatusCode != 0} then { puts "Response Status Code = $respStatusCode" # A sample response body for the case where the session ID does not exist: # {"reasonCode":"ResourceNotFound","message":"Resource you are trying to access is not available. Requested path '/sandbox/v2/checkoutSessions/bd504926-f659-4ad7-a1a9-9a747aaf5275'"} puts "Response body:" puts [CkHttp_lastResponseBody $http] } else { puts [CkHttp_lastErrorText $http] } delete_CkHttp $http delete_CkPrivateKey $privKey delete_CkStringBuilder $sbResponseBody exit } set jResp [new_CkJsonObject] CkJsonObject_LoadSb $jResp $sbResponseBody CkJsonObject_put_EmitCompact $jResp 0 puts "Response Body:" puts [CkJsonObject_emit $jResp] set respStatusCode [CkHttp_get_LastStatus $http] puts "Response Status Code = $respStatusCode" # We expect a 200 status code for success. # Note: Some Amazon Pay API calls return 200 for success, others return 201. if {$respStatusCode != 200} then { puts "Failed." delete_CkHttp $http delete_CkPrivateKey $privKey delete_CkStringBuilder $sbResponseBody delete_CkJsonObject $jResp exit } # Sample JSON response: # (Sample code for parsing the JSON response is shown below) # { # "checkoutSessionId": "bd504926-f659-4ad7-a1a9-9a747aaf5275", # "webCheckoutDetails": { # "checkoutReviewReturnUrl": "https://a.com/merchant-review-page", # "checkoutResultReturnUrl": null, # "checkoutCancelUrl": null, # "amazonPayRedirectUrl": null # }, # "chargePermissionType": "Recurring", # "recurringMetadata": { # "frequency": { # "unit": "Month", # "value": "1" # }, # "amount": { # "amount": "30", # "currencyCode": "USD" # } # }, # "productType": "PayAndShip", # "paymentDetails": { # "paymentIntent": null, # "canHandlePendingAuthorization": false, # "chargeAmount": null, # "totalOrderAmount": null, # "softDescriptor": null, # "presentmentCurrency": null, # "allowOvercharge": null, # "extendExpiration": null # }, # "merchantMetadata": { # "merchantReferenceId": null, # "merchantStoreName": null, # "noteToBuyer": null, # "customInformation": null # }, # "supplementaryData": null, # "buyer": { # "buyerId": "buyerId", # "name": "name-1", # "email": "name@amazon.com", # "phoneNumber": "800-000-0000", # "primeMembershipTypes": null # }, # "billingAddress": { # "name": "Work", # "addressLine1": "440 Terry Ave", # "addressLine2": "", # "addressLine3": "", # "city": "Seattle", # "county": "King", # "district": "Seattle", # "stateOrRegion": "WA", # "postalCode": "98121", # "countryCode": "US" # }, # "paymentPreferences": [ # { # "paymentDescriptor": "Your selected Amazon payment method" # } # ], # "statusDetails": { # "state": "Open", # "reasonCode": null, # "reasonDescription": null, # "lastUpdatedTimestamp": "20191015T204327Z" # }, # "shippingAddress": { # "name": "Susie Smith", # "addressLine1": "10 Ditka Ave", # "addressLine2": "Suite 2500", # "addressLine3": null, # "city": "Chicago", # "county": null, # "district": null, # "stateOrRegion": "IL", # "postalCode": "60602", # "countryCode": "US", # "phoneNumber": "800-000-0000" # }, # "platformId": null, # "chargePermissionId": null, # "chargeId": null, # "constraints": [ # { # "constraintId": "ChargeAmountNotSet", # "description": "chargeAmount is not set." # }, # { # "constraintId": "CheckoutResultReturnUrlNotSet", # "description": "checkoutResultReturnUrl is not set." # }, # { # "constraintId": "PaymentIntentNotSet", # "description": "paymentIntent is not set." # } # ], # "creationTimestamp": "20191015T204313Z", # "expirationTimestamp": "20191016T204313Z", # "storeId": "amzn1.application-oa2-client.8b5e45312b5248b69eeaStoreId", # "deliverySpecifications": { # "specialRestrictions": [ # "RestrictPOBoxes" # ], # "addressRestrictions": { # "type": "Allowed", # "restrictions": { # "US": { # "statesOrRegions": [ # "WA" # ], # "zipCodes": [ # "95050", # "93405" # ] # }, # "GB": { # "zipCodes": [ # "72046", # "72047" # ] # }, # "IN": { # "statesOrRegions": [ # "AP" # ] # }, # "JP": {} # } # } # }, # "providerMetadata": { # "providerReferenceId": null # }, # "releaseEnvironment": "Sandbox" # } # Sample code for parsing the JSON response... # Use the following online tool to generate parsing code from sample JSON: # Generate Parsing Code from JSON set checkoutSessionId [CkJsonObject_stringOf $jResp "checkoutSessionId"] set webCheckoutDetailsCheckoutReviewReturnUrl [CkJsonObject_stringOf $jResp "webCheckoutDetails.checkoutReviewReturnUrl"] set webCheckoutDetailsCheckoutResultReturnUrl [CkJsonObject_stringOf $jResp "webCheckoutDetails.checkoutResultReturnUrl"] set webCheckoutDetailsCheckoutCancelUrl [CkJsonObject_stringOf $jResp "webCheckoutDetails.checkoutCancelUrl"] set webCheckoutDetailsAmazonPayRedirectUrl [CkJsonObject_stringOf $jResp "webCheckoutDetails.amazonPayRedirectUrl"] set chargePermissionType [CkJsonObject_stringOf $jResp "chargePermissionType"] set recurringMetadataFrequencyUnit [CkJsonObject_stringOf $jResp "recurringMetadata.frequency.unit"] set recurringMetadataFrequencyValue [CkJsonObject_stringOf $jResp "recurringMetadata.frequency.value"] set recurringMetadataAmountAmount [CkJsonObject_stringOf $jResp "recurringMetadata.amount.amount"] set recurringMetadataAmountCurrencyCode [CkJsonObject_stringOf $jResp "recurringMetadata.amount.currencyCode"] set productType [CkJsonObject_stringOf $jResp "productType"] set paymentDetailsPaymentIntent [CkJsonObject_stringOf $jResp "paymentDetails.paymentIntent"] set paymentDetailsCanHandlePendingAuthorization [CkJsonObject_BoolOf $jResp "paymentDetails.canHandlePendingAuthorization"] set paymentDetailsChargeAmount [CkJsonObject_stringOf $jResp "paymentDetails.chargeAmount"] set paymentDetailsTotalOrderAmount [CkJsonObject_stringOf $jResp "paymentDetails.totalOrderAmount"] set paymentDetailsSoftDescriptor [CkJsonObject_stringOf $jResp "paymentDetails.softDescriptor"] set paymentDetailsPresentmentCurrency [CkJsonObject_stringOf $jResp "paymentDetails.presentmentCurrency"] set paymentDetailsAllowOvercharge [CkJsonObject_stringOf $jResp "paymentDetails.allowOvercharge"] set paymentDetailsExtendExpiration [CkJsonObject_stringOf $jResp "paymentDetails.extendExpiration"] set merchantMetadataMerchantReferenceId [CkJsonObject_stringOf $jResp "merchantMetadata.merchantReferenceId"] set merchantMetadataMerchantStoreName [CkJsonObject_stringOf $jResp "merchantMetadata.merchantStoreName"] set merchantMetadataNoteToBuyer [CkJsonObject_stringOf $jResp "merchantMetadata.noteToBuyer"] set merchantMetadataCustomInformation [CkJsonObject_stringOf $jResp "merchantMetadata.customInformation"] set supplementaryData [CkJsonObject_stringOf $jResp "supplementaryData"] set buyerBuyerId [CkJsonObject_stringOf $jResp "buyer.buyerId"] set buyerName [CkJsonObject_stringOf $jResp "buyer.name"] set buyerEmail [CkJsonObject_stringOf $jResp "buyer.email"] set buyerPhoneNumber [CkJsonObject_stringOf $jResp "buyer.phoneNumber"] set buyerPrimeMembershipTypes [CkJsonObject_stringOf $jResp "buyer.primeMembershipTypes"] set billingAddressName [CkJsonObject_stringOf $jResp "billingAddress.name"] set billingAddressAddressLine1 [CkJsonObject_stringOf $jResp "billingAddress.addressLine1"] set billingAddressAddressLine2 [CkJsonObject_stringOf $jResp "billingAddress.addressLine2"] set billingAddressAddressLine3 [CkJsonObject_stringOf $jResp "billingAddress.addressLine3"] set billingAddressCity [CkJsonObject_stringOf $jResp "billingAddress.city"] set billingAddressCounty [CkJsonObject_stringOf $jResp "billingAddress.county"] set billingAddressDistrict [CkJsonObject_stringOf $jResp "billingAddress.district"] set billingAddressStateOrRegion [CkJsonObject_stringOf $jResp "billingAddress.stateOrRegion"] set billingAddressPostalCode [CkJsonObject_stringOf $jResp "billingAddress.postalCode"] set billingAddressCountryCode [CkJsonObject_stringOf $jResp "billingAddress.countryCode"] set statusDetailsState [CkJsonObject_stringOf $jResp "statusDetails.state"] set statusDetailsReasonCode [CkJsonObject_stringOf $jResp "statusDetails.reasonCode"] set statusDetailsReasonDescription [CkJsonObject_stringOf $jResp "statusDetails.reasonDescription"] set statusDetailsLastUpdatedTimestamp [CkJsonObject_stringOf $jResp "statusDetails.lastUpdatedTimestamp"] set shippingAddressName [CkJsonObject_stringOf $jResp "shippingAddress.name"] set shippingAddressAddressLine1 [CkJsonObject_stringOf $jResp "shippingAddress.addressLine1"] set shippingAddressAddressLine2 [CkJsonObject_stringOf $jResp "shippingAddress.addressLine2"] set shippingAddressAddressLine3 [CkJsonObject_stringOf $jResp "shippingAddress.addressLine3"] set shippingAddressCity [CkJsonObject_stringOf $jResp "shippingAddress.city"] set shippingAddressCounty [CkJsonObject_stringOf $jResp "shippingAddress.county"] set shippingAddressDistrict [CkJsonObject_stringOf $jResp "shippingAddress.district"] set shippingAddressStateOrRegion [CkJsonObject_stringOf $jResp "shippingAddress.stateOrRegion"] set shippingAddressPostalCode [CkJsonObject_stringOf $jResp "shippingAddress.postalCode"] set shippingAddressCountryCode [CkJsonObject_stringOf $jResp "shippingAddress.countryCode"] set shippingAddressPhoneNumber [CkJsonObject_stringOf $jResp "shippingAddress.phoneNumber"] set platformId [CkJsonObject_stringOf $jResp "platformId"] set chargePermissionId [CkJsonObject_stringOf $jResp "chargePermissionId"] set chargeId [CkJsonObject_stringOf $jResp "chargeId"] set creationTimestamp [CkJsonObject_stringOf $jResp "creationTimestamp"] set expirationTimestamp [CkJsonObject_stringOf $jResp "expirationTimestamp"] set storeId [CkJsonObject_stringOf $jResp "storeId"] set deliverySpecificationsAddressRestrictionsType [CkJsonObject_stringOf $jResp "deliverySpecifications.addressRestrictions.type"] set providerMetadataProviderReferenceId [CkJsonObject_stringOf $jResp "providerMetadata.providerReferenceId"] set releaseEnvironment [CkJsonObject_stringOf $jResp "releaseEnvironment"] set i 0 set count_i [CkJsonObject_SizeOfArray $jResp "paymentPreferences"] while {$i < $count_i} { CkJsonObject_put_I $jResp $i set paymentDescriptor [CkJsonObject_stringOf $jResp "paymentPreferences[i].paymentDescriptor"] set i [expr $i + 1] } set i 0 set count_i [CkJsonObject_SizeOfArray $jResp "constraints"] while {$i < $count_i} { CkJsonObject_put_I $jResp $i set constraintId [CkJsonObject_stringOf $jResp "constraints[i].constraintId"] set description [CkJsonObject_stringOf $jResp "constraints[i].description"] set i [expr $i + 1] } set i 0 set count_i [CkJsonObject_SizeOfArray $jResp "deliverySpecifications.specialRestrictions"] while {$i < $count_i} { CkJsonObject_put_I $jResp $i set strVal [CkJsonObject_stringOf $jResp "deliverySpecifications.specialRestrictions[i]"] set i [expr $i + 1] } set i 0 set count_i [CkJsonObject_SizeOfArray $jResp "deliverySpecifications.addressRestrictions.restrictions.US.statesOrRegions"] while {$i < $count_i} { CkJsonObject_put_I $jResp $i set strVal [CkJsonObject_stringOf $jResp "deliverySpecifications.addressRestrictions.restrictions.US.statesOrRegions[i]"] set i [expr $i + 1] } set i 0 set count_i [CkJsonObject_SizeOfArray $jResp "deliverySpecifications.addressRestrictions.restrictions.US.zipCodes"] while {$i < $count_i} { CkJsonObject_put_I $jResp $i set strVal [CkJsonObject_stringOf $jResp "deliverySpecifications.addressRestrictions.restrictions.US.zipCodes[i]"] set i [expr $i + 1] } set i 0 set count_i [CkJsonObject_SizeOfArray $jResp "deliverySpecifications.addressRestrictions.restrictions.GB.zipCodes"] while {$i < $count_i} { CkJsonObject_put_I $jResp $i set strVal [CkJsonObject_stringOf $jResp "deliverySpecifications.addressRestrictions.restrictions.GB.zipCodes[i]"] set i [expr $i + 1] } set i 0 set count_i [CkJsonObject_SizeOfArray $jResp "deliverySpecifications.addressRestrictions.restrictions.IN.statesOrRegions"] while {$i < $count_i} { CkJsonObject_put_I $jResp $i set strVal [CkJsonObject_stringOf $jResp "deliverySpecifications.addressRestrictions.restrictions.IN.statesOrRegions[i]"] set i [expr $i + 1] } delete_CkHttp $http delete_CkPrivateKey $privKey delete_CkStringBuilder $sbResponseBody delete_CkJsonObject $jResp |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.