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 imagen
El el programa he definido un objeto Q:=TAdoQuery que enlazo con la tabla comentada.
Código Delphi
[-]
...
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.