B4X

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. B4X

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("http")

'  Load the access token previously obtained by this example:  RSAP Union OAuth2
Dim jToken As ChilkatJsonObject
jToken.Initialize
success = jToken.LoadFile("qa_data/tokens/rsapToken.json")
If success = False Then
    Log("Failed to load access token JSON.")
    Return
End If


'  Adds the "Authorization: Bearer ACCESS_TOKEN" header.
http.AuthToken = jToken.StringOf("access_token")

'  For authentication, assuming both the client cert and access token are needed???
Dim cert As ChilkatCert
cert.Initialize("cert")
success = cert.LoadFromFile("qa_data/certs_and_keys/union_client_certificate.crt")
If success = False Then
    Log(cert.LastErrorText)
    Return
End If


Dim privKey As ChilkatPrivateKey
privKey.Initialize("privKey")
success = privKey.LoadAnyFormatFile("qa_data/certs_and_keys/union_client_certificate.nopass.key", "")
If success = False Then
    Log(privKey.LastErrorText)
    Return
End If


'  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.
success = cert.SetPrivateKey(privKey)
If success = False Then
    Log(cert.LastErrorText)
    Return
End If


'  Tell HTTP to use the cert for client TLS certificate authentication.
success = http.SetSslClientCert(cert)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim sbResponseBody As ChilkatStringBuilder
sbResponseBody.Initialize
success = http.QuickGetSb("https://api-test.rsap.ca/members/status", sbResponseBody)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim jResp As ChilkatJsonObject
jResp.Initialize
jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = False

Log("Response Body:")
Log(jResp.Emit)

Dim respStatusCode As Int = http.LastStatus
Log("Response Status Code = " & respStatusCode)
If respStatusCode >= 400 Then
    Log("Response Header:")
    Log(http.LastHeader)
    Log("Failed.")
    Return
End If