Cita:
Empezado por movorack
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;
|
Quiero agradecer individualmente a todos los que aportaron para dar esta solución, un abrazo.
Atte,
Americo Torres