Hola
morfeo21, hace un tiempo vi un componente donde almacenaban una imagen de una base de datos en un campo de tipo
TPicture. Para asignarlo sería algo como:
Código Delphi
[-]... Private ptipinv :integer; pcodart :string; pcodimg :integer; pdirimg :string; pimagen
:TPicture; pformato :Variant; ... Property imagen :tPicture read pimagen write pimagen; ... //Mas abajo a la hora de asignarlo if not(PArtImagen.Eof) then begin Articulo_imagen.tipinv := PArtImagen.FieldByName('tipinv').Value; Articulo_imagen.codart := PArtImagen.FieldByName('codart').Value; Articulo_imagen.codimg := PArtImagen.FieldByName('codesp').Value; Articulo_imagen.dirimg := PArtImagen.FieldByName('dirimg').Value;
Articulo_imagen.imagen.Assign(PArtImagen.FieldByName('imagen').Value); Articulo_imagen.formato :=PArtImagen.FieldByName('formato').Value; SW:=True; end;
Tambien tendrías que
crear y destruir ese objeto TPicture junto con tu componente. Pruébalo a ver si te funciona asi.