Bitmap a texto y texto a bitmap

[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

[jachguate]

Empezado por seoane

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

Pues la función está tomando la decisión de dejarle en la última posición. Como dije en mi post anterior, creo que puede pensarse que es la excepción de la regla... aunque pensándolo bien... no hay reglas, puesto que no hay garantía alguna de que la función reciba un stream vacio..

Está bien, me has convencido... creo que simplemente vale aclararlo, por aquellos despistados (como yo) que puedan suponer lo contrario..

Hasta luego.

[kotai]

Perdón por tardar tanto en contestar, pero antes de la respuesta 5 ya lo tenía solucionado con lo de Position=0, pero cambié el email del foro porque tenía uno viejo y no me llegaban los avisos de respuesta y hasta hoy no me ha llegado el email de reactivación y por eso no podía escribir.

Mirando ejemplos de uso de stream vi lo de position=0 y al ponerlo todo funcionó a la perfeccción.

He enviado imágenes de otro tamaño a ver que pasaba y también lo coge perfectamente.

Muchas gracias a los dos por la ayuda.

Por cierto si queréis ver el juego es: www.miniracingonline.com y la función la quería para que al entrar a una partida si no tienes alguno de los coches de los otros jugadores se te envíe por el online.

Saludos.