Delphi DLL

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. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, StringBuilder, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
sbJson: HCkStringBuilder;
json: HCkJsonObject;

begin
success := False;

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

http := CkHttp_Create();

// To log the exact HTTP request/response to a session log file:
CkHttp_putSessionLogFilename(http,'/someDir/sessionLog.txt');

CkHttp_SetRequestHeader(http,'X-Auth-Key','xxxxxxxxxxxxxxxxxxxxxxxxx');

sbJson := CkStringBuilder_Create();
success := CkHttp_QuickGetSb(http,'https://intakeq.com/api/v1/intakes/[intake-id]',sbJson);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

if (CkHttp_getLastStatus(http) <> 200) then
  begin
    Memo1.Lines.Add('status code: ' + IntToStr(CkHttp_getLastStatus(http)));
    Memo1.Lines.Add('response: ' + CkStringBuilder__getAsString(sbJson));
    Exit;
  end;

Memo1.Lines.Add('raw response: ');
Memo1.Lines.Add(CkStringBuilder__getAsString(sbJson));

json := CkJsonObject_Create();

CkJsonObject_LoadSb(json,sbJson);
CkJsonObject_putEmitCompact(json,True);

Memo1.Lines.Add(CkJsonObject__emit(json));

CkHttp_Dispose(http);
CkStringBuilder_Dispose(sbJson);
CkJsonObject_Dispose(json);

end;