Mostrar imagen que viene en Base64
 

Hola amigos.
En una aplicación tengo que mostrar en un TImage un avatar que me llega codificado en Base64.
Uso una unit (Base64.pas) que copie de alguien del foro y el codigo que utilizo es el siguiente:

Pero me muestra el TImage en blanco, este es el string sAvatar:

Alguien me podria dar una mano con esto?
Gracias

Hola,

¿Y como pretendes que te ayudemos si no indicas siquiera el hilo o el usuario que aportó dicha unidad?
Vaya uno a saber que %$&@# hace esa unidad realmente y en como funciona. Aportá más información porque así como está la cosa, no queda otra que ir a por las bolas de cristales.

Saludos,

En este enlace esta la unit
http://www.clubdelphi.com/foros/show...ghlight=base64

No lo entiendo. Si lo que te llega es un string codificado en Base64, tendrás que decodificarlo para poder mostrarlo ¿no?
Imagino que esa unit (que estoy con Delphius en que nos deberías dar más información sobre ella) podrá codificar y decodificar.

Decodifica primero la imagen y luego muestrala.
Para comprobarlo puedes grabarla entre medio a disco y comprobar que graba algo correcto. Lo digo porque yo he intentado decodificar el String que me has pasado y el fichero resultante no parece ser una imagen.

La prueba. Por ejemplo he aquí una imagen codificada en Base64:

Si usas cualquier Decodificador online con esta cadena:

http://www.opinionatedgeek.com/dotne.../base64decode/
http://www.motobit.com/util/base64-decoder-encoder.asp
http://webnet77.com/cgi-bin/helpers/base-64.pl
...

Verás que el resultante es un fichero que si renombras a JPG es la imagen inicial (mi avatar).

Yo intento esto con la cadena que tú me has pasado y no nada que se parezca a una imagen.
:confused::confused::confused:

Pues he probado la Unit de Domingo Seoane y funciona perfectamente.
Puedes poner en un form, un Memo y un TImage y un par de botones con este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TMemoryStream;
  Texto: String;
begin
  Stream:= TMemoryStream.Create;
  try
    Stream.LoadFromFile('r:\Neftali.jpg');
    Texto:= BinToStr(Stream.Memory,Stream.Size);
    Memo1.Lines.Text := Texto;
  finally
    Stream.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 Stream: TFileStream;
begin
  Stream:= TFileStream.Create('r:\imagen1.jpg',fmCreate);
  try
    StrToStream(Memo1.Lines.Text,Stream);
  finally
    Stream.Free;
   end;
  Image1.Picture.LoadFromFile('r:\imagen1.jpg');
end;

Añade la unit JPEG al use y funciona perfectamente.



Un saludo.

Es cierto Neftali, probe en mi programa con tu avatar y lo muestra correcto, entonces el problema esta en el string que estoy recibiendo.
Muchas gracias.

Creo que sí. :o

Un saludo.