JSon Formatieren

[EWeiss]

Zitat von mensch72:

https://github.com/ahausladen/JsonDataObjects
- das ist ab D2009... wird also mit D2010 wohl funktionieren
- von Mr. Hausladen, kompakt und abgeschlossen und der weiß definitiv was in Delphi gut funktioniert und was man besser nicht macht

Danke und jain..
DUnitTestRunner gibt es nicht (vom Test Projekt)
Kann ich also vorher nicht prüfen ob es für mich verwendbar ist.

gruss

[Bernhard Geyer]

Zitat von EWeiss:

Danke und jain..
DUnitTestRunner gibt es nicht (vom Test Projekt)
Kann ich also vorher nicht prüfen ob es für mich verwendbar ist.

Hmmmm.

Wie wäre es dann wenn dir das DUnit-Framework auch herunter lädst, wenn du die Verwendbarkeit über die Unit-Tests prüfen willst?

Oder einfach versuchst mit dem Quellcode des obige Beispiel, das du selbst gepostet hast, zum laufen zu bekommen?

[EWeiss]

Zitat:

Wie wäre es dann wenn dir das DUnit-Framework auch herunter lädst, wenn du die Verwendbarkeit über die Unit-Tests prüfen willst?

Hätte ich es nicht von Mr. Hausladen herunter geladen könnte ich nicht behaupten das es nicht läuft oder?

Zitat:

Oder einfach versuchst mit dem Quellcode des obige Beispiel, das du selbst gepostet hast, zum laufen zu bekommen?

Weil ich kein DX habe und somit über rest.json und system.json nicht verfüge.

Ansonsten wäre das natürlich genau das was ich brauchte string übergeben und fertig.

gruss

[Bernhard Geyer]

Zitat von EWeiss:

Hätte ich es nicht von Mr. Hausladen herunter geladen könnte ich nicht behaupten das es nicht läuft oder?

Das DUnit-Framework ist ein anderes Projekt da du andersweitig herunter laden musst. Das ist beim JSON-Projekt nicht dabei.
Die Projekthomepage wäre das: http://dunit.sourceforge.net/. Ob du diese direkt verwenden kannst oder für D2010 irgend einen der Forks bei Sourceforge oder gibhub benötigst weiß ich nicht.

Zitat:

Weil ich kein DX habe und somit über rest.json und system.json nicht verfüge.

Natürlich mit Anpassungen an die verfügbaren Klassen der gerade herunter geladenen Bibliothek.
Das es nicht ohne diese geht, sollte dir wohl klar sein.

[Zacherl]

Ansonsten schau mal bei mir vorbei:
https://github.com/flobernd/delphi-u...Utils.JSON.pas

Der Code zum Formatieren ist relativ abgekapselt. Solltest du dir leicht rauskopieren und für Rest.JSON adaptieren können
Nvm, D2010 hat nichtmal Rest.JSON. Sorry.

[Bernhard Geyer]

Zitat von Zacherl:

Ansonsten schau mal bei mir vorbei:
https://github.com/flobernd/delphi-u...Utils.JSON.pas

Der Code zum Formatieren ist relativ abgekapselt. Solltest du dir leicht rauskopieren und für Rest.JSON adaptieren können
Nvm, D2010 hat nichtmal Rest.JSON. Sorry.

Dann bleibt wohl nur noch irgendwelche "Monster"-Frameworks dich auch einen JSON-Parser haben.

[EWeiss]

Habe mal das von Mr. Hausladen versucht.
Er Formatiert JSon wenn auch nicht so wie ich es gerne möchte inklusive einrücken, also alles untereinander.

Wenn ich aber
ClonedObj.SaveToFile(TxtFile); anwende.

Ist der Text genauso wie zuvor unformatiert.
Eigentlich sollte doch dann der Text formatiert geschrieben werden so wie es formatiert wurde.
ShowMessage(ClonedObj.ToJSON(False));

irgendwie ist mir nicht klar wie ich die Message jetzt in die Textdatei bekomme. (bin wohl neben der Rolle)


gruss

[HolgerX]

Hmm..

Es geht doch nur darum, einen JSON-Text (String) so zu formatieren, dass er lesbar eingerückt und umgebrochen wird?

Hab das mal eben recht einfach als eine simple Funktion erstellt:

Delphi-Quellcode:

function FormatJSONStr(AString : string):String;
var
  idx : integer;
  InStr : boolean;
  i : integer;
begin
  Result := '';
  idx := 0;
  InStr := false;
  For i := 1 to length(AString) do begin
    if not InStr then begin
      if AString[i] in [']','}'] then begin
        inc(idx, -1);
        Result := Result + #13#10 + StringOfChar(#9 , idx);
      end;
    end;
    Result := Result + AString[i];
    if AString[i] = '"' then begin
      if (i > 1) and (AString[i-1] <> '/') then InStr := not InStr;
    end;
    if not InStr then begin
      if AString[i] in [','] then begin
        Result := Result + #13#10 + StringOfChar(#9 , idx);
      end;
      if AString[i] in ['{','['] then begin
        Inc(idx);
        Result := Result + #13#10 + StringOfChar(#9 , idx);
      end;
    end;
  end;
end;

Ist nicht schön, jedoch gibt es zumindestens mit deinen Beispielen etwas schön formatiertes heraus.
Es berücksichtigt auch, das die Sonderzeichen (,[]{}") auch in JSON-Strings vorhanden sein können.

Es wurde mit D6 erstellt, so dass für XE noch das 'String in []' gegen (ich glaube) CharInStr ausgetauscht werden sollte...
Hab kein XE und konnte es somit nicht probieren..

[Rollo62]

Habs jetzt nicht ganz gelesen was du möchtest.
Hilft dir das JSON SuperObject weiter ?

Bin jetzt nicht sicher ob das die aktuellste Version ist, es gibt da noch einige Forks.

Rollo