Cargar una Imagen base64 en un Timage

[[movorack]]

Hola, ya que especificas que el formato es JPEG. puedes cargar la foto a un TJPEGImage

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

procedure TForm1.VerFoto(Foto: TArray< System.Byte >; Image: TImage);
  var
    JPEGImage: TJPEGImage;
    AStringStream: TStringStream;
begin
  AStringStream := TStringStream.Create(StringOf(Foto));
  JPEGImage := TJPEGImage.Create;
  try
    AStringStream.Position := 0;
    JPEGImage.LoadFromStream(AStringStream);
    Image.Picture.Assign(JPEGImage);
  finally
    JPEGImage.Free;
    AStringStream.Free;
  end;
end;

[[ElKurgan]]

Es que en el mismo ejemplo, un poco más abajo, viene como CARGAR la imagen, y no como GUARDARLA.

Lo hacen exactamente como te ha indicado movorack, es decir, creando un STRINGSTREAM a partir de la foto y luego cargando la imagen con LoadFromStream(elStringStream).

Piensa que el WebService te devuelve bytes que puedes cargar en un StringStream sin problemas. En el ejemplo serían las líneas:

Código Delphi [-]
DecodedBase64 := IdDecoderMIME1.DecodeString(ABase64);
AStringStream := TStringStream.Create(DecodedBase64);
try
  AStringStream.Position := 0;
  imBase64.Picture.Bitmap.LoadFromStream(AStringStream);
finally
  AStringStream.Free;
end;

Un saludo

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

[darkamerico]

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