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

Delphi 1

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

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

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

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

- Rob Minte [000731]


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

---

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

---