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

Материал из DRKB

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;


Author: Rob Minte
Source: Взято с http://delphiworld.narod.ru
ID: 02927