Cita:
Empezado por mamcx
"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!