Tcl

CardConnect Signature Capture

See more CardConnect Examples

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

Tcl

load ./chilkat.dll

set success 0

# 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 resp [new_CkHttpResponse]

set success [CkHttp_HttpStr $http "PUT" $url [CkJsonObject_emit $json] "utf-8" "application/json" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $json
    delete_CkBinData $bd
    delete_CkGzip $gzip
    delete_CkHttpResponse $resp
    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 = [CkHttpResponse_get_StatusCode $resp]"

set jsonResp [new_CkJsonObject]

CkJsonObject_Load $jsonResp [CkHttpResponse_bodyStr $resp]
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_CkHttpResponse $resp
delete_CkJsonObject $jsonResp