B4X

Download Full Intake Form in JSON Format

See more IntakeQ Examples

The full intake form is very similar to intake summary object, except it adds an array of questions. 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")

'  To log the exact HTTP request/response to a session log file:
http.SessionLogFilename = "/someDir/sessionLog.txt"

http.SetRequestHeader("X-Auth-Key", "xxxxxxxxxxxxxxxxxxxxxxxxx")

Dim sbJson As ChilkatStringBuilder
sbJson.Initialize
success = http.QuickGetSb("https://intakeq.com/api/v1/intakes/[intake-id]", sbJson)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


If http.LastStatus <> 200 Then
    Log("status code: " & http.LastStatus)
    Log("response: " & sbJson.GetAsString)
    Return
End If


Log("raw response: ")
Log(sbJson.GetAsString)

Dim json As ChilkatJsonObject
json.Initialize

json.LoadSb(sbJson)
json.EmitCompact = True

Log(json.Emit)