(Visual FoxPro) Download Full Intake Form in JSON Format
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
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.
loHttp = CreateObject('Chilkat_9_5_0.Http')
* To log the exact HTTP request/response to a session log file:
loHttp.SessionLogFilename = "/someDir/sessionLog.txt"
loHttp.SetRequestHeader("X-Auth-Key","xxxxxxxxxxxxxxxxxxxxxxxxx")
loSbJson = CreateObject('Chilkat_9_5_0.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()
loJson = CreateObject('Chilkat_9_5_0.JsonObject')
loJson.LoadSb(loSbJson)
loJson.EmitCompact = 1
? loJson.Emit()
RELEASE loHttp
RELEASE loSbJson
RELEASE loJson
|