JSON Wert zufügen

[geldis]

In meiner Gruppe hier haben für für jeden Berecih eine Spezialistn. Ich amüsiere mich mit Fortran, Cobol und XML (IT Studium 1988), einer mit DirectX, einer mit SQL, einer mit SAP+JSON usw. Und ausgerechnet der JSON Mensch ist krank, sonst hätte ich hier gar nicht gefragt. Und für das was wir hier machen brauchten wir JSON bisher nur in Extremfällen. Insofern lasse ich das dann links liegen.

Mir erschließt sich das Gefummel mit Objekten und Dutzenden von Typen nicht. Und ich sehe keinen Vorteil gegenüber XML.

Naja, ich lass das jetzt mal alles liegen und frage auch besser nicht mehr. Allein der Kommentar von Herrn Raabe hat mit schon gereicht. Und rumrätseln mag ich auch nicht.

geldis

[Union]

Zitat von geldis:

Und rumrätseln mag ich auch nicht.

Wir helfen ja gerne. Natürlich fällt das leichter wenn auch ein Minimum an Eigeninitiative erkennbar ist. Ich habe die grundlegende Vorgehensweise beschrieben, der REST sollte bei Vorliegen der Dokumentation nicht schwer zu erarbeiten sein.

Auch COBOL unterstützt JSON inzwischen direkt in den meisten Dialekten (z.b. IBM, MF mit json parse into). Du könntest also sogar deine "Hauptsprache" dafür verwenden.

[Uwe Raabe]

Zitat von geldis:

Allein der Kommentar von Herrn Raabe hat mit schon gereicht.

Das war eher als Ermunterung oder Ansporn etwas Neues zu lernen gedacht. Tut mir leid, wenn das falsch rübergekommen ist.

[creehawk]

Moin Moin.

Kann nicht jemand mal geldis die entsprechenden Zeilen hier posten?

Ich hatte bisher das Forum auch und gerade als Hilfe verstanden, quasi wie ein Handbuch. Sicher ist der Gedanke des Ansporns und Motivation auch ein gute Sache. Aber aus meiner Sicht kann man das auch übertreiben.
Seinerzeit hatte ich hier echt Probleme mit DDSToPDF (DirectDrawSurface). Allerlei Tipps aus der Community haben mich dann tatsächlich motiviert. Mit Hilfe eines Spezialisten habe ich dann die Sache gelöst und einiges gelernt. Aber ich bin hier aus Hobby unterwegs.

geldis hat ja offensichtlich versucht die Sache zu lösen, aber auch ich kenne des Brett vor dem Kopf (jedenfalls die Maserung). Dummerweise habe ich keine Ahnung von JSON sonst würde ich das jetzt aufklären.

Die JSON ist als Beispiel ja weiter oben vorhanden, kann mal jemand so freundlich sein?

creehawk

[Union]

Hier das funktionierende Codefragment.

Delphi-Quellcode:

uses
  System.JSON;

const
  JSONDATA =
    '{"Version":"1","ID":"Zeptor","IncompatibleIds":["Jokola"],"Dependent":null,' +
    '"Lapforce":{"English":"much","French":null,"German":"Viel","Italian":null,' +
    '"Japanese":null,"Korean":null,"Polish":null,"Russian":null,"Spanish":null,' +
    '"Taiwanese":null},"Score":[{"English":"much","French":null,"German":' +
    '"Viel","Italian":null,"Japanese":null,"Korean":null,"Polish":null,' +
    '"Russian":null,"Spanish":null,"Taiwanese":null}],"Name":"Turandot","Contact":"","Image":null}';

procedure ProcessJSON;
  procedure InsertCzech(AObject : TJSONValue);
  begin
    TJSONObject(AObject).AddPair('Czech', TJSONNull.Create);
  end;

  var
     LData : TJSONValue;
     LArray : TJSONArray;
     LItem  : TJSONValue;
begin
  LData := TJSONObject.ParseJSONValue(JSONDATA);
  LItem := LData.FindValue('Lapforce');
  InsertCzech(LItem);
  LArray := TJsonArray(LData.FindValue('Score'));
  for LItem in LArray do
    InsertCzech(TJSONObject(LItem));
end;

[geldis]

Guten Morgen.

@Union Vielen und herzlichen Dank.

@creehawk Danke.

geldis