Lianja

RSAP Union API - Get Members Status

See more _Miscellaneous_ Examples

Demonstrates how to use an OAuth2 access token for the RSAP Union API. Calls the endpoint to get the statuses of all union members. Lianja

llSuccess = .F.

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

loHttp = createobject("CkHttp")

// Load the access token previously obtained by this example:  RSAP Union OAuth2
loJToken = createobject("CkJsonObject")
llSuccess = loJToken.LoadFile("qa_data/tokens/rsapToken.json")
if (llSuccess = .F.) then
    ? "Failed to load access token JSON."
    release loHttp
    release loJToken
    return
endif

// Adds the "Authorization: Bearer ACCESS_TOKEN" header.
loHttp.AuthToken = loJToken.StringOf("access_token")

// For authentication, assuming both the client cert and access token are needed???
loCert = createobject("CkCert")
llSuccess = loCert.LoadFromFile("qa_data/certs_and_keys/union_client_certificate.crt")
if (llSuccess = .F.) then
    ? loCert.LastErrorText
    release loHttp
    release loJToken
    release loCert
    return
endif

loPrivKey = createobject("CkPrivateKey")
llSuccess = loPrivKey.LoadAnyFormatFile("qa_data/certs_and_keys/union_client_certificate.nopass.key","")
if (llSuccess = .F.) then
    ? loPrivKey.LastErrorText
    release loHttp
    release loJToken
    release loCert
    release loPrivKey
    return
endif

// Associate the private key with the cert.
// This will fail if the private key is not actually the correct one that corresponds to the public key stored within the cert.
llSuccess = loCert.SetPrivateKey(loPrivKey)
if (llSuccess = .F.) then
    ? loCert.LastErrorText
    release loHttp
    release loJToken
    release loCert
    release loPrivKey
    return
endif

// Tell HTTP to use the cert for client TLS certificate authentication.
llSuccess = loHttp.SetSslClientCert(loCert)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loJToken
    release loCert
    release loPrivKey
    return
endif

loSbResponseBody = createobject("CkStringBuilder")
llSuccess = loHttp.QuickGetSb("https://api-test.rsap.ca/members/status",loSbResponseBody)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loJToken
    release loCert
    release loPrivKey
    release loSbResponseBody
    return
endif

loJResp = createobject("CkJsonObject")
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = .F.

? "Response Body:"
? loJResp.Emit()

lnRespStatusCode = loHttp.LastStatus
? "Response Status Code = " + str(lnRespStatusCode)
if (lnRespStatusCode >= 400) then
    ? "Response Header:"
    ? loHttp.LastHeader
    ? "Failed."
    release loHttp
    release loJToken
    release loCert
    release loPrivKey
    release loSbResponseBody
    release loJResp
    return
endif



release loHttp
release loJToken
release loCert
release loPrivKey
release loSbResponseBody
release loJResp