Bitmap a texto y texto a bitmap

[jachguate]

El editor de formularios de delphi almacena una representación hexadecimal de los datos del componente (propiedad data). Podrías hacer lo mismo, o también usar un codificador/decodificador como los que vienen con las INDY, que hacen justamente eso. Representan cualqueir objeto binario en texto y lo inverso.

Estos métodos se inventaron para transmitir datos binarios sobre protocolos basados en texto, como el caso de SMTP (envío de correos) y se siguen utilizando hoy en día.

TidEncoderMIME/TidDecoderMIME (base64)
TidEncoderUUE/TidDecoderUUE
TidEncoderQuotedPrintable/TidDecoderQuotedPrintable

Cito la ayuda de la clase base para estos componentes, TidEncoder

Empezado por indy help

Declaration
TIdEncoder = class(TIdBaseComponent)
Summary
Ancestor for Indy encoder classes.
Description
TIdEncoder is a TIdBaseComponent descendant that is the ancestor for Indy classes that perform encoding operations on String- or Stream-based values, and returns the encoded value as a String value.

Hasta luego.

[[seoane]]

Ademas de lo dicho por jachguate puedes usar las funciones que describo aqui:

http://delphi.jmrds.com/?q=node/43

Con ellas podrás convertir un Stream en un String y luego hacer el proceso inverso, y junto con los métodos SaveToStream y LoadFromStream del TBitmap son todo lo que necesitas.

[kotai]

Gracias a los dos por contestar.

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

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

He hecho una prueba rápida:

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

Inicialmente las dos imágenes (TImage) tienen cargada una imagen del mismo tamaño y formato, pero son distintas, para ver si me copia el contenido de la imagen1 en la imagen2. Cuando lo pruebo la imagen2 se queda vacia, transparente.

El problema está en el Image2.Picture.Bitmap.LoadFromStream() porque he probado a cargar el stream1 y me pasa el mismo problema.

¿Hay que preparar el TBitmap o el TImage de alguna manera para que cargue bien desde el stream ?

Una vez cargada la imagen desde el strem he porbado a hacer un Image2.Rapaint, Image2.Update... pero sigue transparente.

Saludos

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

[[seoane]]

Empezado por jachguate

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

Hago lo que puedo

Por otro lado, antes del LoadFromStream nunca viene mal colocar la posición del stream a cero:

Código Delphi [-]
Stream2.Position:= 0;

Por lo demás, la solución de jachguate me parece impecable.

[jachguate]

ah.. claro está. Supongo que todos agarran el stream de la posición donde se encontraba, que seguramente es la última.

Como sugerencia... creo que el obligado a dejar el stream en la primera posición es la función StrToStream. No imagino un caso donde la llames y no querrás que el stream esté al inicio. Si lo hay, será la excepción de la regla.

Hasta luego.

[[seoane]]

Empezado por jachguate

ah.. claro está. Supongo que todos agarran el stream de la posición donde se encontraba, que seguramente es la última.

Así es, de hecho, si juntas en un mismo stream varios bitmaps luego los puedes leer uno a uno con LoadFromStream (aquí un ejemplo)

Empezado por jachguate

Como sugerencia... creo que el obligado a dejar el stream en la primera posición es la función StrToStream. No imagino un caso donde la llames y no querrás que el stream esté al inicio. Si lo hay, será la excepción de la regla.

No me gustan las funciones que toman decisiones por mi . Y además, a mi si que se me ocurren ejemplos donde no quiero que el stream vuelva automáticamente al inicio, por ejemplo, si mando el bitmap en varios trozos y quiero juntarlos en el destino. Cuestión de gustos supongo