Almacenamiento de Iágenes en Base de Datos

[apicito]

Utilizo Firebird 1.00 con componentes de acceso IBO 4. Estoy utilizando el siguiente procedimiento para cargar y visualizar las imagenes:

PARA CARGAR:
procedure TExp700.BotonCargar(Sender: TObject);
var
Jpg: TJpegImage;
Stream: TMemoryStream;
FileExt: string;
GraphType: TGraphType;
begin
if OpenPicture.Execute then
begin
Jpg := nil;
Stream := nil;
try
Stream := TMemoryStream.Create;
FileExt := LowerCase(ExtractFileExt(OpenPicture.FileName));
if (FileExt = '.bmp') or (FileExt = '.dib') then
begin
GraphType := gtBitmap;
Stream.Write(GraphType, 1);
with Imagen.Picture.Bitmap do
begin
LoadFromFile(OpenPicture.FileName);
Imagen.Picture.Bitmap.SaveToStream(Stream);
end;
end
else if (FileExt = '.ico') then
begin
GraphType := gtIcon;
Stream.Write(GraphType, 1);
with Imagen.Picture.Icon do
begin
LoadFromFile(OpenPicture.FileName);
Imagen.Picture.Bitmap.SaveToStream(Stream);
end;
end
else if (FileExt = '.emf') or (FileExt = '.wmf') then
begin
GraphType := gtMetafile;
Stream.Write(GraphType, 1);
with Imagen.Picture.Metafile do
begin
LoadFromFile(OpenPicture.FileName);
Imagen.Picture.Bitmap.SaveToStream(Stream);
end;
end
else if (FileExt = '.jpg') or (FileExt = '.jpeg') or (FileExt = '.jpe') then
begin
Jpg := TJpegImage.Create;
Jpg.LoadFromFile(OpenPicture.FileName);
Imagen.Picture.Assign(Jpg);
GraphType := gtJpeg;
Stream.Write(GraphType, 1);
Jpg.SaveToStream(Stream);
end;
Stream.Position := 0;
TBlobField(QueryTra.FieldByName('EXPTRA_TEXTO')).LoadFromStream(Stream);
except
jpg.Free;
Stream.Free;
raise;
end;
jpg.Free;
Stream.Free;
end;
end;

PARA VISULIZAR

procedure TExp700.QueryTraAfterScroll(DataSet: TDataSet);
var
Stream: TMemoryStream;
Jpg: TJpegImage;
GraphType: TGraphType;
begin inherited;
Jpg := nil;
Stream := nil;
try
Stream := TMemoryStream.Create;
TBlobField(QueryTra.FieldByName('EXPTRA_TEXTO')).SaveToStream(Stream);
if Stream.Size > 0 then
begin
Stream.Position := 0;
Stream.Read(GraphType, 1);
case GraphType of
gtBitmap: Imagen.Picture.Bitmap.LoadFromStream(Stream);
gtIcon: Imagen.Picture.Icon.LoadFromStream(Stream);
gtMetafile: Imagen.Picture.Metafile.LoadFromStream(Stream);
gtJpeg:
begin
Jpg := TJpegImage.Create;
Jpg.LoadFromStream(Stream);
Imagen.Picture.Assign(Jpg);
end
else
Imagen.Picture.Assign(nil);
end;
end
else
Imagen.Picture.Assign(nil);
except
Showmessage('Non se poido');
Imagen.Picture.Assign(nil);
end;
jpg.Free;
Stream.Free;
end;

El procedimiento de carga funciona correctamente pero el de visualización no carga la imagen en "Imagen", que es un TImage. Llevo todo el día dandole vueltas y no consigo ver que es lo que falla. Me queda la sospecha de que este procedimiento solo funcione con el BDE, ya que en algún sitio he leido algo al respecto.
Alguien puede ayudarme?

[guillotmarc]

Hola.

Yo lo hago de forma similar con dbExpress y no tengo problemas. Por lo que no es que solo funcione con BDE. Además debería funcionar correctamente con IBO también, pero no puedo probarlo.

Comprueba con el depurador que se ejecuta correctamente todo el código, y si te sale algún error, dínos cual es y quizá te podamos ayudar.

Saludos.

[apicito]

Gracias por la respuesta pero ya tomé otro camino. Me pase una mañana entera intentando hacer funcionar esto y no hubo manera. Decidí comprar un componente (KDImage 59€) que además de automatizar esto permite retocar la imagen, girarla, etc..
En ocasiones los problemas son los que te llevan a las mejores soluciones.
Gracias de nuevo.