Delphi控制Word的问题，200分奉上！ ( 积分: 200 )

D

duanhf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-07

• #1

我将一个报表保存为word文件，保存的代码如下：
if SaveDialog1.Execute then
fileName := SaveDialog1.FileName
else
Exit;
try
V:=GetActiveOleObject('Word.Application');
except
V:=CreateOleObject('Word.Basic');
end;
WordApp.Connect;
。。。
会出现如下问题：
1、保存一次后，再点击保存，就会出现“RPC服务器不可用”这个异常
2、保存的时候如果有别的word文档正在打开，最后关的时候，就会被一起关闭。
我用的delphi7
WordApp: TWordApplication;
WordDoc: TWordDocument;
这2个控件，求高手指点！

 

D

duhai_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-07

• #2

initailization 位置 写 Coinitaize(nil); 大概如此， 拼写可能有问题。 对应的finalization位置对应 UnCoinitaize；

 

D

duanhf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-08

• #3

CoInitialize(nil);
CoUninitialize;
不行啊，还是老样子。这两句话应该放在哪里？我放在Form的OnCreate和OnClose中不起作用，后来又放在我保存word的那个函数的开始和结束位置还是不行，请高手具体指点！

 

Y

yuxiujuan0925

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-08

• #4

期待结果。

 

L

liuyang1987

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-10

• #5

设个断点跟踪一下.看看具体是哪报错.

 

W

wanpeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-04

• #6

我自己解决了，原因是忘了释放，收回分数

 

D

duanhf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-09-04

• #7

接受答案了.