Rest JSON

[borstenei]

Hallo,
ich teste gerade die Rest Komponenten mit JSON. Verschiedene Dienste habe ich schon gut "anzapfen" können.Aber ein Problem bleibt wenn zb. ein knoten oder ein Element nicht vorhanden ist wieder erwarten, schmiert die Anwendung ab.
Wie kann ich das vorhandensein eines Eintrags überprüfen...? das hier soll jetzt mal nur als Beispiel dienen....

Delphi-Quellcode:

Title :=  MainForecast.GetValue('title').Value;
        Publisher := MainForecast.GetValue('publisher').Value;
        PublishedDate := MainForecast.GetValue('publishedDate').Value;
        Description := MainForecast.GetValue('description').Value;
        SeitenAnzahl := MainForecast.GetValue('pageCount').Value;
        Sprache :=  MainForecast.GetValue('language').Value;
        Autor := MainForecast.GetValue('authors') as TJSONArray;
        Autoren := Autor.Items[0].Value;
        ISBNCode := MainForecast.GetValue('industryIdentifiers') as TJSONArray;
        Code13:= TJSONObject(ISBNCode.Items[1]).GetValue('identifier').Value;
        CodeTyp13 := TJSONObject(ISBNCode.Items[1]).GetValue('type').Value;
        Code10:= TJSONObject(ISBNCode.Items[0]).GetValue('identifier').Value;
        CodeTyp10 := TJSONObject(ISBNCode.Items[0]).GetValue('type').Value;
        Imagelinks := MainForecast.GetValue('imageLinks') as TJSONObject;
        BildPfad :=  ImageLinks.GetValue('thumbnail').Value;
        Categories := MainForecast.GetValue('categories') as TJSONArray;
        Kategorie := Categories.Items[0].Value;

nur wenn jetzt zb. der Eintrag 'authors' fehlt , bekomme ich eine Fehlermeldung und der Rest wird natürlich auch nicht mehr abgearbeitet.
Meine Frage ist schlicht ....wie kann ich auf nicht vorhandene Knoten/Einträge reagieren..und mit dem nächsten Eintrag fortfahren...
Borstenei

[Sir Rufo]

Kuckst du Doku System.JSON.TJSONObject und dort die Methoden und Eigenschaften anschauen.

z.B.: TryGetValue , Count , Values

[borstenei]

Hallo Sir Rufo,
Danke für den Tipp. Aber damit habe ich auch schon rum experimentiert.
Ich komme aber mit dem
TryGetValue nicht weiter, auch finde ich im Internet kein entsprechendes Sample.
Irgendwie finde ich es ungewöhnlich das niemand das nichtvorhandensein prüft?!.
Ich habe mir das "Delphi Cookbook" von Daniele Teti gekauft aber auch hier in den Beispielen finden nirgends eine überprüfung statt.
Kann mir jemand hier mal auf die Sprünge helfen?
Borstenei

[Sir Rufo]

Nun das TryGetValue arbeitet genauso wie alle Try Varianten (TryStrToInt , ...)

Delphi-Quellcode:

if LJSONObject.TryGetValue<string>( 
  { APath } 'author', 
  { out AValue } LStr ) then
  WriteLn( 'author found: ', LStr )
else
  WriteLn( 'author not found!' );

oder auf dein Beispiel angewendet

Delphi-Quellcode:

if MainForecast.TryGetValue<string>( 'title', LStr ) then
  Title := LStr
else
  Title := '';

Wenn dir das zu umständlich ist, dann bau dir einfach einen Helper

Delphi-Quellcode:

type
  TJSONValueHelper = class helper for TJSONValue
  public
    function GetValue<T>( const APath: string; ADefault: T ): T;
  end;

function TJSONValueHelper.GetValue<T>( const APath: string; ADefault: T ): T;
begin
  if not TryGetValue<T>( APath, Result )
  then
    Result := ADefault;
end;

und dann geht das einfach so

Delphi-Quellcode:

Title := MainForecast.GetValue<string>( 
  { APath } 'title', 
  { ADefault } '' );

[borstenei]

Danke Dir Sir Rufo für Deine Mühe,
super schlanke Lösung.
Allerdings bekomme ich das nur umgesetzt wenn Bezeichner vorhanden sind, in diesem Fall

Delphi-Quellcode:

 Categories := MainForecast.GetValue('categories') as TJSONArray;
         Kategorie := Categories.Items[0].Value;

bekomme ich das wieder nicht mit
TryGetValue umgesetzt.
Ich habe hier jetzt einfach ein
Try Except eingefügt.
Borstenei

[Sir Rufo]

Wieso das, ein simples If Assigned( Categories ) then reicht doch aus