Ver Mensaje Individual
  #5  
Antiguo 24-09-2018
alejozd alejozd is offline
Miembro
 
Registrado: jul 2010
Posts: 16
Reputación: 0
alejozd Va por buen camino
Cita:
Empezado por mamcx Ver Mensaje
"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!
Responder Con Cita