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

Previous  Top  Next

    
 

 

 

Автор: Rob Minte

 

Code:

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;

 

 

 

©Drkb::02927

       

Взято с http://delphiworld.narod.ru