Bitmap a texto y texto a bitmap

[jachguate]

Empezado por kotai

Primero he estado mirando los componentes de Indy, pero no acabo de aclararme y no he encontrado ningún ejemplo.

Básicamente, creas una instancia del Encoder/Decoder y luego llamás al método correspondiente (Encode que recibe un stream y devuelve un string y Decode que recibe un string y devuelve un stream).

Pero si te vale lo de seoane, creo que puede resultar mas simple, aunque menos orientado a objetos

Empezado por kotai

Luego he probado las funciones de seoane, que es justo lo que buscaba, pero tengo un problema al recuperar el TBitmap desde el stream.

Esto lo digo sin probarlo, pero se me ocurre que quizás Picture no esté preparado para que el bitmap contenido en ella se lea desde un stream.

Probá con esto:

Código Delphi [-]
  Stream1 := TMemoryStream.Create;
  Image1.Picture.Bitmap.SaveToStream(Stream1);
  Texto:= BinToStr(Stream1.Memory,Stream1.Size);
  Stream2 := TMemoryStream.Create;
  StrToStream(Texto,Stream2);
  Bitmap1 := TBitmap.Create();
  try   
    Bitmap1.LoadFromStream(Stream2);
    Image2.Picture := Bitmap1;
  finally
    Bitmap1.Free;
  end;

Hasta luego.