MarioATamborini
12-11-2004, 20:21:30
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
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