(Tcl) CardConnect Signature Capture

Demonstrates how to upload a BMP image of a handwritten signature.

This signature capture service augments an existing authorization record with the provided signature data. ...

See https://developer.cardconnect.com/cardconnect-api?lang=json#signature-capture

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

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]

CkHttp_put_BasicAuth $http 1
CkHttp_put_Login $http "API_USERNAME"
CkHttp_put_Password $http "API_PASSWORD"

# Build and send the following JSON:

# {
#   "merchid": "MERCHANT_ID",
#   "retref": "112989260941",
#   "signature": "BASE64_GZIPPED_BMP_DATA"
# }

set json [new_CkJsonObject]

CkJsonObject_UpdateString $json "merchid" "MERCHANT_ID"
CkJsonObject_UpdateString $json "retref" "106631225001"

# Load the .bmp containing a 200px x 100px signature.
set bd [new_CkBinData]

set success [CkBinData_LoadFile $bd "qa_data/bmp/signature.bmp"]
# Gzip compress.
set gzip [new_CkGzip]

set success [CkGzip_CompressBd $gzip $bd]
# Add to the JSON in base64 format
CkJsonObject_UpdateString $json "signature" [CkBinData_getEncoded $bd "base64"]

set url "https://<site>.cardconnect.com:<port>/cardconnect/rest/sigcap"
set responseStr [CkHttp_putText $http $url [CkJsonObject_emit $json] "utf-8" "application/json" 0 0]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $json
    delete_CkBinData $bd
    delete_CkGzip $gzip
    exit
}

# 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.
puts "response status code = [CkHttp_get_LastStatus $http]"

set jsonResp [new_CkJsonObject]

CkJsonObject_Load $jsonResp $responseStr
CkJsonObject_put_EmitCompact $jsonResp 0

puts "response JSON:"
puts [CkJsonObject_emit $jsonResp]

# A successful response looks like this:

# {
#   "resptext": "signature stored",
#   "retref": "106631225001",
#   "respcode": "02",
#   "merchid": "MERCHANT_ID"
# }

delete_CkHttp $http
delete_CkJsonObject $json
delete_CkBinData $bd
delete_CkGzip $gzip
delete_CkJsonObject $jsonResp