Chilkat Online Tools

VB6 / CardPointe API Integration / Signature Capture (Retref + Signature)

Back to Collection Items

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

Dim http As New ChilkatHttp
Dim success As Long

' Use this online tool to generate code from sample JSON: Generate Code to Create JSON

' The following JSON is sent in the request body.

' {
'   "merchid": "{{merchid}}",
'   "retref": "{{retref}}",
'   "signature": "{{signature}}"
' }

Dim json As New ChilkatJsonObject
success = json.UpdateString("merchid","{{merchid}}")
success = json.UpdateString("retref","{{retref}}")
success = json.UpdateString("signature","{{signature}}")

http.SetRequestHeader "Authorization","{{Authorization}}"
http.SetRequestHeader "Content-Type","application/json"

Dim sbRequestBody As New ChilkatStringBuilder
success = json.EmitSb(sbRequestBody)

Dim resp As ChilkatHttpResponse
Set resp = http.PTextSb("PUT","https://domain.com/sigcap",sbRequestBody,"utf-8","application/json",0,0)
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim sbResponseBody As New ChilkatStringBuilder
success = resp.GetBodySb(sbResponseBody)

Dim jResp As New ChilkatJsonObject
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = 0

Debug.Print "Response Body:"
Debug.Print jResp.Emit()

Dim respStatusCode As Long
respStatusCode = resp.StatusCode
Debug.Print "Response Status Code = " & respStatusCode
If (respStatusCode >= 400) Then
    Debug.Print "Response Header:"
    Debug.Print resp.Header
    Debug.Print "Failed."

    Exit Sub
End If

' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)

' {
'   "resptext": "signature stored",
'   "retref": "010787260965",
'   "respcode": "02",
'   "merchid": "496082673999"
' }

' Sample code for parsing the JSON response...
' Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code

Dim resptext As String
resptext = jResp.StringOf("resptext")
Dim retref As String
retref = jResp.StringOf("retref")
Dim respcode As String
respcode = jResp.StringOf("respcode")
Dim merchid As String
merchid = jResp.StringOf("merchid")

Curl Command

curl -X PUT
	-H "Authorization: {{Authorization}}"
	-H "Content-Type: application/json"
	-d '{
	"merchid": "{{merchid}}",
	"retref": "{{retref}}",
	"signature": "{{signature}}"
}'
https://domain.com/sigcap

Postman Collection Item JSON

{
  "name": "Signature Capture (Retref + Signature)",
  "request": {
    "method": "PUT",
    "header": [
      {
        "key": "Authorization",
        "type": "text",
        "value": "{{Authorization}}"
      },
      {
        "key": "Content-Type",
        "name": "Content-Type",
        "type": "text",
        "value": "application/json"
      }
    ],
    "body": {
      "mode": "raw",
      "raw": "{\n\t\"merchid\": \"{{merchid}}\",\n\t\"retref\": \"{{retref}}\",\n\t\"signature\": \"{{signature}}\"\n}"
    },
    "url": {
      "raw": "{{url}}/sigcap",
      "host": [
        "{{url}}"
      ],
      "path": [
        "sigcap"
      ]
    },
    "description": "[Signature Capture Documentation](https://developer.cardconnect.com/cardconnect-api#signature-capture)"
  },
  "response": [
    {
      "name": "Signature Capture Example",
      "originalRequest": {
        "method": "PUT",
        "header": [
          {
            "key": "Authorization",
            "type": "text",
            "value": "{{Authorization}}"
          },
          {
            "key": "Content-Type",
            "name": "Content-Type",
            "type": "text",
            "value": "application/json"
          }
        ],
        "body": {
          "mode": "raw",
          "raw": "{\n\t\"merchid\": \"{{merchid}}\",\n\t\"retref\": \"{{retref}}\",\n\t\"signature\": \"{{signature}}\"\n}"
        },
        "url": {
          "raw": "{{url}}/sigcap",
          "host": [
            "{{url}}"
          ],
          "path": [
            "sigcap"
          ]
        }
      },
      "status": "OK",
      "code": 200,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "X-FRAME-OPTIONS",
          "value": "DENY"
        },
        {
          "key": "Content-Type",
          "value": "application/json"
        },
        {
          "key": "Content-Length",
          "value": "96"
        },
        {
          "key": "Date",
          "value": "Thu, 10 Jan 2019 22:48:14 GMT"
        },
        {
          "key": "Server",
          "value": "CardConnect"
        },
        {
          "key": "Set-Cookie",
          "value": "BIGipServerphu-smb-vip_8080=!LjWLHiB9n9NWwsA7l1uxw4rK+VEmEdwIthKC4TazuLPJh6E1ejLYwbozqYcrk8OdOnAt3b319/yBPZ4=; path=/; Httponly; Secure"
        }
      ],
      "cookie": [
      ],
      "body": "{\n    \"resptext\": \"signature stored\",\n    \"retref\": \"010787260965\",\n    \"respcode\": \"02\",\n    \"merchid\": \"496082673999\"\n}"
    }
  ]
}