Ver Mensaje Individual
  #3  
Antiguo 08-10-2015
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: may 2003
Ubicación: Colombia
Posts: 7.058
Reputación: 30
jhonny Va camino a la famajhonny Va camino a la fama
Cita:
Empezado por roman Ver Mensaje
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.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/
Responder Con Cita