rilyu/json4delphi

JSON for Delphi, support for older versions of Delphi (6 or above)

json4delphi's Issues

Stringify performance

Hello,

Would TStringStream be used to enhance writing performance instead of concatenating Json elements?

function TJsonArray.Stringify: String;
var
  I: Integer;
  Item: TJsonValue;
begin
  Result := '[';
  for I := 0 to FList.Count - 1 do
  begin
    Item := TJsonValue(FList[I]);
    if I > 0 then Result := Result + ',';
    Result := Result + Item.Stringify;
  end;
  Result := Result + ']';
end;

function TJsonObject.Stringify: String;
var
  I: Integer;
  Item: TJsonPair;
begin
  Result := '{';
  for I := 0 to FList.Count - 1 do
  begin
    Item := TJsonPair(FList[I]);
    if I > 0 then Result := Result + ',';
    Result := Result + Item.Stringify;
  end;
  Result := Result + '}';
end;

Best regards.

Error parsing Json [White Spaces]

Hello,

Thank you for providing this library.

AnalyzeJsonValueType raised an exception when Json text contains White Spaces (<#32: #10, #13, #9, ...)

This function would be:

function TJsonBase.AnalyzeJsonValueType(S:String):TJsonValueType;
var
  Len    : Integer;
  Number : Extended;
begin
  S      := Trim(S); /////////////////////////////
  Result := jvNone;
  Len := Length(S);
  if Len >= 2 then
  begin
    if (S[1] = '{') and (S[Len] = '}') then Result := jvObject
    else if (S[1] = '[') and (S[Len] = ']') then Result := jvArray
    else if (S[1] = '"') and (S[Len] = '"') then Result := jvString
    else if SameText(S, 'null') then Result := jvNull
    else if SameText(S, 'true') or SameText(S, 'false') then Result := jvBoolean
    else if FixedTryStrToFloat(S, Number) then Result := jvNumber;
  end
  else if FixedTryStrToFloat(S, Number) then Result := jvNumber;
end;

Best regards.

Object To Json representation problem

Hello,

This code

unit Main;
interface

uses
  Winapi.Windows, REST.JSON, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  JsonsUtilsEx;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ObjectBtn: TButton;
    procedure ObjectBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TJObject=class
  private
    FP1 : Integer;
    FP2 : TBytes;
    FP3 : string;
    FP4 : TDateTime;
  published
    property P1 : Integer read FP1 write FP1;
    property P2 : TBytes  read FP2 write FP2;
    property P3 : string  read FP3 write FP3;
    property P4 : TDateTime read FP4 write FP4;
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.ObjectBtnClick(Sender: TObject);
var
  O      : TJObject;
  sJson  : string;
begin
  O     := TJObject.create;
  O.P1  := 11;
  O.P2  := [3,2,1];
  O.P3  := 'String';
  O.P4  := now;
  sJson := __ObjectToJson(O);
  Memo1.Lines.Add(sJson);
  O.P2  := [];
  __jsonToObject(sJson,TObject(O));
  sJson := __ObjectToJson(O);
  Memo1.Lines.Add(sJson);
  FreeAndNil(O);
end;

initialization
  ReportMemoryLeaksOnShutdown := True;
finalization
end.

generated this Json:

{
"P1" : 11 , 
"P2" : [ -1761541629,-2139084140,0 ] , 
"P3" : "String" , 
"P4" : "2021-01-03T21:58:55.055Z"
}

The output would be:

{
"P1" : 11 , 
"P2" : [ 3,2,1 ] , 
"P3" : "String" , 
"P4" : "2021-01-03T21:58:55.055Z"
}

I think it's just a strange character error

json4delphi/src/Jsons.pas

Line 395 in dba8a9d

FixedS := S; 4bu3l1n - M151ngu1

Object To Json

fazendo uso em lazarus ao usar o _objecttojson retorna apenas '{}' como fazer para funcionar em lazarus ?

Json.Stringify in DXE7 not working ?

Json := TJson.Create();
Json['field6'].AsString := 'hello world';
writeln(Json.Stringify());

This simple code should produce a string

{"field6" : "hello world"}

??

If so it is not what is happening using Delphi XE7. An empty string is the result.

GLB_JSON_STD_DECIMALSEPARATOR

Hi,
JsonsUtils_GLB_DECIMALSEPARATOR would be replaced by GLB_JSON_STD_DECIMALSEPARATOR and not the opposite:

function FixedTryStrToFloat(const S: string; out Value: Extended): Boolean;
var
  FixedS: string;
begin
  if JsonsUtils_GLB_DECIMALSEPARATOR = GLB_JSON_STD_DECIMALSEPARATOR then
  begin
    Result := TryStrToFloat(S, Value);
  end
  else
  begin
    FixedS := StringReplace( S,
                             JsonsUtils_GLB_DECIMALSEPARATOR,
                             GLB_JSON_STD_DECIMALSEPARATOR,
                             [rfReplaceAll]);
    Result := TryStrToFloat(FixedS, Value);
  end;
end;

Best regards.

json4maXbox scripting

I made the library scriptable to maXbox4 engine, runs fine now:
http://www.softwareschule.ch/examples/covid2.txt