将OLE中的WORD资料，保存到数据库中去出错 ( 积分: 38 )

有一个OLEContainer,里面载入的是WORD文档（从数据库中读过来的），WORD文档修改以后再上传到数据库中去，但是这个时候实际上内容并没有修改过，还是以前的信息。这是为什么啊＞附程序
procedure TForm1.SpeedButton5Click(Sender: TObject);
var
stream : TMemoryStream;
begin
with adoproc do
begin
Close;
ProcedureName := 'update_document';
Parameters.Clear ;
Parameters.AddParameter ;
Parameters[0].Direction := pdinput;
Parameters[0].DataType := ftstring;
Parameters[0].Size := Length(LB1.Items[selected(LB1)]);
Parameters[0].Value := LB1.Items[selected(LB1)] ;


Parameters.AddParameter ;
Parameters[1].Direction := pdinput;
Parameters[1].DataType := ftBlob;
//Parameters[0].Size := Length(strList.Strings);
try
Stream:= TMemoryStream.Create ;
Stream.Position := 0 ;
OLEContain.SaveToStream(Stream);
Parameters [1].LoadFromStream(Stream,ftBlob);
Stream.Free;
except
shwomessage('文档载入出错！');
exit;
end;
open;
end;
end;

有一个OLEContainer,里面载入的是WORD文档（从数据库中读过来的），WORD文档修改以后再上传到数据库中去，但是这个时候实际上内容并没有修改过，还是以前的信息。这是为什么啊＞附程序
procedure TForm1.SpeedButton5Click(Sender: TObject);
var
stream : TMemoryStream;
begin
with adoproc do
begin
Close;
ProcedureName := 'update_document';
Parameters.Clear ;
Parameters.AddParameter ;
Parameters[0].Direction := pdinput;
Parameters[0].DataType := ftstring;
Parameters[0].Size := Length(LB1.Items[selected(LB1)]);
Parameters[0].Value := LB1.Items[selected(LB1)] ;


Parameters.AddParameter ;
Parameters[1].Direction := pdinput;
Parameters[1].DataType := ftBlob;
//Parameters[0].Size := Length(strList.Strings);
try
Stream:= TMemoryStream.Create ;
Stream.Position := 0 ;
OLEContain.SaveToStream(Stream);
Parameters [1].LoadFromStream(Stream,ftBlob);
Stream.Free;
except
shwomessage('文档载入出错！');
exit;
end;
open;
end;
end;

不好意思啊，各位，分不够了。
等手头这一次工程做完了，好好赚点分

ole存在焦点问题，我想如果你修改完，先使ole失去焦点，然后再用你的方法试试。
不行，再关注。

还是不行，这个是不是还有和那个HEADER有关系啊？

[]