(Visual FoxPro) 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.

For more information, see https://support.intakeq.com/article/31-intakeq-api#download-intake

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loHttp
LOCAL loSbJson
LOCAL lnSuccess
LOCAL loJson

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

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

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbJson = CreateObject('Chilkat.StringBuilder')
lnSuccess = loHttp.QuickGetSb("https://intakeq.com/api/v1/intakes/[intake-id]",loSbJson)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loSbJson
    CANCEL
ENDIF

IF (loHttp.LastStatus <> 200) THEN
    ? "status code: " + STR(loHttp.LastStatus)
    ? "response: " + loSbJson.GetAsString()
    RELEASE loHttp
    RELEASE loSbJson
    CANCEL
ENDIF

? "raw response: "
? loSbJson.GetAsString()

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')

loJson.LoadSb(loSbJson)
loJson.EmitCompact = 1

? loJson.Emit()

RELEASE loHttp
RELEASE loSbJson
RELEASE loJson