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

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]


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

---