الاتصال بقواعد بيانات فايربيز من الدلفي

كود :

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;

كود :

{"-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"}}