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