TJsonArray con corchetes de más

[roman]

Ni idea. Pero más que pensar que te está insertando corchetes extra piensa que te está devolviendo un arreglo cuya única entrada es el arreglo que esperas. Quizá así tengas más idea de porqué lo hace y en lugar de quitar los corchetes extra simplemente toma el primer elemento del arreglo devuelto que, como dije, será el arreglo que esperabas.

// Saludos

[jhonny]

Empezado por roman

Ni idea. Pero más que pensar que te está insertando corchetes extra piensa que te está devolviendo un arreglo cuya única entrada es el arreglo que esperas. Quizá así tengas más idea de porqué lo hace y en lugar de quitar los corchetes extra simplemente toma el primer elemento del arreglo devuelto que, como dije, será el arreglo que esperabas.

// Saludos

Roman, definitivamente sos grande . Gracias por la luz he podido verlo de manera diferente... de momento el cliente ha quedado así:

Código Delphi [-]
var
  vJArray: TJSONArray;
  vMemStream: TMemoryStream;
begin
  vMemStream := TMemoryStream.Create;
  try
    RESTRequest2.Execute;

    vJArray := TJSONObject.ParseJSONValue(vCadena) as TJSONArray;

    vMemStream.LoadFromStream(vMemStream.LoadFromStream
      (TDBXJSONTools.JSONToStream(TJSONArray(vJArray.Items[0]))); //Con esto convierto de TJSonArray a TStream el arreglo que se encontraba en la posición 0

    ImageViewer1.Bitmap.LoadFromStream(vMemStream);

  finally
    vMemStream.Free;
  end;
end;

Ahora, a ver en el server el asunto, gracias de nuevo.

[roman]

¡Qué bueno que te haya servido! Para mi, esto que pones es contra natura Todo el delphi actual lo es

De entrada, veo DBX. ¿Eso se refiere a DBExpress? Y, si es así, ¿por qué DBExpress implementa métodos para convertir streams a formato JSon?

// Saludos

[jhonny]

Empezado por roman

¡Qué bueno que te haya servido! Para mi, esto que pones es contra natura Todo el delphi actual lo es

Bueno, es que analizando el asunto gracias a lo que me has comentado, me doy cuenta que todo valor de tipo JSon, el server DataSnap, lo devuleve como si de un TJsonValue se tratara, encerrandolo por ende dentro de esos corchetes, entonces de ahora en adelante, no debo pretender recibir un Json puro, sino un Json puro dentro de un TJsonValue.

Empezado por roman

De entrada, veo DBX. ¿Eso se refiere a DBExpress? Y, si es así, ¿por qué DBExpress implementa métodos para convertir streams a formato JSon?

Bueno, es que en principio el DataSnap está basado en bibliotecas DBExpress, pero a medida del tiempo han ido vinculando todas estas funcionalidades de REST, por lo que han ido vinculando nuevas unidades expecificas para tal uso, pero en algunos casos como en este siguen en aquellas unidades, supongo que por simple referencia. Aunque es sólo mi apreciación, es muy probable que esté equivocado.

[roman]

Empezado por jhonny

Bueno, es que en principio el DataSnap está basado en bibliotecas DBExpress, pero a medida del tiempo han ido vinculando todas estas funcionalidades de REST, por lo que han ido vinculando nuevas unidades expecificas para tal uso, pero en algunos casos como en este siguen en aquellas unidades, supongo que por simple referencia. Aunque es sólo mi apreciación, es muy probable que esté equivocado.

Claro, DBExpress evolucionó a DataSnap. Pero a lo que voy es a esto:

Tanto JSon, como streams son cosas independientes de DataSnap. Entonces, ¿qué pitos toca DataSnap implementando estas conversiones? No es su tarea.

Es decir, las bibliotecas de Delphi se han convertido en mounstruos hacelo-todo

// Saludos

[jhonny]

Empezado por roman

Claro, DBExpress evolucionó a DataSnap. Pero a lo que voy es a esto:

Tanto JSon, como streams son cosas independientes de DataSnap. Entonces, ¿qué pitos toca DataSnap implementando estas conversiones? No es su tarea.

Es decir, las bibliotecas de Delphi se han convertido en mounstruos hacelo-todo

// Saludos

Bueno, los DBX implementan esas funciones para poder hacer conversiones entre JSon y sus respectivos valores, por ejemplo convertir un Arreglo Json a un DBXReader para luego poder leerlo como si se tratara de un DataSet (Nunca lo he hecho manualmente, pero supongo que así es). Entonces uno aprovecha que DBX tiene esas funciones para implementarlas en las demás cosas que necesita.

Empezado por mamcx

Oe, y no es mas logico devolver binarios usando base64??

Lo que es logico para unos, no es logico para los demás... en ese orden de ideas... ¿para ti, por qué es más logico?... ¿Compatibilidad, velocidad de transmisión, estandar, ninguna de las anteriores y/o todas las anteriores?, Delphi tiene sus funciones Encode y Decode en base 64, pero ya que no sé, ¿cual sería la razón logica para cambiar a binario base64?

[mamcx]

La razon es que ese es el medio mas usado para transmitir informacion binaria por http, y es un estándar en eso desde hace rato:

https://es.wikipedia.org/wiki/Base64

Ademas, estoy casi seguro (porque no se como seran tus datos ) que debe ser mas pesado pasar por cada integer que en base64 (u otro encoding especializado en binarios), y es mas "natural", osea, un valor=un binario.

Ahora si asi te da ok. Puede que con compresion salga bien...