Json unbekanntes feld abfangen

[mytbo]

Wenn du es mit mORMot machen willst, dann hier ein kleines Beispiel. Hilfe zum Thema DocVariants findest du hier.
Eine ausführliche Hilfe zu mORMot findest du hier: Hilfe. Weitere Informationen findest du hier: Download, Forum

Delphi-Quellcode:

var
  iRun, nRun: Integer;
  doc: TDocVariantData;
  docChannels: PDocVariantData;
  docPrograms: PDocVariantData;
begin
  doc.InitJSONFromFile('EPG_data.json', JSON_OPTIONS_FAST_EXTENDED);
  if not doc.B['success'] then Exit; //=>

  for iRun := 0 to doc.A['channels'].Count - 1 do
  begin
    docChannels := doc.A['channels']._[iRun];
    ShowMessage(docChannels.S['cid']);

    for nRun := 0 to docChannels.A['programs'].Count - 1 do
    begin
      docPrograms := docChannels.A['programs']._[nRun];
      ShowMessage(docPrograms.S['i_url']);
      ShowMessage(docPrograms.I['e'].ToString);
      ShowMessage(docPrograms.A['g'].ToCSV);
    end;
  end;

Bis bald...
Thomas