Зигрузка картинок в БД из под делфи

[BastAngel]

Как можно загрузить картинки в БД (Access) работая в делфи?

[i_Alishka]

procedure TForml.OpenImageFromFileButtonClick(Sender: TObject); 

begin 
  if OpenDialog1.Execute then 
   begin 
     ADOTable1.Edit; 
     ADOTable1lmage.LoadFromFile(OpenDialogl.FileName); 
     ADOTable1.Post; 
     end; 
 end;

а когда создаешь базу то в таблице надо создать поле под бинарные данные,
например поле Image-тип данных (поле объекта OLE)

[BastAngel]

ADOTable1lmage <==== вот это что? не могу понять просто.

[BastAngel]

И да как указать поле в которое мы хотим загрузить картинку? У меня поле в таблице называется "Фото"

[BastAngel]

Я нашел такой код.

if OPD.Execute then Exit;
DM.MenuTable.Edit;
TBlobField(DM.MenuTable.FieldByName('Ôîòî')).LoadFile(OPD.FileName);
DM.MenuTable.Post;

Но та TBlobField ругается пишет что

[Error] Unit1.pas(51): Undeclared identifier: 'TBlobField'

[i_Alishka]

ADOTable1lmage это название поля. сначала в таблице задай для ФОТО-тип данных (поле объекта OLE). открой ADOTable кликнув по нему два раза, появится маленькое окошко, в нем кликни правой кнопкой мыши и выбери пункт 'Add all fields' у тебя появиться список названий полей, там уже выбираешь поле ФОТО и в объектном инспектре смотришь в поле Name там будет что то вроде 'ADOTable1DSDesigner2' или 'ADOTable1имя поля'

[i_Alishka]

попробуй мой вариант он 100% работает, я его из книги выписал я сам только только начинаю программировать, кстати через этот код можно добавить только изображения с расширением BMP