报错**

alang

procedure TMainForm.Button3Click(Sender: TObject);
VAR
NS: TMemoryStream;
begin
   NS := TMemoryStream.Create;
         DataSetBZSJJ1.open;
         TBlobField(DataSetBZSJJ1.FieldbyName('FILES')).SaveToStream(NS);
         ns.position := 0;
           OleContainer1.LoadFromStream(NS);
   end;

Jsun2007

加了 ns.position := 0;
代码后是不会报错了，可运行后在OleContainer1控件上看不到word文档啊

gaihl

procedure TMainForm.Button3Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,False);  //直接装入文件到Ole控件中
end;

引用 http://bbs.justep.com/forum.php?mod=viewthread&tid=9163
OLE包容器控件可以嵌入或者链接OLE服务器文档对象，实际上OLE包容器控件本身包含一个复合文档，嵌入 或者链接得OLE服务器文档对象，嵌入或者链接到复合文档中
1、  如果要处理OLE对象得原始文档文件，例如WORD,EXCEL等，应该使用以下方法：
  CreateLinktofile
  CreateObjectFormfile
  SaveAsDocument
2、而
   LoadFromFile
   LoadFromStream
   SaveToFile
   SaveToStream
   等方法处理得是OLE包容器控件中得复合文档，可用于包容器控件的整体装载和保存，但不是处理OLE对象的 原始文件
3、如果二进制流字段的表现属性设置为二进制，则存放的就是流文件，无法用LoadFromStream，SaveToStream 获得文件的类型
4、导入文件和导出最好自己用DIALOG那组控件自行处理

Jsun2007

文档存入数据库的代码如下：
procedure TMainForm.Button1Click(Sender: TObject);
var
NS: TMemoryStream;
begin
if OpenDialog1.Execute then
begin
NS:=TMemoryStream.Create;
OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,false);
OleContainer1.SaveToStream(NS);
DataSetBZSJJ1.open;
DataSetBZSJJ1.Append;
TBlobField(DataSetBZSJJ1.FieldbyName('FILES')).LoadFromStream(NS);
DataSetBZSJJ1.FieldbyName('F_ID').asstring :=OpenDialog1.FileName;
DataSetBZSJJ1.Post;
DataSetBZSJJ1.ApplyUpdates;
NS.Free;
end;

end;

Jsun2007

回复13楼：
  我必须要下从数据里读取word，所以要先把文档存入数据库在从数据库里读取，所以
  OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,False);  //直接装入文件到Ole控件中
  这种方式不行

gaihl

可以先保存到本地再打开

       TBlobField(DataSetBroker1.DataSet.FieldByName('WB')).SaveToFile(文件名);
       OleContainer1.CreateObjectFromFile(文件名,False);

Jsun2007

保存到本地打开的文件是乱码是不是ns.position 给的不够

zfang

用OleContainer1保存到本地文件后，文件内容会有些变化（OleContainer本身的一种机制），所以不能直接打开文件，必须还用OleContainer1来打开，具体你看
http://bbs.justep.com/forum.php?mod=viewthread&tid=22230

Jsun2007

这样写代码：
   TBlobField(DataSetBroker1.DataSet.FieldByName('WB')).SaveToFile(文件名);
       OleContainer1.CreateObjectFromFile(文件名,False);
功能运行后在OleContainer1看不到word文档的内容

Jsun2007

可以打开了，但是olecontainer1显示的文档没有滚动条，怎么控制这些属性呢