Estimado
ADAPRINC :
Utilizo el componente EDBImage de Sebastián Mayora (lo encuentras en la web y es gratuito), que conecto a la BD a través de un DataSource y le asigno un TPopupMenu, al cual en el menú contextual que usa el click derecho del mouse agrego el siguiente código:
Previamente mediante un TActionList he asignado los correspondientes DataSetEdit y DataSetRefresh.
Para incorporar la imagen en la BD
Código Delphi
[-]procedure Form1.MenuItem1Click(Sender: TObject);
begin
if DataSetEdit1.Execute then
if OpenPictureDialog1.Execute then
EDBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
DataSetRefresh1.Execute;
end;
Para eliminar la imagen de la BD
Código Delphi
[-]procedure Form1.MenuItem2Click(Sender: TObject);
begin
if Message1.MessageDlg('¿ Realmente desea eliminar esta Imagen ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
DataSetEdit1.Execute ;
EDBImage1.Field.Clear ;
DataSetRefresh1.Execute;
end;
end;
Espero haber podido ayudarte.
Salu2