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;
Название: OLE и Interbase - прочесть и записать Дата публикации: 2004-03-17 (2929 Прочтено) |