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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: 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;

{/codecitation}

Добавить комментарий