Crear objeto json
 

Hola, alguien conoce el manejo o construcción de objetos json con delphi Tokio. Hice el ejemplo con tjsonobjectbuilder, puedo mostrar el texto en un memo, pero no se como enviar ese contenido como objeto json. La idea es armar el objeto json a un web service Rest.

Es identico a mandar un string.

Gracias por responder. El caso es que el web service me pide un objeto json. Ya realice el ejemplo con el jsonobjectbuilder, y el contenido del json lo muestro en un memo. Entonces la cuestión es como hago para construir el objeto json para enviarlo en uno de los parámetros del web service Rest.

"Objeto json" no existe en delphi. Solo en javascript. Asi que lo mandas como texto. Ya probaste?

Voy a hacer la prueba, este es el código con el que hice el ejemplo:

Código Delphi [-]
procedure TFrmPrincipal.BtnCrearFacturaClick(Sender: TObject);
var
  stringWriter : TStringWriter;
  writer : TJsonTextWriter;
  builder : TjsonObjectBuilder;
  vJsonObject : TJSONObject;
begin
  stringWriter := TStringWriter.Create;
  writer := TJsonTextWriter.Create(stringWriter);
  builder := TJSONObjectBuilder.Create(writer);
  vJsonObject := TJSONObject.Create();
  writer.Formatting := TJsonFormatting.Indented;
  builder
  .BeginObject
    .BeginArray('Stocks')
      .BeginObject
        .Add('Symbol', 'ACME')
        .Add('price', '75.5')
      .EndObject
      .BeginObject
        .Add('Symbol', 'COOL')
        .Add('price', '21.7')
      .EndObject
    .EndArray
  .EndObject;
  Memo2.Lines.Clear;
  Memo2.Lines.Add(stringWriter.ToString);
end;

Si un parámetro es el Json lo haría creando una variable de tipo widestring y le entrego lo que contiene stringWriter.ToString
La pregunta la hago para saber como puedo separar los procesos, uno de ellos debería ser (armarFactura), donde se armaría la factura con la estructura Json, esta función devolvería un widestring.

Gracias!