Guardar imagenes en postgresql

[radenf]

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