OLE Interbase

Вот как прочесть из таблицы Interbase:

procedure TForm1.ReadOLE; varBS: TBlobStream; beginBS := TBlobStream.Create(Table1BLOBFIELD_BLOB, bmRead);OLEContainer1.LoadFromStream(BS);BS.Free; end;

и вот как записать это:

procedure TForm1.WriteOLE; varBS: TBlobStream; beginBS := TBlobStream.Create(Table1BLOBFIELD_BLOB, bmWrite);OLEContainer1.SaveToStream(BS);BS.Free; end;

- Rob Minte [000731]

Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---

---

---