Guardar imagen en campo Blob (tabla en access)
 

Hola! tengo el siguiente problema, tengo que dar el alta de un producto el cual tiene Titulo, descripcion_producto y foto. El unico problema que tengo es el de subir la foto al campo 'foto'. En dicho formulario de alta de producto tengo los edits para el titulo y la descripcion_producto y un DBImage para subir la foto (con un openPictureDialog), lo que necesito es GUARDAR LA FOTO EN LA BASE DE DATOS, NO LA RUTA DE ACCESO A LA FOTO. Los tabla en access se actualizaria al hacer click en un boton de mi formulario llamado "Publicar".

Me podrian dar una mano? ya que estoy intentando hace varios dias ya y no logro encontrar la solucion. Busque info en google y en el foro pero no di con alguna solucion parecida.

Espero sus respuestas! MUCHISIMAS GRACIAS!!

Hola Daniel.

Código Delphi [-]
procedure BitmapToBlobField(Image: TImage; Field: TField);
var
  Stream: TStream;
begin
  Stream := TMemoryStream.Create;
  try
    Image.Picture.Bitmap.SaveToStream(Stream);
    Stream.Seek(0, soFromBeginning);
    TBlobField(Field).LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    with tu_DataSet do
    begin
      Edit;
      BitmapToBlobField(Image1, FieldByName('IMAGEN'));
      //...
      Post;
    end;
  end;
end;

Saludos :)