Guardar imagen en campo Blob (tabla en access)

[ecfisa]

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