| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запись бинарного файла в поле ADOTable [D5, Access]

TechnoDreamer ©   (2004-04-04 16:46:00) 

База данных MS Access, необходимо в поле "Bin" вставлять двоичные данные (из файла). Формат поля - "Поле объекта OLE". Код следующий, что неправильно? Чего то не хватает?

var
tmpBS: TStream;
tmpFS: TFileStream;
begin
if OpenDialog.Execute then
begin
  ADOTable.Edit;
  tmpBS:=ADOTable.CreateBlobStream(ADOTable.FieldByName('Bin'),          bmReadWrite);
  tmpBS.Seek(0,soFromBeginning);
  tmpFS:=TFileStream.Create(odGroupPict.Filename,fmOpenRead);
  tmpBS.CopyFrom(tmpFS,tmpFS.Size);
  ADOTable.Post;
  with tmpBS,tmpFS do Free;
end;

---

TechnoDreamer   (2004-04-04 20:01:00) [1]

Спасибо, в принципе, то что нужно.

---

sniknik   (2004-04-04 18:32:00) [2]

линшнего дофига
if OpenDialog.Execute then begin
  ADODataSet1.Edit;
  TBlobField(ADODataSet1.FieldByName('Bin')).LoadFromFile(OpenDialog.Filename);
  ADODataSet1.Post;
end;

---

Наверх