我用下面的方法从数据库里将存储的WORD文档内容读出,然后贴在拷贝在粘贴板上,再将其粘贴在另外打开的一个WORD文档上,老是提示命令失败!请问什么原因啊?大虾们帮忙啊!!~~~~ while not Query.Eof do
begin
//从数据库将word文档内容取出,
try
STStream:=TAdoBlobStream.create(TBlobField(Query.FieldByName('stnr')),bmRead);
STStream.position:=0;
OleContainer1.LoadFromStream(STStream);
except
ShowMessage('没有试题信息或查询出错!');
exit;
end; //经过测试,可以从数据库取出 OleContainer1.DoVerb(ovshow); //显示该文档
OleContainer1.copy; //将文档拷贝在粘贴板上
OleContainer1.DestroyObject;//删除对象
wordApp.Selection.Paste; //wordapp为另外建立打开的一个word应用程序,
在这步的时候就提示出错,说 :“命令出错”
end;
begin
//从数据库将word文档内容取出,
try
STStream:=TAdoBlobStream.create(TBlobField(Query.FieldByName('stnr')),bmRead);
STStream.position:=0;
OleContainer1.LoadFromStream(STStream);
except
ShowMessage('没有试题信息或查询出错!');
exit;
end; //经过测试,可以从数据库取出 OleContainer1.DoVerb(ovshow); //显示该文档
OleContainer1.copy; //将文档拷贝在粘贴板上
OleContainer1.DestroyObject;//删除对象
wordApp.Selection.Paste; //wordapp为另外建立打开的一个word应用程序,
在这步的时候就提示出错,说 :“命令出错”
end;
解决方案 »
- Delphie 如何写Cookie
- 寻书 :Delphi Developer's Handbook(Delphi高级开发指南)
- =?GB2312?Q?=C4=E3=BA=C3?= 的解码方法.
- 有一句SQL语句关于日期查找帮忙 谢谢
- vclskin里的SkinData1控件的skinfile属性,如果要写相对路径怎么写?多谢
- 排列问题,急救,明天就要做好!
- 如何在用installshield打包是把指定的dll文件安装到系统system32目录中??
- 菜鸟在线求助,请进!
- 折行打印
- 我用的TResourceStream的内容怎么不对?
- 请问怎么用RAVE做一个统计的报表?急~~~
- 一个SQL语句看起来简单但是怎么也写不出
但都没有看到解决方案!CSDN的高手们,麻烦你们研究研究,搞定它!~~ 相信你们可以的,呵呵~~~