Delphi DLL

Check if Integer Exists at JSON Path

Demonstrates how to get an integer value at a JSON path, and how to check to see if it exists. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
json: HCkJsonObject;
path: PWideChar;
val: Integer;
wasFound: Boolean;

begin
success := False;

json := CkJsonObject_Create();

// First build simple JSON..
CkJsonObject_UpdateInt(json,'test.abc',100);

CkJsonObject_putEmitCompact(json,False);
Memo1.Lines.Add(CkJsonObject__emit(json));

// This is our JSON:
// {
//   "test": {
//     "abc": 100,
//   }
// }

path := 'test.notHere';

// The call to IntOf will return 0, because it's not present.
// But how do we know if it really was present, and the value was truly 0?
val := CkJsonObject_IntOf(json,path);
Memo1.Lines.Add('val = ' + IntToStr(val));

// We cannot use LastMethodSuccess because LastMethodSuccess only applies
// to methods that:
// - return a string
// - return a new Chilkat object, binary bytes, or a date/time.
// - returns a boolean status where True = success and False = failed.
// - returns an integer where failure is defined by a return value less than zero.
// The IntOf method fits none of these requirements, and therefore the LastMethodSuccess 
// is not a valid indicator..
wasFound := CkJsonObject_getLastMethodSuccess(json);
Memo1.Lines.Add('wasFound = ' + IntToStr(Ord(wasFound)) + ' (not a valid indicator)');

// Instead, if the returned value is 0, we can double-check to see if the member was truly there..
if (val = 0) then
  begin
    wasFound := CkJsonObject_HasMember(json,path);
    Memo1.Lines.Add('wasFound = ' + IntToStr(Ord(wasFound)));
    if (wasFound = True) then
      begin
        Memo1.Lines.Add('The value was present and is 0.');
      end
    else
      begin
        Memo1.Lines.Add('no member is present at test.notHere');
      end;
  end
else
  begin
    Memo1.Lines.Add('val = ' + IntToStr(val));
  end;

// Alternatively, you could check to see if the member exists beforehand..
if (CkJsonObject_HasMember(json,path) = True) then
  begin
    Memo1.Lines.Add('val = ' + IntToStr(CkJsonObject_IntOf(json,path)));
  end
else
  begin
    Memo1.Lines.Add('no member at ' + path);
  end;

CkJsonObject_Dispose(json);

end;