TJsonArray con corchetes de más

[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...

[jhonny]

Empezado por 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...

Hola, buenas noches, acabo de hacer el cambio para comparar el asunto, no sólo desde el tema de compatibilidad, sino también para ver cual de los 2 metodos me sirve más en cuanto a rendimiento y transmisión de dichos datos... bueno, como bien indicabas me he decidido por utilizar Base64, pues no consume tanto performance del server despues de todo, es más comprimido y además es más utilizado... acá pongo el código del server en Base64, por si a alguien más le sirve.

De hecho Embarcadero recomienda usar el método anterior (TDBXJSONTools.JSONToStream) únicamente en llamadas asincronas y si el flujo de información no es muy alto.

Código Delphi [-]
function TServerMethods.GetFileBase64: String;
var
  vStream: TStream;
  vStringStream: TStringStream;
  vBase64: TBase64Encoding;
begin
  vStream := TStream.Create;
  vStringStream := TStringStream.Create;
  try
    vStream := GetFileInterno; //Eso devuelve un TStream luego de comprimir el archivo en cuestión y hacer ciertas validaciones...

    vBase64 := TBase64Encoding.Create;
    vBase64.Encode(vStream, vStringStream);

    Result := vStringStream.DataString;
  finally
    vStream.Free;
    vStringStream.Free;
    vBase64.Free;
  end;
end;