(Lianja) CardConnect Get Profile

Demonstrates how to get a profile.

A GET request to the profile endpoint returns the stored data for the specified profile ID. ...

See https://developer.cardconnect.com/cardconnect-api?lang=json#get-profile-request

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loHttp = createobject("CkHttp")

loHttp.BasicAuth = .T.
loHttp.Login = "API_USERNAME"
loHttp.Password = "API_PASSWORD"

lcUrl = "https://<site>.cardconnect.com:<port>/cardconnect/rest/profile/<profile ID>/<account ID>/<merchid>"
lcResponseStr = loHttp.QuickGetStr(lcUrl)
if (loHttp.LastMethodSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    return
endif

// 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 status code = " + str(loHttp.LastStatus)

loJsonResp = createobject("CkJsonObject")
loJsonResp.Load(lcResponseStr)
loJsonResp.EmitCompact = .F.

? "response JSON:"
? loJsonResp.Emit()

// A successful response looks like this:

// {
//   "country": "US",
//   "gsacard": "N",
//   "address": "123 MAIN STREET",
//   "city": "ANYTOWN",
//   "acctid": "1",
//   "defaultacct": "Y",
//   "accttype": "VISA",
//   "token": "9441149619831111",
//   "license": "123451254",
//   "phone": "7778789999",
//   "profileid": "16392957457306633141",
//   "name": "TOM JONES",
//   "auoptout": "N",
//   "postal": "19090",
//   "expiry": "0214",
//   "region": "AK",
//   "ssnl4": "3655"
// }

// Use this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

lcCountry = loJsonResp.StringOf("country")
lcGsacard = loJsonResp.StringOf("gsacard")
lcAddress = loJsonResp.StringOf("address")
lcCity = loJsonResp.StringOf("city")
lcAcctid = loJsonResp.StringOf("acctid")
lcDefaultacct = loJsonResp.StringOf("defaultacct")
lcAccttype = loJsonResp.StringOf("accttype")
lcToken = loJsonResp.StringOf("token")
lcLicense = loJsonResp.StringOf("license")
lcPhone = loJsonResp.StringOf("phone")
lcProfileid = loJsonResp.StringOf("profileid")
lcName = loJsonResp.StringOf("name")
lcAuoptout = loJsonResp.StringOf("auoptout")
lcPostal = loJsonResp.StringOf("postal")
lcExpiry = loJsonResp.StringOf("expiry")
lcRegion = loJsonResp.StringOf("region")
lcSsnl4 = loJsonResp.StringOf("ssnl4")


release loHttp
release loJsonResp