例子:插入Word文档
在Fomr上放个OleContainer1,选择OleContainer1,右键选择"Insert Object",选择"Microsoft
Word文档"
procedure TForm1.Button1Click(Sender: TObject);
var
mp: TMemoryStream;
begin
tmp := TMemoryStream.Create;
try
OleContainer1.SaveToStream(tmp);
ADODataSet1.Edit;
tmp.Position := 0;
ADODataSet1olepic.LoadFromStream(tmp);
finally
tmp.Free;
end;
end;