Wow, so viel Code ! Danke euch allen. Aber wie immer das ABER:
@Delphi.Narium
So was in der Art hab ich hier schon für die Vorgänger-Datenversion.
Das wollte ich eigentlich etwas einfacher und übersichtlicher haben.
@jobo
Hm, auch noch
SQL/Datenbank mit ins Boot ist eigentlich weit am Ziel vorbei...
Und ja: JSON (einfach) per Hand zu zerlegen ist die Intention. Siehe weiter unten.
@TiGü
Yepp, das funzt ! Allerdings müsste ich da sicher erst mal einen extended Durchblickerkurs machen, um zu verstehen wie das funktioniert und wie man das dann ggf. noch erweitert/anpasst.
Sehe ich das richtig, das die auserwählten Sender statisch im TChannelContainer vorgegeben sind ?
Falls ja: Das sollte vom User änderbar sein (hier mit Senderlisten-Editor)
Ich hab gesten Nacht noch rumgebastelt und dabei ist folgendes herausgekommen
Delphi-Quellcode:
// https://www.generacodice.com/en/articolo/4308375/how-to-parse-nested-json-object-in-delphi-xe2
procedure TForm1.ParseJson(data : string);
var
JsonObj : TJSONObject;
JsonArray : TJSONArray;
JsonValue : TJSonValue;
chl : TJSonValue;
JsonPair : TJSONPair;
i, ii, n : integer;
LItem : TJSONValue;
begin
JsonObj := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(data),0) as TJSONObject;
try
JsonValue := JsonObj.Get('channels').JsonValue;
for i := 0 to TJSONArray(JsonValue).Size - 1 do
begin
chl := TJSONArray(JsonValue).Get(i);
JsonPair := TJSONPair(chl);
// Listet den Sender-Namen
Memo.Lines.Add(Format('Channel: %s',[JsonPair.JsonString.Value]));
n := 1;
for LItem in TJSONArray(JsonPair.JsonValue) do
begin
// Listet entsprechend Anzahl der Programme je Sender
// .... den 'Inhalt' zwischen [ und ]
Memo.Lines.Add('- Programm: ' + inttostr(n));
inc(n);
// ... wie bekomme ich hier Zugriff auf die ProgrammDaten ?
// also den 'Inhalt' zwischen { und }
end;
end;
finally
JsonObj.Free;
end;
end;
Das ist mit Bordmitteln kurz, einfach, simpel und funzt so wie ich mir das denke.
... fehlt nur noch die "Kleinigkeit" siehe Text. Da fehlt mir noch das Verständnis bei JSON.
Vielleicht kann da jemand aushelfen und den letzen Denkanstoß geben ?!