OLE и Interbase - прочесть и записать

Советы » Interbase » OLE и 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com