ElDuc
26-01-2011, 10:38:50
Hola a todos,
Estoy liado con un pequeño programa y necesito guardar/recuperar una imagen en un campo de una DB.
Por el momento he creado una Db Access (sólo para pruebas) en la que he creado una tabla que tiene 3 campos:
Id - Autoincremantal - Id del registro
Name - String - Nombre del registro (imagen)
Image - Objeto OLE - Para guardar la imagenEl el programa he definido un objeto Q:=TAdoQuery que enlazo con la tabla comentada.
...
Q.Open;
Q.Insert;
Q.FieldValues['Name']:='Nombre_1';
*** Q.FieldValues['Image']:=MyImage; (Objeto TPicture en el que está la imagen)
Q.Post.
...
Al compilar, en la línea (***) me da el siguiente error:
Incompatible types: 'Variant' and 'TPicture'
Es evidente que no lo esoy haciendo bien.
Por favor, ¿podéis ayudarme?
Gracias de antemano.
Estoy liado con un pequeño programa y necesito guardar/recuperar una imagen en un campo de una DB.
Por el momento he creado una Db Access (sólo para pruebas) en la que he creado una tabla que tiene 3 campos:
Id - Autoincremantal - Id del registro
Name - String - Nombre del registro (imagen)
Image - Objeto OLE - Para guardar la imagenEl el programa he definido un objeto Q:=TAdoQuery que enlazo con la tabla comentada.
...
Q.Open;
Q.Insert;
Q.FieldValues['Name']:='Nombre_1';
*** Q.FieldValues['Image']:=MyImage; (Objeto TPicture en el que está la imagen)
Q.Post.
...
Al compilar, en la línea (***) me da el siguiente error:
Incompatible types: 'Variant' and 'TPicture'
Es evidente que no lo esoy haciendo bien.
Por favor, ¿podéis ayudarme?
Gracias de antemano.