AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Json unbekanntes feld abfangen

Ein Thema von venice2 · begonnen am 15. Dez 2020 · letzter Beitrag vom 22. Dez 2020
Antwort Antwort
venice2
(Gast)

n/a Beiträge
 
#1

AW: Json unbekanntes feld abfangen

  Alt 15. Dez 2020, 17:59
In dem Fall ist das Code-Schnipsel offenbar zu kurz. Interessant wäre insbesondere der Teil, der die Verwendung von EntryEpgNames zeigt. Auch ein komplettes JSON in unterschiedlichen Ausprägungen wäre eventuell hilfreich.
Bitte.
https://www.delphipraxis.net/1479107-post3.html
  Mit Zitat antworten Zitat
mytbo

Registriert seit: 8. Jan 2007
483 Beiträge
 
#2

AW: Json unbekanntes feld abfangen

  Alt 15. Dez 2020, 18:40
Wäre es auch möglich, eine JSON-Datei mit Demodaten zur Verfügung zustellen?

Bis bald...
Thomas
  Mit Zitat antworten Zitat
venice2
(Gast)

n/a Beiträge
 
#3

AW: Json unbekanntes feld abfangen

  Alt 15. Dez 2020, 18:42
Wäre es auch möglich, eine JSON-Datei mit Demodaten zur Verfügung zustellen?

Bis bald...
Thomas
Edit:
Entfernt im nächsten Beitrag enthalten.

Geändert von venice2 (15. Dez 2020 um 20:01 Uhr)
  Mit Zitat antworten Zitat
venice2
(Gast)

n/a Beiträge
 
#4

AW: Json unbekanntes feld abfangen

  Alt 15. Dez 2020, 19:57
Kleines Test Projekt.
Versucht nur die *.json zu lesen. (Der Rest wurde kommentiert)

Geändert von venice2 (17. Dez 2020 um 12:15 Uhr)
  Mit Zitat antworten Zitat
mytbo

Registriert seit: 8. Jan 2007
483 Beiträge
 
#5

AW: Json unbekanntes feld abfangen

  Alt 15. Dez 2020, 21:12
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
  Mit Zitat antworten Zitat
venice2
(Gast)

n/a Beiträge
 
#6

AW: Json unbekanntes feld abfangen

  Alt 15. Dez 2020, 21:14
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
Und damit funktioniert es?
Wie ich schon sagte mit meiner nicht.

EDIT:
Denke nicht das ich das mache alleine die SynCommons.pas ist 3x mal so groß wie meine EXE selbst.
Wenn es mit meiner Json nicht geht dann lasse ich es muss nicht unbedingt EPG Daten haben.

Geändert von venice2 (16. Dez 2020 um 16:27 Uhr)
  Mit Zitat antworten Zitat
mytbo

Registriert seit: 8. Jan 2007
483 Beiträge
 
#7

AW: Json unbekanntes feld abfangen

  Alt 15. Dez 2020, 21:25
Ja! mORMot verwendet JSON sehr intensiv. DocVariants sind nur eine Variante mit JSON komfortabel zu arbeiten. Früher habe ich auch SuperObject verwendet. Seit es mORMot gibt, nie mehr etwas anderes.

Bis bald...
Thomas
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:29 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz