La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  29506 - GRABAR IMAGEN EN BD ACCESS CON DEPHI 4
Autor:  Maria Alberto
si Alguien me pudiera ayudar a esto que ya encuentro casi
imposible. necesito grabar imagenes en una base de datos access con delphi 4.
  Respuesta:  Miguel Lucero
El siguiente código te sirve para grabar y recuperar una imagen en una base de datos. (Access o cualquier otra que acepte campos binarios)

// Grabar imagen
procedure TForm1.Button1Click(Sender: TObject);
var
Corriente:TMemoryStream;
begin
Corriente:=TMemoryStream.create;
Image1.Picture.Bitmap.SaveToStream(Corriente);
Corriente.Seek(0,soFromBeginning);
Table1.Append;
Table1Imagen.LoadFromStream(Corriente);
Table1.Post;
Corriente.Free;
end;

// Recuperar imagen
procedure TForm1.Button2Click(Sender: TObject);
var
Bitmap:TBitmap;
Corriente:TMemoryStream;
begin
Bitmap:=TBitmap.create;
Corriente:=TMemoryStream.create;
Table1Imagen.SaveToStream(Corriente);
Corriente.Seek(0,soFromBeginning);
Bitmap.LoadFromStream(Corriente);
Image1.Picture.Assign(Bitmap);
Corriente.Free;
Bitmap.Free;
end;