Cita:
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
Cita:
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.