手工创建word对象的几个问题：

[1898xxy]

下面是delphi中打开word文档的代码:
v_app:=CreateOleObject('Word.Application');
v_app.visible:=True;
v_app.Documents.open(s1,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
有三个问题请教:
<1>增加什么语句可以在word事先打开的情况下，不再创建word.Application,具体位置应该在什么地方?
<2>为什么我在最后增加v_app.free，执行后(已打开word)会报错，难道不须要销毁这个动态创建的对象吗?那样的话内存不是会被耗完??
<3>程序执行后，word也打开了，在word中所做的操作(如修改，关闭，保存),delphi程序能够及时知道吗?
我想在这个打开的word文件关闭时，打它保存到数据库中(ADOTable1blob.loadfromfile),所以我必须判断word文件到底是不是关闭了（或者说保存了）
分数不多(我只能给这么多了)，希望各位能伸出援助之手,谢谢！

[1898xxy]

原来我的文件变量没有设为OleVariant类型,而是设为string,所以用WordApplication总是出错错!！但我的第一个问题还是没有解决，ConnectKind属性到底选哪个才可以让'word事先打开的情况下不再打开一个新的word'呢？我试过了所有的选项;有几个报错，两个可以运行,但总会新打开一个word，即使先前已打开了一个word。
程序可以控制吗？另个程序中到底要不要WordApplication1:=nil来清除所占用的内存呢??

[chechy]

缺省的就可以了。

[1898xxy]

不行呀如果事先打开了一个word，执行这个delphi程序后还会打开另一个word；
程序中到底要不要WordApplication1:=nil来清除所占用的内存呢??
我想在关闭或者保存这个打开的word文档后，马上把它保存到数据库中,用ADOTable1blob.loadfromfile,应该可行吧


问完这个我就要加分了：）

[chechy]

ckRunningOrNew应该是可以得。
程序中不需要赋值为nil，因为程序会替你释放的。
如果LoadFromFile，我觉得最好先关闭这个Word文档，否则可能读不出来。

[chechy]

1、直接用Delphi的TWordApplication，上面有ConnectKind属性。
2、不要用Free，要用用v_app := nil;
3、TWordDocument有Close，New，Open三个事件。

[Nizvoo]

对。同意楼上的
_______________________________________________________________

多多交流 共同进步
[e-mail]
http://nizvoo.myrice.com
_______________________________________________________________

[1898xxy]

直接用TWordApplication,在打开文件时总是出错呀！！！
TWordApplication.connect;
TWordApplication.visible:=true;
TWordApplication.Documents.open(s1,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
编译都不能通过??所以我才手工创建的

[pathe]

不要用free;用 V_app := unassigned;
还有创建时可用:
if FindWindow('OpusApp','Microsoft Word') = 0 then
begin
v_app:=CreateOleObject('Word.Application');
v_app.visible:=True;
end;

[chechy]

procedure TForm1.Button2Click(Sender: TObject);
var
a: OleVariant;
begin
a := 'c:\a.doc';
WordApplication1.Connect;
WordApplication1.Visible := True;
WordApplication1.Documents.Open(a, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

[cloveling]

能和你们多交流吗？

E-MAIL:[e-mail]