delphi json

JSON PARSER para Delphi

¿Por qué?

No me gustaron los otros analizadores de Delphi JSON. Parecían demasiado complicados para la simple tarea que tenía para JSON.

Así que esta es mi oportunidad.

Esta versión solo se prueba en Delphi XE 3, Delphi XE 6 (Android) y Delphi 10, pero debería funcionar para todas las versiones de Delphi que admiten Generics y TStringhelper.

Qué está faltando

• Excepción si el texto JSON no es válido.
• Convertir a cadena
• Serialización y deserialización de/a objetos.

Ejemplos

Solo incluya el archivo djson.pas en su lista de usos para que esto funcione.

Ejemplo 1 - Usuario

Json

{
  "username" : " thomas " ,
  "name" : " Thomas " ,
  "photos" : [
    {
      "title" : " Photo 1 " ,
      "urls" : {
        "small" : " http://example.com/photo1_small.jpg " ,
        "large" : " http://example.com/photo1_large.jpg "
      }
    },
    {
      "title" : " Photo 2 " ,
      "urls" : {
        "small" : " http://example.com/photo2_small.jpg " ,
        "large" : " http://example.com/photo2_large.jpg "
      }
    }
  ],
  "int_list" : [
    1 ,
    2 ,
    3
  ]
}

Delfi

 var
  user: TdJSON;
  photo: TdJSON;
  i: TdJSON;
begin
  user := TdJSON.parse( { JSON_TEXT } );
  try
    writeln( ' Username: ' + user[ ' username ' ].AsString);
    writeln( ' Name: ' + user[ ' name ' ].AsString);
    // Photos
    for photo in user[ ' photos ' ] do
    begin
      writeln( ' Title: ' + photo[ ' title ' ].AsString);
      writeln( ' Small url: ' + photo[ ' urls ' ][ ' small ' ].AsString);
      writeln( ' Large url: ' + photo[ ' urls ' ][ ' large ' ].AsString);
    end ;

    // Int list
    for i in user[ ' int_list ' ] do
    begin
      writeln(i.AsInteger);
    end ;
  finally
    user.free;
  end ;
end ;

Ejemplo 2 - Lista de usuarios

Json

[
  {
    "username" : " thomas " ,
    "name" : " Thomas "
  },
  {
    "username" : " kurt " ,
    "name" : " Kurt "
  },
  {
    "username" : " bent " ,
    "name" : null
  }
]

Delfi

 var
  users: TdJSON;
  user: TdJSON;
begin
  users := TdJSON.Parse( { JSON_TEXT } );
  try
    for user in users do
    begin
      writeln(user[ ' username ' ].AsString);
      if ( not user[ ' name ' ].IsNull) then
        writeln(user[ ' name ' ].AsString);
    end ;
  finally
    users.Free;
  end ;
end ;

LICENCIA

La licencia del MIT (MIT)

Copyright (c) 2018 Thomas Erlang

El permiso se otorga, de forma gratuita, a cualquier persona que obtenga una copia de este software y archivos de documentación asociados (el "software"), para tratar en el software sin restricción, incluidos los derechos de los derechos de usar, copiar, modificar, fusionar, publicar, distribuir, sublicense y/o vender copias del software, y para permitir que las personas a quienes se les proporciona el software para hacer, sujeto a las siguientes condiciones: las siguientes condiciones: las siguientes condiciones: las siguientes condiciones:

El aviso de derechos de autor anterior y este aviso de permiso se incluirán en todas las copias o porciones sustanciales del software.

El software se proporciona "tal cual", sin garantía de ningún tipo, expresa o implícita, incluidas, entre otros, las garantías de comerciabilidad, idoneidad para un propósito particular y no infracción. En ningún caso los autores o titulares de derechos de autor serán responsables de cualquier reclamo, daños u otra responsabilidad, ya sea en una acción de contrato, agravio o de otra manera, que surge, de o en relación con el software o el uso u otros tratos en el software.