vmladino
08-10-2004, 00:56:33
Hola a todos,
Estoy capturando imagenes a traves de un componente TOpenPictureDialog y lo guardo en un campo BLOB de Oracle utilizando TStream, algo asi :
var
m, f: TStream; :cool:
begin
m := Table1.CreateBlobStream(Table1FOTO1, bmWrite);
f := TFileStream.Create(OpenPictureDialog1.filename, fmOpenRead);
m.CopyFrom(f, f.Size);
Hasta hay funciona bien, pero al recuperar la imagen (a traves del mismo TStream ) me la muestra con lo colores que no son (es decir el azul lo cambia por verde, blanco por amarilo etc).
Alguien me podria decir porque ..?
Gracias
Estuve leyendo dentro de los otros mensajes y a lo mejor copiando primero la imagen al Clipboard y luego pegandola al componente puede funcionar pero no encontre como pegar una imagen al Clipboard capturada desde un Stream ...?
Nuevamente gracias
Estoy capturando imagenes a traves de un componente TOpenPictureDialog y lo guardo en un campo BLOB de Oracle utilizando TStream, algo asi :
var
m, f: TStream; :cool:
begin
m := Table1.CreateBlobStream(Table1FOTO1, bmWrite);
f := TFileStream.Create(OpenPictureDialog1.filename, fmOpenRead);
m.CopyFrom(f, f.Size);
Hasta hay funciona bien, pero al recuperar la imagen (a traves del mismo TStream ) me la muestra con lo colores que no son (es decir el azul lo cambia por verde, blanco por amarilo etc).
Alguien me podria decir porque ..?
Gracias
Estuve leyendo dentro de los otros mensajes y a lo mejor copiando primero la imagen al Clipboard y luego pegandola al componente puede funcionar pero no encontre como pegar una imagen al Clipboard capturada desde un Stream ...?
Nuevamente gracias