Ver Mensaje Individual
  #7  
Antiguo 24-10-2020
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Reputación: 20
movorack Va camino a la famamovorack Va camino a la fama
Hola ElKurgan, yo hice la prueba antes de publicar la respuesta.

Con el TIdDecoderMIME, genera error al intentar cargar la imagen. No reconoce el formato que devuelve DecodeString.
En el ejemplo que le coloco, estoy usando StringOf para obtener el texto que devuelven del servicio.
Y uso el TJPEGImage para cargar el Stream y por ultimo este sea asignado al TImage



Ahora... al rato revisé y eliminé la asignación al TJPEGImage y "funciona", siempre y cuando en los uses esté la unidad JPEG

Código Delphi [-]
uses
  .. JPEG;

procedure TForm1.VerFoto(Foto: TArray< System.Byte >; Image: TImage);
  var
    AStringStream: TStringStream;
begin
  AStringStream := TStringStream.Create(StringOf(Foto));
  try
    AStringStream.Position := 0;
    Image.Picture.loadFromStream(AStringStream);
  finally
    AStringStream.Free;
  end;
end;
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita