сохранение Image в ADOTable

[Alexsandr]

Доброго времени суток!
Есть БД Access доступ организован через ADO, в ней таблица с полем img тип поля OLE, на Form1 лежит TImage1 c загруженой картинкой fly.bmp,как сохранить fly.bmp после рисования, в поле таблицы img и потом с таблицы загрузить в Image1?

[Stilet]

http://delphiworld.narod.ru/_all_articles_.html
Раздел BLOB поля - [19]

и потом с таблицы загрузить в Image1?

Поставь DBImage и настрой его на поле с картинкой - сам загрузит и покажет.

[Alexsandr]

Не работает т.к в DBImage нет св-ва Canvas, а мне надо внести изменения в картинку
закрасить область, и с изменениями сохранить в таблицу.

[vovk]

можно так
писать

  ADOQuery1.SQL.Text:=('insert into table_name(field_name1,field_name2,....,ole_field_name) values(:par_name1,:par_name2,......,:par_ole_name)');
     ADOQuery1.Parameters.ParamByName('par_name1').value:=value1;
     ADOQuery1.Parameters.ParamByName('par_name2').value:=value2;
...........
     ADOQuery1.Parameters.ParamByName('par_ole_name').Assign(Image.Picture.Bitmap);
     ADOQuery1.ExecSQL;

читать

Image.picture.Bitmap.Assign(TBlobField(ADOQuery1.FieldByName('ole_field_name')));

Это надо было?

[Alexsandr]

Да это. только как это организовать можно по подробней где это прописать и что делать в ADOQuery.

[vovk]

Что именно непонятно?
Там где добавляем данные всё вроде подробно..
Изменять в общем то также, только запрос Update

там где читаем из базы, читает текущую запись, переходите на нужную запись и читайте значение.

[Alexsandr]

Кидаю на форму ADOQuery1 и дальше что делать расскажите новичку.

[vovk]

Сообщение от Alexsandr

Доброго времени суток!
Есть БД Access доступ организован через ADO, в ней таблица с полем img тип поля OLE, на Form1 лежит TImage1 c загруженой картинкой fly.bmp,как сохранить fly.bmp после рисования, в поле таблицы img и потом с таблицы загрузить в Image1?

из этого складывается впечатление, что вы уже организовали как то запись и чтение данных из БД, и проблема только в чтением-добавлением графики в таблицу.
Из этого и исходил.

В общем давайте рассказывайте как вы работаете с БД, какие компоненты, как подключаетесь, хотя последнее (про то как подключаетесь) не обязательно.
Просто расскажите какие компоненты используете, и как добавляете записи.
Или лучше при крепите проект.

[Alexsandr]

проект.разархивировать на раб.стол.

[vovk]

записать в текущую запись

ADOTable1.Edit;
ADOTable1.FieldByName('image').Assign(Form1.Image1.Picture.Bitmap);
ADOTable1.Post;

прочитать из текущей записи

Form1.Image1.Picture.Bitmap.Assign(TBlobField(ADOTable1.FieldByName('image')));

зы

проект.разархивировать на раб.стол.

Зря вы так уверены что все сидят под учётной записью с именем "Admin"))
И да файла c:\zub.bmp у меня тоже не оказалось))