Leer archivo JSON
 

buenas tardes

tengo algunos problemas para implementar esto

he leido algunas rutinas para leer la cadena JSON, pero lo que no encuentro es ver la forma de abrir un archivo con informacion en formato JSON y parsearla

alguien me ayuda con esto?

basicamente es un archivo de texto (JSON) quiero parsearlo

ya pude hacerlo, abrir el archivo y lo puse en un Memo y de ahi lo parseo
pero tengo un problema con la estructura del JSON

al parecer hay 2 niveles

plain_orders_USER_mobile_number_13 -> identifica a la persona
products -> empieza el bloque de la informacion que necesito

la idea es que la persona, tiene un listado de productos para una fecha determinada

tengo este codigo

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  JSo :  TJSONObject;
  JSOarray : TJSONArray;
  JSOValue: TJSONValue;
  remitente, destinatario, mensaje, estado : string;
begin
      JSOarray := TJSONObject.ParseJSONValue(Memo1.Text) as TJSONArray;
      for JSOValue in JSOarray do
      begin
        JSo := TJSONObject.ParseJSONValue(JSOValue.ToJSON) as TJSONObject;
        remitente :=  JSo.Values['category'].ToString;
        destinatario :=  JSo.Values['name'].ToString;
        Memo2.Lines.Add( remitente + '   ' + destinatario );  esto es para efectos de mostrar la informacion
      end;
end;

pero no me esta jalando la informacion porque al parecer no le estoy diciendo de donde sacarlo (Cliente), no se si alguien me puede entender

buenas tardes

como podria parsear un json con esta estructura

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  JSo :  TJSONObject;
  JSOarray : TJSONArray;
  JSOValue: TJSONValue;
  remitente, destinatario, mensaje, estado : string;
begin
      JSOarray := TJSONObject.ParseJSONValue(Memo1.Text) as TJSONArray;
      for JSOValue in JSOarray do
      begin
        JSo := TJSONObject.ParseJSONValue(JSOValue.ToJSON) as TJSONObject;
        remitente :=  JSo.Values['category'].ToString;
        destinatario :=  JSo.Values['name'].ToString;
        Memo2.Lines.Add( remitente + '   ' + destinatario );  esto es para efectos de mostrar la informacion
      end;
end;

con este codigo puedo obtener los datos pero solo si el archivo fuera asi


me darias una mano con esto por favor?

Disculpa, pregunto para tener claro si lo he entendido:


Tienes una lista de objetos "cliente".
Cada cliente a su vez tiene una lista de objetos productos.
Cada producto tiene a su vez una lista de clave-valor para categoría, nombre y hora.
Es decir por lo que veo en tu ejemplo el json que cargas te pueden venir n clientes con m productos cada uno.


¿Todo esto es cierto?

Debes acceder al contenido del array de productos

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  i, j: Integer;
  MainArray: TJSONArray;
  MainItem: TJSONObject;
  Products: TJSONArray;
  ProdItem: TJSONObject;
begin
  MainArray := TJSONObject.ParseJSONValue(Memo1.Lines.Text) as TJSONArray;
  for i := 0 to MainArray.Count - 1 do
  begin
    MainItem := TJSONObject.ParseJSONValue(MainArray.Items[i].ToJSON) as TJSONObject;
    Memo2.Lines.Add(Format('%d - plain_orders_USER_mobile_number_13: ',
      [i+1, MainItem.Values['plain_orders_USER_mobile_number_13'].ToString]));

    if Assigned(MainItem.GetValue('products')) then
    begin
      Products := MainItem.GetValue('products') as TJSONArray;
      for j := 0 to Products.count - 1 do
      begin
        ProdItem := TJSONObject.ParseJSONValue(Products.Items[j].ToJSON) as TJSONObject;
        Memo2.Lines.Add(Format('Product: %d:%d - Category: %s - Name: %s - Event-Time: %s',
          [i+1, j+1, ProdItem.Values['category'].ToString, ProdItem.Values['name'].ToString,
           ProdItem.Values['Event-Time'].ToString]));
      end;
    end;
  end;
end;

movorack, simplemente me salvaste la vida....

pero hay algo que me falta

tengo que capturar el dato del cliente, por ejemplo en la primera linea el dato a obtener es. "3242342342342"

muchas gracias

asi es

existe un cliente, dentro un identificador de productos y dentro la relacion de fechas, productos y categorias

Diría que movorack ya te ha contestado pero es posible que faltara solo un detalle:

Código Delphi [-]
Memo2.Lines.Add(Format('%d - plain_orders_USER_mobile_number_13: %s',        
[i+1, MainItem.Values['plain_orders_USER_mobile_number_13'].ToString]));