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]

Содержание раздела

---

---