REST.Json.TJson serialisiert "falsch" leere dyn. Arrays?

[Der schöne Günther]

Ich bin nicht durch den Quelltext gegangen, aber ein Synonym für ein leeres Array [] ist tatsächlich nil . Nicht dass hier unbeabsichtigt irgendeine Optimierung greift und der entsprechende Serialisierungsmechanismus tatsächlich einen Nullpointer bekommt...

[TiGü]

Zitat von Der schöne Günther:

Ich bin nicht durch den Quelltext gegangen, aber ein Synonym für ein leeres Array [] ist tatsächlich nil . Nicht dass hier unbeabsichtigt irgendeine Optimierung greift und der entsprechende Serialisierungsmechanismus tatsächlich einen Nullpointer bekommt...

Wenn man in TJson.ProcessOptions reinschaut, dann ist an der folgenden kommentiert-markierten Stelle für mein leeres Array der Typ von LPair.JsonValue nicht TJSONArray sondern TJSONNull.

Delphi-Quellcode:

class procedure TJson.ProcessOptions(AJsonObject: TJSOnObject; AOptions: TJsonOptions);
var
  LPair: TJSONPair;
  LItem: TObject;
  i: Integer;

  function IsEmpty(ASet: TJsonOptions):boolean;
  var
    LElement: TJsonOption;
  begin
    Result := true;
    for LElement in ASet do
    begin
      Result := false;
      break;
    end;
  end;

begin
  if assigned(AJsonObject) and not isEmpty(AOptions) then

   for i := AJsonObject.Count -1 downto 0  do
    begin
      LPair := TJSONPair(AJsonObject.Pairs[i]);
      if LPair.JsonValue is TJSOnObject then
        TJson.ProcessOptions(TJSOnObject(LPair.JsonValue), AOptions)
      else if LPair.JsonValue is TJSONArray then // <------- hier beginnt meine Fahrt zur Hölle! LPair.JsonValue ist für ein leeres dynamisches Array von Typ TJsonNull!
      begin
        if (joIgnoreEmptyArrays in AOptions) and (TJSONArray(LPair.JsonValue).Count = 0) then
        begin
          AJsonObject.RemovePair(LPair.JsonString.Value).DisposeOf;
        end
        else
          for LItem in TJSONArray(LPair.JsonValue) do
          begin
            if LItem is TJSOnObject then
              TJson.ProcessOptions(TJSOnObject(LItem), AOptions)
          end;
      end
      else
      begin
        if (joIgnoreEmptyStrings in AOptions) and (LPair.JsonValue.value = '') then
        begin
          AJsonObject.RemovePair(LPair.JsonString.Value).DisposeOf;
        end;
      end;
    end;
end;

[Zacherl]

Scheint ziemlich schlecht implementiert zu sein. Die joIgnoreEmptyArrays Option macht so natürlich absolut keinen Sinn.

Habe auch mal ein wenig rumgesucht, ob es evtl. noch entsprechende Attribute oder Options gibt, aber an einer bestimmten Stelle wird hardcoded auf TValue.IsEmpty geprüft - was bei einem leeren Array zu true evaluiert - und dann "null" hinzugefügt.

Edit:
Als Workaround wirst du bei diesem speziellen Objekt wohl manuell das entsprechende Pair entfernen (und ggfls. als leeres TJSONArray Element neu hinzufügen) müssen.

[TiGü]

Zitat von Zacherl:

Edit:
Als Workaround wirst du bei diesem speziellen Objekt wohl manuell das entsprechende Pair entfernen (und ggfls. als leeres TJSONArray Element neu hinzufügen) müssen.

Wäre zwar irgendwie "richtiger", aber da der entstehende JSON-String für mein eigentliches Problem-Objekt recht kompakt ist und es sonst nur String- und Zahlen-Typen hat bin ich jetzt auf diese hemdsärmlige Lösung umgestiegen:

Delphi-Quellcode:

 
function FixJsonSerializationForEmptyArrays(const AJsonString: string): string;
begin
  Result := StringReplace(AJsonString, 'null', '[]', [rfReplaceAll, rfIgnoreCase])
end;

[Stevie]

Zitat von Zacherl:

Habe auch mal ein wenig rumgesucht, ob es evtl. noch entsprechende Attribute oder Options gibt, aber an einer bestimmten Stelle wird hardcoded auf TValue.IsEmpty geprüft - was bei einem leeren Array zu true evaluiert - und dann "null" hinzugefügt.

Daran bin ich wohl schuld
https://quality.embarcadero.com/browse/RSP-13747

[TiGü]

Zitat von Stevie:

Zitat von Zacherl:

Habe auch mal ein wenig rumgesucht, ob es evtl. noch entsprechende Attribute oder Options gibt, aber an einer bestimmten Stelle wird hardcoded auf TValue.IsEmpty geprüft - was bei einem leeren Array zu true evaluiert - und dann "null" hinzugefügt.

Daran bin ich wohl schuld
https://quality.embarcadero.com/browse/RSP-13747

Teert und federt ihn!

[Der schöne Günther]

In 10.2 Tokyo ist das angeblich gefixed. Der Report hier ist als korrigiert aufgelistet:

https://quality.embarcadero.com/browse/RSP-14615

[TiGü]

Hm, ist doch aber noch auf:
Status:Open
Resolution: Unresolved