(AutoIt) Amazon Pay - Cancel Charge

See more Amazon Pay Examples

Moves Charge to Canceled state and releases any authorized payments.

For more information, see https://developer.amazon.com/docs/amazon-pay-api-v2/charge.html#cancel-charge

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; This example assumes the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

$oHttp = ObjCreate("Chilkat.Http")
Local $bSuccess

; Implements the following CURL command:

; curl "https://pay-api.amazon.com/:version/charges/:chargeId/cancel" \
; -X DELETE
; -H "authorization:Px2e5oHhQZ88vVhc0DO%2FsShHj8MDDg%3DEXAMPLESIGNATURE"
; -H "x-amz-pay-date:20201012T235046Z"
; -d '{
;     "cancellationReason": "REASON DESCRIPTION"
; }'

; 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.

; {
;   "cancellationReason": "REASON DESCRIPTION"
; }

$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.UpdateString("cancellationReason","REASON DESCRIPTION")

$oSbRequestBody = ObjCreate("Chilkat.StringBuilder")
$oJson.EmitSb($oSbRequestBody)

; 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.
$oPrivKey = ObjCreate("Chilkat.PrivateKey")
$bSuccess = $oPrivKey.LoadPemFile("C:/someDir/myAmazonPayPrivateKey.pem")
If ($bSuccess = False) Then
    ConsoleWrite($oPrivKey.LastErrorText & @CRLF)
    Exit
EndIf

; 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
Local $sPublicKeyId = "SANDBOX-AHEGSJCM3L2S637RBGABLAFW"
$bSuccess = $oHttp.SetAuthPrivateKey($sPublicKeyId,$oPrivKey)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

; 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

$oHttp.Accept = "application/json"

; Use the actual chargeId here:
$bSuccess = $oHttp.SetUrlVar("chargeId","bd504926-f659-4ad7-a1a9-9a747aaf5275")
; To use the live system, replace "sandbox" with "live" in the URL passed to PTextSb.
; Also, make sure to use the correct region: pay-api.amazon.com, pay-api.amazon.eu, or pay-api.amazon.jp
Local $oResp = $oHttp.PTextSb("DELETE","https://pay-api.amazon.eu/sandbox/v2/charges/{$chargeId}/cancel",$oSbRequestBody,"utf-8","application/json",False,False)
If ($oHttp.LastMethodSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oSbResponseBody = ObjCreate("Chilkat.StringBuilder")
$oResp.GetBodySb($oSbResponseBody)
$oJResp = ObjCreate("Chilkat.JsonObject")
$oJResp.LoadSb($oSbResponseBody)
$oJResp.EmitCompact = False

; If the status code is not equal to 200, this will display error information.
ConsoleWrite("Response Body:" & @CRLF)
ConsoleWrite($oJResp.Emit() & @CRLF)

Local $iRespStatusCode = $oResp.StatusCode
ConsoleWrite("Response Status Code = " & $iRespStatusCode & @CRLF)
If ($iRespStatusCode <> 200) Then
    ConsoleWrite("Failed." & @CRLF)

    Exit
EndIf

; 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": "SOFT DESCRIPTOR",
;   "merchantMetadata": null,
;   "providerMetadata": {
;     "providerReferenceId": null
;   },
;   "statusDetails": {
;     "state": "Canceled",
;     "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

Local $sChargeId = $oJResp.StringOf("chargeId")
Local $sChargePermissionId = $oJResp.StringOf("chargePermissionId")
Local $sChargeAmountAmount = $oJResp.StringOf("chargeAmount.amount")
Local $sChargeAmountCurrencyCode = $oJResp.StringOf("chargeAmount.currencyCode")
Local $sCaptureAmountAmount = $oJResp.StringOf("captureAmount.amount")
Local $sCaptureAmountCurrencyCode = $oJResp.StringOf("captureAmount.currencyCode")
Local $sRefundedAmountAmount = $oJResp.StringOf("refundedAmount.amount")
Local $sRefundedAmountCurrencyCode = $oJResp.StringOf("refundedAmount.currencyCode")
Local $sConvertedAmount = $oJResp.StringOf("convertedAmount")
Local $sConversionRate = $oJResp.StringOf("conversionRate")
Local $softDescriptor = $oJResp.StringOf("softDescriptor")
Local $sMerchantMetadata = $oJResp.StringOf("merchantMetadata")
Local $sProviderMetadataProviderReferenceId = $oJResp.StringOf("providerMetadata.providerReferenceId")
Local $statusDetailsState = $oJResp.StringOf("statusDetails.state")
Local $statusDetailsReasonCode = $oJResp.StringOf("statusDetails.reasonCode")
Local $statusDetailsReasonDescription = $oJResp.StringOf("statusDetails.reasonDescription")
Local $statusDetailsLastUpdatedTimestamp = $oJResp.StringOf("statusDetails.lastUpdatedTimestamp")
Local $sCreationTimestamp = $oJResp.StringOf("creationTimestamp")
Local $sExpirationTimestamp = $oJResp.StringOf("expirationTimestamp")
Local $sReleaseEnvironment = $oJResp.StringOf("releaseEnvironment")