Best way to write Json api

[Andrzej 0]

I want write Json5 classes. Assume that file is already parsed and we have Json objects. Is array of 10 json objects where can be simple as integer,float,string or compound arrays and objects. How to write method giving value? Virtual getvalue or like databases, asstring,asfloat etc?

[Andrzej 0]

I think, api should be similar to IMemento xml, especially I moved from xml to json. Main reason, that xml are too big, about 7x greater than binary versions.

[shineworld 73]

I've to move IMemento and IPersistable to JSON.
I've already made that in Python and moving to Delphi should be simple.

At moment I cannot do that, current project timings.....

cnc_memento.py

Delphi, Sydeny in my case, have a full JSON support.

Here an example of element read to compare with python way....
Delphi JSON is very close to dict in python and so to related python json:

 

function TAPITCPEngineClient.GetAxesInfo: TAPIAxesInfo;
var
  Request: string;
  Response: string;
  JSONValue: TJSONValue;
begin
  try
    if not GetActive then AbortFast;
    Result.Init;
    Request := '{"get":"axes.info"}';
    Response := SendCommand(Request);
    if Response = '' then Exit;
    JSONValue := TJSONObject.ParseJSONValue(Response);
    try
      if not (JSONValue is TJSONObject) then Exit;
      if not JSONValue.TryGetValue<TAPIAxesArray>('["res"]["joint.position"]', Result.JointPosition.V) then AbortFast;
      if not JSONValue.TryGetValue<TAPIAxesArray>('["res"]["machine.position"]', Result.MachinePosition.V) then AbortFast;
      if not JSONValue.TryGetValue<TAPIAxesArray>('["res"]["program.position"]', Result.ProgramPosition.V) then AbortFast;
      if not JSONValue.TryGetValue<TAPIAxesArray>('["res"]["machine.target.position"]', Result.MachineTargetPosition.V) then AbortFast;
      if not JSONValue.TryGetValue<TAPIAxesArray>('["res"]["program.target.position"]', Result.ProgramTargetPosition.V) then AbortFast;
      if not JSONValue.TryGetValue<TAPIAxesSpeedArray>('["res"]["actual.velocity"]', Result.ActualVelocity.V) then AbortFast;
      if not JSONValue.TryGetValue<Cardinal>('["res"]["working.wcs"]', Result.WorkingWCS) then AbortFast;
      if not JSONValue.TryGetValue<TAPIAxesArray>('["res"]["working.offset"]', Result.WorkingOffset.V) then AbortFast;
      if not JSONValue.TryGetValue<Boolean>('["res"]["homing.done"]', Result.HomingDone) then AbortFast;
      if not JSONValue.TryGetValue<Cardinal>('["res"]["homing.done.mask"]', Result.HomingDoneMask) then AbortFast;
      Result.HasData := True;
    finally
      JSONValue.Free;
    end;
  except
    Result.Init;
  end;
end;

JSon is simplest than XML but more readable.
 

Edited May 17, 2022 by shineworld