OLE и Interbase - прочесть и записать Автор: Rob Minte 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 © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
Автор: Rob Minte
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;