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;

« Предыдущая статья		Следующая статья »