Hola, Yo uso Fibplus, y lo hago mas o menos asi , me imagino que con TIBQuery , es muy parecido o casi igual
Código Delphi
[-] var FQry:TpFIBQuery; FFoto:TPicture; //.... //.... Begin //.... FFoto:=TPicture.Create; //.. //... if not ( FQry.FieldByName('FOTOGRAFIA').IsNull ) then Begin FFileName:= 'mi_archivo_jpg.jpg' ; FQry.FieldByName('FOTOGRAFIA').SaveToFile(FFileName); try try FFoto.LoadFromFile(FFileName); except on e:Exception do FFoto:=TPicture.Create; end; finally deletefile(FFileName); end; end; End //y ahora tienes un TPicture con la imagen de la base de datos ... //
Ahora puedes utilizar el TPicture para lo que quieras , por ejemplo mandarlo a un Stream y cargarlo
OleContainer.LoadFromStream(FMyStream....)