delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله وبركاته

المشروع موجود على موقع

https://github.com/SchneiderInfosystems/FB4D

المشروع به مثال يحفظ البيانات في شكل تنسيق Json

[صورة: attachment.php?aid=4338]

ويمكن ذلك وبانشاء بيانات وعقد متداخلة ومعقدة وبسهولة

كود :
StringWriter := TStringWriter.Create();
  Writer := TJsonTextWriter.Create(StringWriter);
  Writer.Formatting := TJsonFormatting.None;

  // Start
  Writer.WriteStartObject;

  // Guid
  Writer.WritePropertyName('razao');
  Writer.WriteValue('softclass software ltda');

  // Data
  Writer.WritePropertyName('data');
  Writer.WriteValue('08/02/2017');

  // Hora
  Writer.WritePropertyName('hora');
  Writer.WriteValue('11:03');

  // Produtos
  Writer.WritePropertyName('Produtos');
  Writer.WriteStartArray;

  // Produto 01
  Writer.WriteStartObject;
  Writer.WritePropertyName('codigo');
  Writer.WriteValue('A502C9DA');
  Writer.WritePropertyName('descricao');
  Writer.WriteValue('AGUA MINERAL');
  Writer.WriteEndObject;

  // Produto 02
  Writer.WriteStartObject;
  Writer.WritePropertyName('codigo');
  Writer.WriteValue('A502C9DA');
  Writer.WritePropertyName('descricao');
  Writer.WriteValue('AGUA MINERAL');
  Writer.WriteEndObject;

  Writer.WriteEndArray;

  // Pagamentos
  Writer.WritePropertyName('Pagamentos');
  Writer.WriteStartArray;

  // Dinheiro
  Writer.WriteStartObject;
  Writer.WritePropertyName('dinheiro');
  Writer.WriteValue('100.00');
  Writer.WriteEndObject;

  Writer.WriteEndArray;

  // End
  Writer.WriteEndObject;

المشكلة الوحيدة هي ان المكتبة تعيد البيانات في شكل ملف Json كما بالشكل التالي

كود :
{"-MHQ9pNA6KC50rEOaa4i":{"Pagamentos":[{"dinheiro":"100.00"}],"Produtos":[{"codigo":"A502C9DA","descricao":"AGUA MINERAL"},{"codigo":"A502C9DA","descricao":"AGUA MINERAL"}],"data":"08\/02\/2017","hora":"11:03","razao":"softclass software ltda"}}

اذا احتجت مثلا الى قيمة حقل معين او مفتاح معين فيجب ان تقوم بهذا يدويا او البحث عن مكتبات اخرى تنظم هذه البيانات

ملاحظة لم يعمل المشروع بالتحميل العادي وانما فقط عن طريق تحميله ببرنامج GitHub Desktop

Delphi4Us