по поводу изображений в БД

[IceExecutioner]

Всем доброго времени суток. У меня есть БД на Access в нём имеется поле ('Картинка') в котором загружено изображение формата bmp. Требуется вытащить его от туда и поместить в Image1. Я пробовал разными способами на всегда вылазиет ошибка
Bitmap image is not valid
помогите разобраться в чём дело.
Способы которым я пытался сделать это:
1)

Image1.Picture.Assign(frDM.ADOQuery1.FieldByName('Картинка'))

2)

var
ImgStream:TMemoryStream;
begin
frDM.ADOQuery1.Close;
frDM.ADOQuery1.SQL.Text:='SELECT * FROM Table1';
frDM.ADOQuery1.Open;
frDM.ADOQuery1.First;
ImgStream:=TMemoryStream.Create;
(frDM.ADOQuery1.FieldByName('Картинка') as TBlobField).SaveToStream(ImgStream);
ImgStream.Position:=0;
Image1.Visible:=True;
ImgStream.Free;

3)прикрутить dbimage к полю
Вот бд которую я использую http://slil.ru/27755503

[Баламут]

Так пишем картинку в БД

procedure TForm1.BtnSaveClick(Sender: TObject);
var
  jpg: TJPegImage;
  ms: TMemoryStream;
begin
   ADOTable1.Edit;
   ADOTable1.Append;
   jpg := TJpegImage.Create;
   jpg.Assign(Image1.Picture.Graphic);
   jpg.CompressionQuality := 20;
   jpg.Compress;
   ms := TMemoryStream.Create;
   jpg.SaveToStream(ms);
   (ADOTable1.FieldByName('aPic') as tBlobField).LoadFromStream(ms);
   ADOTable1.Post;
end;

Так читаем оттуда

procedure TForm1.BtnInsertImageClick(Sender: TObject);
var
  jpg: TJpegImage;
  ms: TStream;
begin
  jpg := TJpegImage.Create;
  ms := (ADOTable1.CreateBlobStream(TBlobField(ADOTable1aPic), bmRead));
  jpg.LoadFromStream(ms);
  Image1.Picture.Bitmap.Assign(jpg);
  jpg.Free;
  ms.Free;
end;

Здесь я привожу пример для случая с jpg. Думаю переделать это для bmp не составит большого труда. Хотя я бы не стал, ибо база начнет пухнуть с бешенной скоростью.

[ViNcHeStEr]

Запись картинки в базу
В Access поле Image имеет тип "Поле объекта OLE".
ADOTable1Image -> BlobType=ftBlob
Делаю всё как написано, но ругается на эту строчку:

(dm.ADOTable1.FieldByName('Image') as tBlobField).LoadFromStream(ms);

а конкретно на tBlobField.
=================
Ещё пытался сделать так, но в базу ничего не записывает:

dm.ADOTable1Image.LoadFromStream(ms);

Подскажите как сделать правильно.

[mihali4]

Попробуйте для сохранения мой способ:

procedure TFMain.BitBtn1Click(Sender: TObject);
begin
Clipboard.Assign(Image1.Picture);
FDM1.TKartFoto.BlobType:=ftBlob;
FDM1.TKart.Edit;
DBImage1.PasteFromClipboard;
FDM1.TKart.Post;
FDM1.TKart.Refresh;
DBImage1.Repaint;
end;

и почитайте на форуме про работу с блобами (поиск вам поможет).