RestServer Antwort Json ohne "[" Klammern

[himitsu]

Und jetzt nochmal meine Antwort lesen.

Zitat:

Delphi-Quellcode:

function Value: string; virtual;
function ToJSON: string;
function ToString: string; override;
//uvm.

[Sir Rufo]

Und wenn du von der gleichen Faulheit befallen bist wie ich, dann sparst du dir diesen gesamten Fuddelkram mit

Delphi-Quellcode:

unit Unit2;

interface

uses
  REST.Json.Types; // <- da sind die Json-Attribute definiert

type
  TResponseJSON = class
  private
    [ JsonName( 'result' ) ]
    FResultArray: TArray<string>;
  public
    property ResultArray: TArray<string> read FResultArray;
  end;

implementation

end.

und verarbeitest das ganz gemütlich mit

Delphi-Quellcode:

program foo;

uses
  System.SysUtils,
  REST.Json, // <- da ist TJson definiert
  Unit2 in 'Unit2.pas';

procedure Test;
var
  lResponse: TResponseJSON;
begin
  lResponse := TJson.JsonToObject<TResponseJSON>( '{"result":["Test<\u00F6\u00E4\u00FC\u00F6\u00E4\u00FC>7"]}' );
  try
    WriteLn( lResponse.ResultArray[ 0 ] );
  finally
    lResponse.Free;
  end;
end;

begin
  try
    Test;
  except
    on E: Exception do
      WriteLn( E.ClassName, ': ', E.Message );
  end;
  ReadLn;
end.

Weil einfach einfach einfach ist

[Sir Rufo]

TsTsTs ... muss man immer alles dreimal sagen
http://www.delphipraxis.net/1328714-post6.html

[himitsu]

Nur zum Test.
S := (LJSONObject.Values['result'] as TJSONArray).Items[0].Value; ?

[ScharfeMietze]

@himitsu

Doch gelesen habe ich es aber meine Versuche mit
mmo1.Lines.Add('2' + LJSONObject.Values['result'].Value); scheitern. Ich bekomme '' als Antwort.

Wenn ich probiere dort gerade alles durch

edit: gerade den Post gesehen ... probier ich gleich


SirRufo das seh ich mir gleich mal an ^^ ))))

Gruß
SM

[ScharfeMietze]

himitsu du bist echt ein Gott/Göttin!!!
S := (LJSONObject.Values['result'] as TJSONArray).Items[0].Value; ? funktioniert SUPER!!!!!!!!

Danke dir!!!!
Gruß
SM

PS: Troz allem werde ich SirRufos Code auch testen, allein um des lernens Willen !!!

[himitsu]

Aber nimm's nicht so schwer.
Ich fand die geklaute Implementation vom Embarcadero schon vom ersten Tag an Schrott, also was das Manuelle betrifft.

Der Wrapper von/zu den Datenobjekten ist halbweg bauchbar.
Geht allerdins nur, wenn man zur Designtime die Struktur kennt und passende Records/Datenobjekte schreibt. (dynamisch, zur Laufzeit was entscheiden, ist da dann nichts)

[ScharfeMietze]

Da ich mit dem RestServer erst beginne und ihn nur für mich privat brauchen werde, ist das zum üben vollkommen ausreichend.
Ich danke dir nochmal!!

Gruß
SM

[Sir Rufo]

@himitsu

Wenn du von der API ständig überrascht wirst, was die so an Strukturen heraushaut, dann solltest du die API nochmal prüfen.

Und egal was die zurückliefert, die Struktur muss irgendwie bekannt sein, denn wie will man den Inhalt verarbeiten, wenn man nicht weiß, was der Inhalt bedeutet.