Gráficos en una base de datos

[SnaKe]

Hola,

Yo manejo gráficos almacenados en la base de datos en formato JPG tanto en bases de datos Paradox como Interbase sin problemas, te cuento como lo hago:

El campo en que almacenes las imagenes ha de ser de tipo:

BD Paradox: Graphic
BD Interbase: BLOB

Para insertar en el campo la foto lo que hago es esto, en un botón que tengo de incorporar foto el codigo es este:

if (OpenDialog1.Execute) then begin
  if (Tabla.State <> dsBrowse) then
    Tabla.Edit;
  TablaFOTO.LoadFromFile (OD.FileName);
  Tabla.Post;
end;

OpenDialog1 es un control TOpenDialog.
Tabla es un TTable o TIBTable o lo que quieras asociado a la tabla de la BD.
TablaFOTO es el campo persistente en el que se almacena la foto.

Con eso ya cargas la foto en la BD, para mostrarla lo que hago es usar un control no enlazado a datos, en mi caso un TImage al que le pongo la propiedad Stretch a True y no es Autosize. Bien, como son imagenes JPEG incluyo entre los uses la unit JPEG.

En el evento OnScroll (creo que era este) del DataSet asociado a la tabla pongo este código:

var
  B   : TJPEGImage;
  MS : TMemoryStream;
begin
  B := TJPEGImage.Create;
  MS := TMemoryStream.Create;
  TablaFOTO.SaveToStream (MS);
  B.LoadFromStream (MS);
  Image1.Picture.Assign (B);
  MS.Free;
  B.Free;
end;

Puede que falten algunos controles o meter todo en try...except... pero bueno básicamente el funcionamiento es así.

Espero que te sirva.

Un saludo.