Ergebnis der Suchanfrage

• Forum: Netzwerke

  AW: JSON interpretieren mit SuperObject

   
    by MartinK, 6. Okt 2014
  Ja, TipTop, So funktioniert das!
  
  1000-Dank und LG
  Martin
• Forum: Netzwerke

  AW: JSON interpretieren mit SuperObject

   
    by MartinK, 6. Okt 2014
  Es erscheint nur ein leeres Ergebnis, d.h. aStr = '' nach dem Aufruf von
  
  
  aStr := JSON.AsObject.S;
• Forum: Netzwerke

  AW: JSON interpretieren mit SuperObject

   
    by MartinK, 6. Okt 2014
  Hmm, Nein das funktioniert leider auch (noch) nicht.
  
  ich poste hier nochmal meinen aktuellen Code
  
  
  procedure TForm1.BtnACloudClick(Sender: TObject);
  Var
  iDHTTP: TIdHttp;
  
  aBody, JSON_Response: String;
• Forum: Netzwerke

  AW: JSON interpretieren mit SuperObject

   
    by MartinK, 5. Okt 2014
  Danke Euch dreien. Super !
  ich sehe schon, da muss ich noch etwas "Hand anlegen"
  (...ist für mich halt noch ein noch ganz neues Thema)
  
  was ich nun mache ist
  - den ersten JSON String einfach entfernen
  - mir den zweiten parsen
  
  Wie Michael vollkommenkorrekterweise bemerkt hat ist der string fehlerhaft.... da ich ihn stark gekürzt habe
  vollständigerweise würde er zB lauten
• Forum: Netzwerke

  JSON interpretieren mit SuperObject

   
    by MartinK, 5. Okt 2014
  Wieso nur bekomme ich mit diesem SourceCode nicht den "Value" von "aktCa" ausgelesen
  
  
  Var
  JSON_Txt: String;
  test: String;
  JSON: ISuperObject;
  begin
  JSON_Txt := '{"response":"tank","date":"2014-10-05 19:56:15"},{"Tank":{"id":"B0DB7A37-9086-43B0-8468-C54908121150-142-00000000EE6AB2C4","aktAlk":"750","aktCa":"450","aktMg":"1335",}}';
  JSON:=SO(JSON_Txt);