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
(Xojo Plugin) Amazon Pay - Create ChargeSee more Amazon Pay ExamplesCreates a Charge to authorize payment, if you have a Charge Permission in a Chargeable state. You can optionally capture payment immediately by setting captureNow to true. You can create up to 25 Charges per one-time Charge Permission. Note: This example requires Chilkat v9.5.0.89 or later. Contact support@chilkatsoft.com to get a v9.5.0.89 pre-release for testing. For more information, see https://developer.amazon.com/docs/amazon-pay-api-v2/charge.html#create-charge
// This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Dim http As New Chilkat.Http Dim success As Boolean // Implements the following CURL command: // curl "https://pay-api.amazon.com/:version/charges/" \ // -X POST // -H "authorization:Px2e5oHhQZ88vVhc0DO%2FsShHj8MDDg%3DEXAMPLESIGNATURE" // -H "x-amz-pay-date:20201012T235046Z" // -H "x-amz-pay-idempotency-key:AVLo5tI10BHgEk2jEXAMPLEKEY" // -d '{ // "chargePermissionId": "P21-1111111-1111111", // "chargeAmount": { // "amount": "14.00", // "currencyCode": "USD" // }, // "captureNow": true, // default is false // "softDescriptor": "Descriptor", // "canHandlePendingAuthorization": false //default is false // }' // Use the following online tool to generate HTTP code from a CURL command // Convert a cURL Command to HTTP Source Code // Use this online tool to generate code from sample JSON: // Generate Code to Create JSON // The following JSON is sent in the request body. // { // "chargePermissionId": "P21-1111111-1111111", // "chargeAmount": { // "amount": "14.00", // "currencyCode": "USD" // }, // "captureNow": true, // default is false // "softDescriptor": "Descriptor", // "canHandlePendingAuthorization": false //default is false // } Dim json As New Chilkat.JsonObject success = json.UpdateString("chargePermissionId","P21-1111111-1111111") success = json.UpdateString("chargeAmount.amount","14.00") success = json.UpdateString("chargeAmount.currencyCode","USD") success = json.UpdateBool("captureNow",True) success = json.UpdateString("softDescriptor","Descriptor") success = json.UpdateBool("canHandlePendingAuthorization",False) // 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. Dim privKey As New Chilkat.PrivateKey success = privKey.LoadPemFile("C:/someDir/myAmazonPayPrivateKey.pem") If (success = False) Then System.DebugLog(privKey.LastErrorText) Return End If // 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 Dim publicKeyId As String publicKeyId = "SANDBOX-AHEGSJCM3L2S637RBGABLAFW" success = http.SetAuthPrivateKey(publicKeyId,privKey) If (success = False) Then System.DebugLog(http.LastErrorText) Return End If // 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 // x-amz-pay-idempotency-key // Authorization http.Accept = "application/json" // To use the live system, replace "sandbox" with "live" in the URL passed to PostJson3. // Also, make sure to use the correct region: pay-api.amazon.com, pay-api.amazon.eu, or pay-api.amazon.jp Dim resp As Chilkat.HttpResponse resp = http.PostJson3("https://pay-api.amazon.eu/sandbox/v2/charges/","application/json",json) If (http.LastMethodSuccess = False) Then System.DebugLog(http.LastErrorText) Return End If Dim sbResponseBody As New Chilkat.StringBuilder success = resp.GetBodySb(sbResponseBody) Dim jResp As New Chilkat.JsonObject success = jResp.LoadSb(sbResponseBody) jResp.EmitCompact = False // If the status code is not equal to 201, this will display error information. System.DebugLog("Response Body:") System.DebugLog(jResp.Emit()) Dim respStatusCode As Int32 respStatusCode = resp.StatusCode System.DebugLog("Response Status Code = " + Str(respStatusCode)) If (respStatusCode <> 201) Then System.DebugLog("Failed.") Return End If // Sample JSON response: // (Sample code for parsing the JSON response is shown below) // { // "chargeId": "P21-1111111-1111111-C111111", // "chargePermissionId": "P21-1111111-1111111", // "chargeAmount": { // "amount": "14.00", // "currencyCode": "USD" // }, // "captureAmount": { // "amount": "14.00", // "currencyCode": "USD" // }, // "refundedAmount": { // "amount": "0.00", // "currencyCode": "USD" // }, // "convertedAmount": "14.00", // "conversionRate": "1.00", // "softDescriptor": "Descriptor", // "merchantMetadata": null, // "providerMetadata": { // "providerReferenceId": null // }, // "statusDetails":{ // "state": "Captured", // "reasonCode": null, // "reasonDescription": null, // "lastUpdatedTimestamp": "20190714T155300Z" // }, // "creationTimestamp": "20190714T155300Z", // "expirationTimestamp": "20190715T155300Z", // "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 Dim chargeId As String chargeId = jResp.StringOf("chargeId") Dim chargePermissionId As String chargePermissionId = jResp.StringOf("chargePermissionId") Dim chargeAmountAmount As String chargeAmountAmount = jResp.StringOf("chargeAmount.amount") Dim chargeAmountCurrencyCode As String chargeAmountCurrencyCode = jResp.StringOf("chargeAmount.currencyCode") Dim captureAmountAmount As String captureAmountAmount = jResp.StringOf("captureAmount.amount") Dim captureAmountCurrencyCode As String captureAmountCurrencyCode = jResp.StringOf("captureAmount.currencyCode") Dim refundedAmountAmount As String refundedAmountAmount = jResp.StringOf("refundedAmount.amount") Dim refundedAmountCurrencyCode As String refundedAmountCurrencyCode = jResp.StringOf("refundedAmount.currencyCode") Dim convertedAmount As String convertedAmount = jResp.StringOf("convertedAmount") Dim conversionRate As String conversionRate = jResp.StringOf("conversionRate") Dim softDescriptor As String softDescriptor = jResp.StringOf("softDescriptor") Dim merchantMetadata As String merchantMetadata = jResp.StringOf("merchantMetadata") Dim providerMetadataProviderReferenceId As String providerMetadataProviderReferenceId = jResp.StringOf("providerMetadata.providerReferenceId") Dim statusDetailsState As String statusDetailsState = jResp.StringOf("statusDetails.state") Dim statusDetailsReasonCode As String statusDetailsReasonCode = jResp.StringOf("statusDetails.reasonCode") Dim statusDetailsReasonDescription As String statusDetailsReasonDescription = jResp.StringOf("statusDetails.reasonDescription") Dim statusDetailsLastUpdatedTimestamp As String statusDetailsLastUpdatedTimestamp = jResp.StringOf("statusDetails.lastUpdatedTimestamp") Dim creationTimestamp As String creationTimestamp = jResp.StringOf("creationTimestamp") Dim expirationTimestamp As String expirationTimestamp = jResp.StringOf("expirationTimestamp") Dim releaseEnvironment As String releaseEnvironment = jResp.StringOf("releaseEnvironment") |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.