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
(Classic ASP) CardConnect VoidDemonstrates how to send a CardConnect void request. The void service cancels a transaction that is in either "Authorized" or "Queued for Capture" status.. ... See https://developer.cardconnect.com/cardconnect-api#void
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = Server.CreateObject("Chilkat.Http") http.BasicAuth = 1 http.Login = "API_USERNAME" http.Password = "API_PASSWORD" ' Build and send the following JSON: ' The "retref" is the value returned in the JSON response for the Authorization request. ' { ' "retref":"112989260941", ' "merchid":"MERCHANT_ID" ' } ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = Server.CreateObject("Chilkat.JsonObject") success = json.UpdateString("retref","112989260941") success = json.UpdateString("merchid","MERCHANT_ID") url = "https://<site>.cardconnect.com:<port>/cardconnect/rest/void" responseStr = http.PutText(url,json.Emit(),"utf-8","application/json",0,0) If (http.LastMethodSuccess = 0) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If ' A response status of 200 indicates potential success. The JSON response body ' must be examined to determine if it was truly successful or an error. Response.Write "<pre>" & Server.HTMLEncode( "response status code = " & http.LastStatus) & "</pre>" ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonResp = Server.CreateObject("Chilkat.JsonObject") success = jsonResp.Load(responseStr) jsonResp.EmitCompact = 0 Response.Write "<pre>" & Server.HTMLEncode( "response JSON:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( jsonResp.Emit()) & "</pre>" ' A successful response looks like this: ' { ' "authcode": "REVERS", ' "respproc": "FNOR", ' "amount": "0.00", ' "resptext": "Approval", ' "currency": "USD", ' "retref": "112989260941", ' "respstat": "A", ' "respcode": "00", ' "merchid": "496160873888" ' } ' Use this online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON authcode = jsonResp.StringOf("authcode") respproc = jsonResp.StringOf("respproc") amount = jsonResp.StringOf("amount") resptext = jsonResp.StringOf("resptext") currency = jsonResp.StringOf("currency") retref = jsonResp.StringOf("retref") respstat = jsonResp.StringOf("respstat") respcode = jsonResp.StringOf("respcode") merchid = jsonResp.StringOf("merchid") %> </body> </html> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.