Mostrar imagen que viene en Base64

[Neftali [Germán.Estévez]]

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.

[jars]

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.

[Neftali [Germán.Estévez]]

Creo que sí.

Un saludo.