Delphi 1
OLE <--> Interbase
Вот как прочесть из таблицы 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;
|
- Rob Minte [000731]