Desconozco si puede usarse directamente un TDBImage. Haciendo unas pruebas en FireBird he podido guardar y leer iconos pero mostrándolos en un TImage.
Para guardar un icono:
Código Delphi
[-]
var
Stream: TMemoryStream;
begin
if OpenPictureDialog1.Execute then
begin
Image1.Picture.Icon.LoadFromFile(OpenPictureDialog1.FileName);
Stream := TMemoryStream.Create;
try
Image1.Picture.Icon.SaveToStream(Stream);
Taula.Append;
TaulaIMAGEN.LoadFromStream(Stream);
Taula.Post;
finally
Stream.Free;
end;
end;
end;
Para cargar el icono uso el evento AfterScroll de Taula:
Código Delphi
[-]
var
Stream: TMemoryStream;
begin
Stream := TMemoryStream.Create;
try
TaulaIMAGEN.SaveToStream(Stream);
Stream.Seek(0, soFromBeginning);
Image1.Picture.Icon.LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
// Saludos