请问delphiXE中如何显示存于access数据库中的word文档,谢谢!
解决方案 »
- 已有DC设备句柄,如何从图片文件画图?
- 【救急】 动态创建窗体并把Parent指向动态创建的TabSheet
- C语言中的链表在Delphi中怎么实现啊?
- Delphi有没有向VB那种引用功能?
- Delphi XP界面
- 请简述一下如何发布midas服务器和客户端?(50分)
- 俺快要结婚了,大家快来吃喜糖!! (没吃到的请进)
- ◆如何得到一个程序用到了那些DLL,并且进一步终止这些DLL(注意不是终止程序)◆
- 如何使用ADODdataSet查询输入的字符串是否为数据库中某一字段的子串(急)
- 小问题,赚分好机会,集少成多吗?谢谢各位捧场
- 从D7的转到XE4,那些常用的外加单元用不到了
- 求两个矩阵的乘积,Java转成Delphi的
如果没有,delphiXE中如何显示存入access表单中的word文档?
谢谢高手指教!
如果没有,delphiXE中如何显示存入access表单中的word文档?
谢谢高手指教!
Var
Ms:TMemoryStream;
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 表1');
adoquery1.Open;
Ms:=TMemoryStream.Create;
TBlobField(adoquery1.FieldByName('WordFile')).SaveToStream(Ms);
Ms.Position :=0;
OleContainer1.LoadFromStream(Ms);
OleContainer1.DoVerb(ovPrimary);
end;